Temp: HTML_Code;
begin
Insert(Translations_Hdr, Assoc(HEADER_CAPTION_KEY, "< " & Acidobazic_Suite.PROBLEM_NAME_READABLE));
- Insert(Translations_Hdr, Assoc(META_EXPIRE_NOW_KEY, META_EXPIRE_NOW_TEXT));
- Insert(Translations_Hdr, Assoc(META_NO_CACHE_KEY, META_NO_CACHE_TEXT));
HTML := Parse(Filename => "templates/header.html", Translations => Translations_Hdr);
-- Add JavaScripts
Temp := Parse(Filename => "scripts/expand_collapse.js", Cached => True);
P_Subtype: UB_Text;
begin
Insert(Translations_Hdr, Assoc(HEADER_CAPTION_KEY, "< " & Solubility_Suite.PROBLEM_NAME_READABLE));
- Insert(Translations_Hdr, Assoc(META_EXPIRE_NOW_KEY, META_EXPIRE_NOW_TEXT));
- Insert(Translations_Hdr, Assoc(META_NO_CACHE_KEY, META_NO_CACHE_TEXT));
HTML := Parse(Filename => "templates/header.html", Translations => Translations_Hdr);
-- Add JavaScripts
Temp := Parse(Filename => "scripts/expand_collapse.js", Cached => True);
Temp: HTML_Code;
begin
Insert(Translations_Hdr, Assoc(HEADER_CAPTION_KEY, "< " & Titration_Curve_Suite.PROBLEM_NAME_READABLE));
- Insert(Translations_Hdr, Assoc(META_EXPIRE_NOW_KEY, META_EXPIRE_NOW_TEXT));
- Insert(Translations_Hdr, Assoc(META_NO_CACHE_KEY, META_NO_CACHE_TEXT));
HTML := Parse(Filename => "templates/header.html", Translations => Translations_Hdr);
-- Add JavaScripts
Temp := Parse(Filename => "scripts/expand_collapse.js", Cached => True);
ERROR_MESSAGE_KEY: constant String := "ERROR_MESSAGE";
HEADER_CAPTION_KEY: constant String := "HEADER_CAPTION";
HINTS_SECTION_KEY: constant String := "HINTS_SECTION";
- META_EXPIRE_NOW_KEY: constant String := "META_EXPIRE_NOW";
- META_EXPIRE_NOW_TEXT: constant String := "<meta http-equiv=""expires"" content=""0"" />";
- META_NO_CACHE_KEY: constant String := "META_NO_CACHE";
- META_NO_CACHE_TEXT: constant String := "<meta http-equiv=""cache-control"" content=""no-cache"" />";
end Face_Generator;