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

Vytvořeno:	04-16-1997 16:10:05
Poslední změna:	01-14-2003 13:15:22

Lists all users, groups, and group members in the current system.

Modul

Module: Web Publishing

Zdrojový kód:

PROCEDURE Users(GenerateLinkedPages!)
BEGIN

 CALL Header("Seznam uživatelů");
 CALL H2 ("Uživatelé");

// there can be no system without a user:
 foundsomething! = TRUE;

 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>Jméno</TH>",NL;
 PRINT {HTML} " <TH ALIGN=CENTER VALIGN=TOP>Login</TH>",NL;
 PRINT {HTML} " <TH ALIGN=CENTER VALIGN=TOP>Místnost</TH>",NL;
 PRINT {HTML} " <TH ALIGN=CENTER VALIGN=TOP>Telefon</TH>",NL;
 PRINT {HTML} " <TH ALIGN=CENTER VALIGN=TOP>e-Mail</TH>",NL;
 PRINT {HTML} " <TH ALIGN=CENTER VALIGN=TOP>Administrátor</TH>",NL;
 PRINT {HTML} " </TR>",NL;

 FOREACH User ORDER BY Fullname DO
 CALL GenUserID(Login, id%);
 IF GenerateLinkedPages! THEN
 CALL User(Login) INTO "usr_" + Str$(id%) + ".htm";
 END

 PRINT {HTML} " <TR>",NL;

 //full name
 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} Anchor$("" + Fullname + "", "", "usr_" + Str$(id%) + ".htm");
 PRINT {HTML} "</TD>",NL;

 //login
 PRINT {HTML} " <TD ALIGN=CENTER VALIGN=TOP>";
 PRINT Login;
 PRINT {HTML} "</TD>",NL;

 //room
 PRINT {HTML} " <TD ALIGN=CENTER VALIGN=TOP>";
 IF Room <> "" THEN
 PRINT Room;
 ELSE
 PRINT "n/a";
 END
 PRINT {HTML} "</TD>",NL;

 //phone number
 PRINT {HTML} " <TD ALIGN=CENTER VALIGN=TOP>";
 IF Phone <> "" THEN
 PRINT Phone;
 ELSE
 PRINT "n/a";
 END
 PRINT {HTML} "</TD>",NL;

 //email address
 PRINT {HTML} " <TD ALIGN=CENTER VALIGN=TOP>";
 IF Email <> "" THEN
 PRINT {HTML} "<A HREF=mailto:", Email, ">", Email,"</A>";
 ELSE
 PRINT "n/a";
 END
 PRINT {HTML} "</TD>",NL;

 //is administrator?
 PRINT {HTML} " <TD ALIGN=CENTER VALIGN=TOP>";
 IF Administrator THEN
 PRINT "ano";
 ELSE
 PRINT "ne";
 END
 PRINT {HTML} "</TD>",NL;

 PRINT {HTML} " </TR>",NL;
 END
 PRINT {HTML} "</TABLE>",NL;
 END

 CALL H2 ("Seznam skupin s jejich členy");

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

 IF foundsomething! THEN
 FOREACH Group ORDER BY Name DO
 CALL GenGroupID(Name, grid%);
 IF GenerateLinkedPages! THEN
 CALL Group(Name) INTO "grp_" + Str$(grid%) + ".htm";
 END

 PRINT {HTML} "<TABLE CELLPADDING=2 NOWRAP VALIGN=BASELINE>",NL;
 PRINT {HTML} " <TR>",NL;
 PRINT {HTML} " <TH VALIGN=BASELINE ALIGN=LEFT COLSPAN=2>";
 PRINT {HTML} Anchor$("" + Name + "", "", "grp_" + Str$(grid%) + ".htm");
 PRINT {HTML} "</TH>",NL;
 PRINT {HTML} " </TR>",NL;

 //table data starts here
 FOREACH Groupmember WHERE Group = Group.Name ORDER BY Name DO
 FOR User WHERE Login = Groupmember.User DO
 CALL GenUserID(Login, id%);
 PRINT {HTML} " <TR>",NL;
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 PRINT {HTML} "  </TD>",NL;
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 PRINT {HTML} Anchor$(Fullname, "", "usr_" + Str$(id%) + ".htm");
 PRINT {HTML} "</TD>",NL;
 PRINT {HTML} " </TR>",NL;
 END
 END
 PRINT {HTML} "</TABLE>",NL;
 END
 ELSE
 CALL H2_Spaceless("V projektu nejsou definovány žádné skupiny uživatelů.");
 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\6818.htm	(C) microTOOL GmbH 2002