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

Vytvořeno:	12-07-1998 10:01:48
Poslední změna:	01-09-2003 09:48:41

Generates the description for an implementation tree.

Modul

Module: Web Publishing

Zdrojový kód:

PROCEDURE Implementationtrees(ModId$, Funcdefno%)
BEGIN
/*
 Generates the description for a implementation tree.

 IN: ModId$ - Name of module structure
 Funcdefno% - primary key for Funcdef in ModId$


 referenced by: Funcdef(module$, no%)
*/

 fncObj% = 0;
 fncBoxname$ = "";
 foundsomething! = FALSE;
 FOREACH Implbox WHERE Module=ModId$ AND Funcdefno = Funcdefno% DO
 foundsomething! = TRUE;
 FOR Funcdef WHERE Module=ModId$ AND Funcdefno = Funcdefno% DO
 fncBoxname$ = Conv$(Boxname);
 CALL Header("Implemenční strom funkce - " + fncBoxname$);
 CALL Title ("Implemenční strom", Conv$(Boxname));
 fncObj% = Funcdef.Object;
 END
 BREAK;
 END

 //display a dummy title if the Implementation Tree does not exist
 IF NOT foundsomething! THEN
 CALL Header("Implemenční strom - " + Str$(Funcdefno%));
 CALL Title ("Implemenční strom", Str$(Funcdefno%));
 ELSE
 // link to funcdef
 PRINT {HTML} "<TABLE>",NL;
 PRINT {HTML} " <TR>", NL;
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 PRINT {HTML} "Funkce:</TD>", NL;
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 PRINT {HTML} Anchor$("" + fncBoxname$ + "", "", Str$(fncObj%) + ".htm");
 PRINT {HTML} "</TD>", NL;
 PRINT {HTML} " </TR>", NL;
 // link to module
 PRINT {HTML} " <TR>", NL;
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 PRINT {HTML} "Modul:</TD>", NL;
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 FOR Module WHERE Name=ModId$ DO
 PRINT {HTML} Anchor$("" + Conv$(Boxname) + "", "", Str$(Module.Object) + ".htm");
 END
 PRINT {HTML} "</TD>", NL;
 PRINT {HTML} " </TR>", NL;
 PRINT {HTML} "</TABLE>",NL;

 PRINT {HTML} "<HR SIZE=""1"" COLOR=""#3366CC""> ", NL;

 // insert first page
 CALL ImplementationtreeMap(ModId$, Funcdefno%, 1, PageWasGenerated!);
 PRINT {HTML} Anchor$( "", "ImplPage1", "#ImplPage1");
 PRINT {HTML} "";
 PRINT {HTML} "<IMG SRC=""IMPL" + Str$(fncObj%) + "_1"+ ".png""" +
 "BORDER=0 USEMAP=""#map_page1"">", NL;

 // insert other pages
 firstPage! = TRUE;
 FOREACH ImplPage WHERE Module=ModId$ AND Funcdefno = Funcdefno% ORDER BY Page DO
 IF firstPage! THEN
 PRINT {HTML} "Page 1", NL;
 firstPage! = FALSE;
 END
 PRINT {HTML} Anchor$( "", "ImplPage"+Str$(Page), "#ImplPage" + Str$(Page));
 CALL ImplementationtreeMap(ModId$, Funcdefno%, Page, PageWasGenerated!);
 PRINT {HTML} "";
 PRINT {HTML} "<IMG SRC=""IMPL" + Str$(fncObj%) + "_"+ Str$(Page)+ ".png""" +
 "BORDER=0 USEMAP=""#map_page", page, """>", NL;
 PRINT {HTML} "Page "+ Str$(Page) + "", NL;
 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\525406320.htm	(C) microTOOL GmbH 2002