case/4/0 Web Publishing: C:\Documents and Settings\hajsman\Dokumenty\Vyuka\Irs2\Projekt case40\Projekt03.csf - Vyhodnocovací funkce Generating

[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
Generating_mod
(Web Publishing)

Vytvořeno:	04-17-1997 15:06:16
Poslední změna:	01-09-2003 09:27:12

Lists all generating modules.

Modul

Module: Web Publishing

Zdrojový kód:

PROCEDURE Generating_mod(GenerateLinkedPages!)
BEGIN

  maxGenLanguage% = 8;

  CALL Header("Přehled generovacích modulů");
  CALL H2("Generovací moduly");

  foundsomething! = FALSE;
  FOREACH Formatmodule WHERE Language <= maxGenLanguage% DO
    foundsomething! = TRUE;
    BREAK;
  END

  IF foundsomething! THEN
    //loop over all defined generating languages
    i% = 0;
    WHILE i% < maxGenLanguage% DO
      i% = i% + 1;
      j% = 0;
      FOREACH Formatmodule AS AliasFM WHERE Language = i% ORDER BY Name DO
        j% = j% + 1;
        IF j% = 1 THEN
          CALL H2_TopSpaceless("Cílový jazyk: " + Languagename$(Language) );
          PRINT {HTML} "<TABLE CELLPADDING=2 NOWRAP VALIGN=BASELINE>",NL;
          PRINT {HTML} " <TR>",NL;
          PRINT {HTML} " <TH VALIGN=BASELINE ALIGN=LEFT COLSPAN=2>";
          PRINT {HTML} "<FONT SIZE=2 FACE=""Verdana, Arial"">Název </FONT></TH>",NL;
          CALL GenStandardColsHeader();
          PRINT {HTML} " </TR>",NL;
        END
        IF GenerateLinkedPages! THEN
          CALL Generatings(Name, Language, TRUE) INTO Str$(Object) + ".htm";
        END
        PRINT {HTML} " <TR>",NL;
        PRINT {HTML} " <TD ALIGN=CENTER VALIGN=TOP><FONT SIZE=2 FACE=""Verdana, Arial"">";
        PRINT {HTML} "<img src=""bullet.gif""> ";
        PRINT {HTML} "</FONT></TD>",NL;
        PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP><FONT SIZE=2 FACE=""Verdana, Arial"">";
        PRINT {HTML} Anchor$("<B>" + Name + "</B>", "", Str$(Object) + ".htm");
        PRINT {HTML} "</FONT></TD>",NL;

        CALL GenStandardCols(Object);

        PRINT {HTML} " </TR>",NL;
      END
      IF j% <> 0 THEN
        PRINT {HTML} "</TABLE>",NL;
      END
    END
  ELSE
    CALL H2_Spaceless("Projekt neobsahuje žádné generovací moduly.");
    PRINT {HTML} "<BR>",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\7003.htm	(C) microTOOL GmbH 2002