case/4/0 Web Publishing: C:\Documents and Settings\hajsman\Dokumenty\Vyuka\Irs2\Projekt case40\Projekt03.csf - Vyhodnocovací funkce Header(modul: Web Publishing)

[Celkový datový model] [Funkce] [Externí rohraní] [Stavové diagramy] [Datové elementy] [Entity] [Relace]
[Databáze] [Události] [Materiály] [Generovací funkce] [Vyhodnocovací funkce] [Konfigurace] [Uživatelé] [Projekt] [Home]

Vyhodnocovací funkce
Header
(Web Publishing)

Vytvořeno:	03-05-1997 11:35:34
Poslední změna:	01-14-2003 13:34:08

Generates standard document header used for all HTML pages.

Modul

Module: Web Publishing

Zdrojový kód:

PROCEDURE Header(topic$)
BEGIN
 PRINT {HTML} "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 3.2 Final//EN"">";
// PRINT {HTML} "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN//3.0"">";
 PRINT {HTML} "<HTML>",NL;
 PRINT {HTML} "<HEAD>",NL;
 PRINT {HTML} " <TITLE>case/4/0 Web Publishing: ", System$()," - ", topic$, "</TITLE>",NL;
 PRINT {HTML} "</HEAD>",NL;
// PRINT {HTML} "<BODY link=#3366CC vlink=#3366CC bgcolor = #ffffff>",NL;
 PRINT {HTML} "<BODY link=#3366CC vlink=#3366CC background = bga097.jpg>",NL;

// PRINT {HTML} "<BASEFONT FACE=""Verdana, Arial"" size=""2"">",NL; //does not work with some browsers
 PRINT {HTML} "",NL;

 PRINT {HTML} "<MAP name=""rootmap"">", NL;
 PRINT {HTML} " <AREA href=""Ifds.htm"" alt=""Informační tok"" shape=rect coords=""89, 1, 168, 55"">", NL;
 PRINT {HTML} " <AREA href=""Fsds.htm"" alt=""Funkční structura"" shape=rect coords=""1, 1, 80, 55"">", NL;
 PRINT {HTML} " <AREA href=""Dsds.htm"" alt=""Datová struktura"" shape=rect coords=""177, 1, 256, 55"">", NL;
 PRINT {HTML} " <AREA href=""Erareas.htm"" alt=""ER model"" shape=rect coords=""265, 1, 344, 55"">", NL;
 PRINT {HTML} " <AREA href=""Modules.htm"" alt=""Modulová struktura"" shape=rect coords=""353, 1, 432, 55"">", NL;
 PRINT {HTML} " <AREA href=""Tsds.htm"" alt=""Typová struktura"" shape=rect coords=""441, 1, 520, 55"">", NL;
 PRINT {HTML} " <AREA href=""Relareas.htm"" alt=""Relační model"" shape=rect coords=""527, 1, 608, 55"">", NL;
 PRINT {HTML} " <AREA href=""Reports.htm"" alt=""Dokumentace"" shape=rect coords=""615, 1, 697, 55"">", NL;
 PRINT {HTML} "</MAP>",NL;
 PRINT {HTML} "",NL;
 PRINT {HTML} "<IMG src=case40e.gif border=0 usemap=""#rootmap""> ", NL;

 PRINT {HTML} "",NL;
 PRINT {HTML} " " + Anchor$("[Celkový datový model]", "", "UDM.htm"),NL;
 PRINT {HTML} " " + Anchor$("[Funkce]", "", "Fnctions.htm"),NL;
 PRINT {HTML} " " + Anchor$("[Externí rohraní]", "", "Efaces.htm"),NL;
 PRINT {HTML} " " + Anchor$("[Stavové diagramy]", "", "Stds.htm"),NL;
 PRINT {HTML} " " + Anchor$("[Datové elementy]", "", "Datas.htm"),NL;
 PRINT {HTML} " " + Anchor$("[Entity]", "", "Entities.htm"),NL;
 PRINT {HTML} " " + Anchor$("[Relace]", "", "Rlations.htm") ,NL;
 PRINT {HTML} " " + " ",NL;
 PRINT {HTML} " " + Anchor$("[Databáze]", "", "Database.htm"),NL;
 PRINT {HTML} " " + Anchor$("[Události]", "", "Event.htm"),NL;
 PRINT {HTML} " " + Anchor$("[Materiály]", "", "Material.htm"),NL;
 PRINT {HTML} " " + Anchor$("[Generovací funkce]", "", "For_gen.htm"),NL;
 PRINT {HTML} " " + Anchor$("[Vyhodnocovací funkce]", "", "For_eva.htm"),NL;
 PRINT {HTML} " " + Anchor$("[Konfigurace]", "", "Config.htm"),NL;
 PRINT {HTML} " " + Anchor$("[Uživatelé]", "", "User.htm"),NL;
 PRINT {HTML} " " + Anchor$("[Projekt]", "", "SystemInfo.htm"),NL;
 PRINT {HTML} " " + Anchor$("[Home]", "", "Index.htm"),NL;
 PRINT {HTML} "", NL;

 PRINT {HTML} "<HR SIZE=""1"" COLOR=""#3366CC"">";
 PRINT NL;
END

Generováno: 16.10.2003 7:41	Systém: C:\Documents and Settings\hajsman\Dokumenty\Vyuka\Irs2\Projekt case40\Projekt03.csf	Generováno systémem case/4/0
Vygeneroval: Administrator	Soubor: C:\Documents and Settings\hajsman\Dokumenty\Vyuka\Irs2\Projekt case40\html\21132.htm	(C) microTOOL GmbH 2002