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

Vytvořeno:	04-17-1997 14:49:23
Poslední změna:	01-09-2003 09:28:22

Lists all generation functions for a given module.

Modul

Module: Web Publishing

Zdrojový kód:

PROCEDURE Generatings(name$, language%, GenerateLinkedPages!)
BEGIN

 CALL Header("Přehled generovacích funkcí modulu " + name$);
 CALL Title2("Generovací modul", name$, languagename$(language%));

 foundsomething! = FALSE;
 FOR Formatmodule WHERE Name = name$ AND Language = Language% DO
 foundsomething! = TRUE;
 //general object data
 CALL GenObjectData(Object, TRUE, TRUE);
 PRINT {HTML} "<HR SIZE=""1"" COLOR=""#3366CC"">", NL;

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

 //all generating functions
 CALL H2_TopSpaceless("Generovací funkce");
 first! = TRUE;
 FOREACH Format WHERE Formatmodule = Formatmodule.Name AND Language = language% ORDER BY Name DO
 IF first! THEN
 PRINT {HTML} "<TABLE CELLPADDING=2 NOWRAP VALIGN=BASELINE>",NL;
 PRINT {HTML} " <TR>",NL;
 PRINT {HTML} " <TH VALIGN=BASELINE ALIGN=LEFT COLSPAN=2>";
 PRINT {HTML} "Název</TH>",NL;
 CALL GenStandardColsHeader();
 PRINT {HTML} " </TR>",NL;
 first! = FALSE;
 END
 IF GenerateLinkedPages! THEN
 CALL Generating(ID) INTO Str$(Object) + ".htm";
 END
 PRINT {HTML} " <TR>",NL;
 PRINT {HTML} " <TD ALIGN=CENTER VALIGN=TOP>";
 PRINT {HTML} "<img src=""bullet.gif""> ";
 PRINT {HTML} "</TD>",NL;
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 PRINT {HTML} Anchor$("" + Name + "", "", Str$(Object) + ".htm");
 PRINT {HTML} "</TD>",NL;

 CALL GenStandardCols(Object);

 PRINT {HTML} " </TR>",NL;
 END
 IF first! THEN
 PRINT {HTML} "Daný modul neobsahuje žádné funkce. ";
 ELSE
 PRINT {HTML} "</TABLE>",NL;
 END
 END

 IF NOT foundsomething! THEN
 CALL H2_Spaceless("Vprojektu není žádný generovací modul daného jména.");
 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\16534.htm	(C) microTOOL GmbH 2002