case/4/0 Web Publishing: C:\Documents and Settings\hajsman\Dokumenty\Vyuka\Irs2\Projekt case40\Projekt03.csf - Vyhodnocovací funkce Generating(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
Generating
(Web Publishing)

Vytvořeno:	04-17-1997 14:49:15
Poslední změna:	01-09-2003 09:21:19

Outputs detailed information about the given generating function.

Modul

Module: Web Publishing

Zdrojový kód:

PROCEDURE Generating(id%)
BEGIN

 foundsomething! = FALSE;
 FOR Format WHERE Id = id% DO
 CALL Header("Generovací funkce " + Name + " (modul: " + Formatmodule + ")");
 CALL Title2("Generovací funkce", Name, Formatmodule);
 foundsomething! = TRUE;
 END

 //display header even in case the function does not exist
 IF NOT foundsomething! THEN
 CALL Header("Generovací funkce - ID " + Str$(id%));
 CALL Title("Generovací funkce", "ID: " + Str$(id%));
 END

 IF foundsomething! THEN
 FOR Format WHERE Id = id% DO

 //general object data
 CALL GenObjectData(Object, FALSE, FALSE);
 PRINT {HTML} "<HR SIZE=""1"" COLOR=""#3366CC"">", NL;

 //description of the object, if available
 IF Description <> "" THEN
 PRINT Description;
 PRINT {HTML} " ",NL;
 PRINT {HTML} "<HR SIZE=""1"" COLOR=""#3366CC"">", NL;
 END

 //two column table with userdefined properties of the element - one line per property
 CALL GenUserdefinedProperties(Object);

 //attributes
 CALL H2_TopSpaceless("Modul");
 FOR Formatmodule WHERE Name = Format.Formatmodule AND Language = Format.Language DO
 PRINT {HTML} "Modul: ";
 PRINT {HTML} Anchor$("" + Name + "", "", Str$(Object) + ".htm"), " ",NL;
 END
 PRINT {HTML} " ",NL;

 CALL H2_TopSpaceless("Generovací jazyk");
 PRINT {HTML} "Cílový jazyk této funkce je ", Languagename$(Language), ". ",NL;
 PRINT {HTML} " ",NL;

 CALL H2_TopSpaceless("Zdrojový kód");
 PRINT {HTML} "",NL;
// PRINT {HTML} "<LISTING>",NL; => netscape 4.04 does NOT properly support the listing tag
// PRINT Code;
// PRINT {HTML} "</LISTING>",NL;
 PRINT Code;
 PRINT {HTML} "",NL;
 END
 ELSE
 CALL H2_Spaceless("Projekt neobsahuje generovací funkci daného ID.");
 PRINT {HTML} " ",NL;
 END
 CALL Footer("");
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\32323.htm	(C) microTOOL GmbH 2002