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

Vytvořeno:	03-26-1998 14:27:44
Poslední změna:	01-07-2003 13:31:42

Outputs detailed information about the given event.

Modul

Module: Web Publishing

Zdrojový kód:

PROCEDURE Event(name$)
BEGIN

/* foundsomething! = FALSE;
 FOR Datastructure WHERE Name = Name$ AND Type = "ev" DO
 foundsomething! = TRUE;
 CALL Header("Event - " + Conv$(Boxname));
 CALL Title ("Event", Conv$(Boxname));
 END

 //display a dummy title if the event does not exist
 IF NOT foundsomething! THEN
 CALL Header("Event - " + name$);
 CALL Title ("Event", name$);
 END

 IF foundsomething! THEN
 FOR Datastructure WHERE Name = Name$ AND Type = "ev" DO

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

 //description of the object, if avialable
 FOR Field WHERE Datastructure = Datastructure.Name AND X = 286 AND Y = 15 AND Page = 1 AND hasText DO
 CALL GetSystemProperty("WebPubDescriptionPage", sepPage$);
 IF sepPage$ = "TRUE" THEN
 PRINT {HTML} Anchor$("Description", "", "desc" + Str$(Datastructure.Object) + ".htm");
 PRINT {HTML} " ",NL;
 PRINT {HTML} "<HR SIZE=""1"" COLOR=""#3366CC"">", NL;
 ELSE
 IF Text <> "" THEN
 dummy$ = Text;
 PRINT dummy$;
 PRINT {HTML} " ",NL;
 PRINT {HTML} "<HR SIZE=""1"" COLOR=""#3366CC"">", NL;
 END
 END
 END

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

 //event class
 CALL H2_TopSpaceless("Event Category");
 PRINT {HTML} "Event belongs to category: ";
 IF Eventclass = "" THEN
 PRINT {HTML} "[not specified]";
 ELSIF Eventclass = "ca" THEN
 PRINT {HTML} "cancel";
 ELSIF Eventclass = "di" THEN
 PRINT {HTML} "disable";
 ELSIF Eventclass = "en" THEN
 PRINT {HTML} "enable";
 ELSIF Eventclass = "hi" THEN
 PRINT {HTML} "hide";
 ELSIF Eventclass = "ok" THEN
 PRINT {HTML} "accept (OK)";
 ELSIF Eventclass = "sh" THEN
 PRINT {HTML} "show";
 ELSIF Eventclass = "tr" THEN
 PRINT {HTML} "trigger";
 END
 PRINT {HTML} ".";

 //usage in stores

 //usage in information flows

 //special data used in scenarios

 END
 ELSE
 CALL H2_Spaceless("There is no event of the given name.");
 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\17479.htm	(C) microTOOL GmbH 2002