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

Vytvořeno:	02-11-2002 13:30:49
Poslední změna:	12-11-2002 13:39:14

Modul

Module: Web Publishing

Zdrojový kód:

PROCEDURE Configuration(Name$)
BEGIN

 foundsomething! = FALSE;
 FOR Configuration WHERE Name = Name$ DO
 foundsomething! = TRUE;
 CALL Header ("Configuration - " + Name$);
 CALL Title ("Configuration", Name$);
 END

 IF NOT foundsomething! THEN
 CALL Header ("Konfigurace - " + Name$);
 CALL Title ("Konfigurace", Name$);
 END


 IF foundsomething! THEN
 FOR Configuration WHERE Name = Name$ DO
 CALL GenObjectData(Object, TRUE, TRUE);
 PRINT {HTML} "<HR SIZE=""1"" COLOR=""#3366CC"">", NL;
 CALL H2_TopSpaceless ("Vlastnosti");
 IF Frozen THEN
 PRINT {BOLD} "Fixovaná: "; PRINT {ITALIC} "ano", NL;
 ELSE
 PRINT {BOLD} "Fixovaná: "; PRINT {ITALIC} "ne", NL;
 END
 IF Frozen THEN
 PRINT {BOLD} "Dne: ";
 day$ = MID$(Datetimefrozen,4,2);
 month$ = LEFT$(Datetimefrozen,2);
 year$ = MID$(datetimefrozen,7,4);
 date$ = day$+"."+month$+"."+year$;
 time$ = MID$(Datetimefrozen,11,5);
 PRINT {ITALIC} date$, " ", time$, NL;
 FOR user WHERE login=user DO
 PRINT {BOLD} "Uživatelem: ";
 PRINT Fullname, NL;
 END
 ELSE
 PRINT {BOLD} "Dne: ";
 PRINT "--", NL;
 PRINT {BOLD} "Uživatelem: ";
 PRINT "--", NL;
 END
 PRINT {HTML} "<HR SIZE=""1"" COLOR=""#3366CC"">", NL;
 CALL H2_TopSpaceless ("Popis");
 FOR Object WHERE ID = Configuration.Object DO
 IF Text <> "" THEN
 PRINT {HTML} ""; PRINT Text; PRINT {HTML} "</TD>", NL;
 ELSE
 PRINT {HTML} ""; PRINT "<nemá>"; PRINT {HTML} "</TD>", NL;
 END
 END
 PRINT {HTML} "<HR SIZE=""1"" COLOR=""#3366CC"">", NL;
 CALL GenUserdefinedProperties(Object);
 CALL H2_TopSpaceless ("Prvky konfigurace");
 firstobject% = 0;
 foundobject% = 0;
 FOREACH Object ORDER BY Objecttype, Name DO
 FOR Objectusage WHERE Objectusage.Object = Object.Id
 AND Objectusage.Configuration = Configuration.Name DO
 foundobject% = 1;
 IF firstobject% = 0 THEN
 // PRINT Object.Name;
 firstobject% = 1;
 END
 CALL GetWebObjecttypeName (Object.Objecttype, objecttypename$);
 IF Datetimeremoved = "" THEN
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 PRINT {HTML} "" + objecttypename$ + ": ", "";
 PRINT {HTML} Anchor$("" + Object.Name + "", "", Str$(Object) + ".htm");
 PRINT {HTML} (" "), NL;
 ELSE
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 PRINT {HTML} "" + objecttypename$ + ": ", "";
 //PRINT {HTML} ""; PRINT "Das Element"; PRINT {HTML} "</TD>", NL;
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 PRINT {BOLD} Object.Name;
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 PRINT {HTML} ""; PRINT " <deleted>"; PRINT {HTML} "</TD>", NL;
 PRINT {HTML} "</TD>",NL;
 PRINT {HTML} " <TD></TD>",NL;
 PRINT {HTML} " <TD></TD>",NL;
 PRINT {HTML} " </TR>",NL;
 END
 END
 END
 END
 END
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\520471140.htm	(C) microTOOL GmbH 2002