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

Vytvořeno:	04-24-1997 11:00:35
Poslední změna:	12-11-2002 13:41:41

Lists all configurations in the current system.

Modul

Module: Web Publishing

Zdrojový kód:

PROCEDURE Configurations()
BEGIN
 CALL Header("Přehled konfigurací");
 CALL H2("Konfigurace");

 foundsomething! = FALSE;
 FOREACH Configuration DO
 foundsomething! = TRUE;
 BREAK;
 END

 IF foundsomething! THEN
 PRINT {HTML} "<TABLE CELLPADDING=2 NOWRAP VALIGN=BASELINE>",NL;
 PRINT {HTML} " <TR>", NL;
 PRINT {HTML} " <TH VALIGN=BASELINE ALIGN=LEFT COLSPAN=2>Name </TH>",NL;
 CALL GenStandardColsHeader();
 PRINT {HTML} " <TH ALIGN=CENTER VALIGN=TOP>Frozen</TH>", NL;
 PRINT {HTML} " <TH ALIGN=CENTER VALIGN=TOP>On</TH>", NL;
 PRINT {HTML} " <TH ALIGN=CENTER VALIGN=TOP>By</TH>",NL;
 PRINT {HTML} " </TR>", NL;

 FOREACH Configuration ORDER BY Name DO
 CALL Configuration(Name) INTO Str$(Object) + ".htm";

 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} "" + name + "";
 PRINT {HTML} "</TD>",NL;

 CALL GenStandardCols(Object);

 // frozen ?
 PRINT {HTML} " <TD ALIGN=CENTER VALIGN=TOP>";
 IF frozen THEN PRINT "ano"; ELSE PRINT "ne"; END
 PRINT {HTML} "</TD>",NL;
 IF frozen THEN
 //on
 PRINT {HTML} " <TD ALIGN=CENTER VALIGN=TOP>";
 CALL DateTime2String(Datetimefrozen, strdate$, TRUE);
 PRINT strdate$;
 PRINT {HTML} "</TD>", NL;
 // by
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 FOR user WHERE login=user DO
 PRINT Fullname;
 END
 PRINT {HTML} "</TD>", NL;
 ELSE
 PRINT {HTML} " <TD ALIGN=CENTER VALIGN=TOP>-</TD>",NL;
 PRINT {HTML} " <TD ALIGN=CENTER VALIGN=TOP>-</TD>",NL;
 END


 PRINT {HTML} " </TR>",NL;
 END
 PRINT {HTML} "</TABLE>";
 ELSE
 CALL H2_Spaceless("Projekt neobsahuje žádné konfigurace.");
 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\27440.htm	(C) microTOOL GmbH 2002