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

Vytvořeno:	04-14-1998 14:55:17
Poslední změna:	01-14-2003 13:05:22

Outputs detailed information about the given user.

Modul

Module: Web Publishing

Zdrojový kód:

PROCEDURE User(Login$)
BEGIN

 foundsomething! = FALSE;
 FOR User WHERE Login = Login$ DO
 foundsomething! = TRUE;
 CALL Header("Uživatel - " + Fullname);
 CALL Title ("Uživatel", Fullname);
 END

 //display a dummy title if the user does not exist
 IF NOT foundsomething! THEN
 CALL Header("Uživatel - " + Login$);
 CALL Title ("Uživatel", Login$);
 END

 IF foundsomething! THEN
 FOR User WHERE Login = Login$ DO

 //general data
 CALL H2_TopSpaceless("Data uživatele");
 PRINT {HTML} "<TABLE NOWRAP>",NL;

 //Fullname
 PRINT {HTML} " <TR>",NL;
 PRINT {HTML} " <TD VALIGN=TOP ALIGN=LEFT>";
 PRINT {HTML} "Jméno:";
 PRINT {HTML} "</TD>",NL;
 PRINT {HTML} " <TD VALIGN=TOP ALIGN=LEFT>";
 PRINT {HTML} "";
 IF Fullname <> "" THEN
 PRINT Fullname;
 ELSE
 PRINT "neznámé";
 END
 PRINT {HTML} "";
 PRINT {HTML} "</TD>",NL;
 PRINT {HTML} " </TR>",NL;
 //Login
 PRINT {HTML} " <TR>",NL;
 PRINT {HTML} " <TD VALIGN=TOP ALIGN=LEFT>";
 PRINT {HTML} "Login:";
 PRINT {HTML} "</TD>",NL;
 PRINT {HTML} " <TD VALIGN=TOP ALIGN=LEFT>";
 PRINT {HTML} "";
 PRINT Login;
 PRINT {HTML} "";
 PRINT {HTML} "</TD>",NL;
 PRINT {HTML} " </TR>",NL;
 //Email
 PRINT {HTML} " <TR>",NL;
 PRINT {HTML} " <TD VALIGN=TOP ALIGN=LEFT>";
 PRINT {HTML} "e-Mail:";
 PRINT {HTML} "</TD>",NL;
 PRINT {HTML} " <TD VALIGN=TOP ALIGN=LEFT>";
 PRINT {HTML} "";
 IF Email <> "" THEN
 PRINT {HTML} "<A HREF=mailto:", Email, ">", Email, "</A>";
 ELSE
 PRINT "n/a";
 END
 PRINT {HTML} "";
 PRINT {HTML} "</TD>",NL;
 PRINT {HTML} " </TR>",NL;
 //Room
 PRINT {HTML} " <TR>",NL;
 PRINT {HTML} " <TD VALIGN=TOP ALIGN=LEFT>";
 PRINT {HTML} "Místnost:";
 PRINT {HTML} "</TD>",NL;
 PRINT {HTML} " <TD VALIGN=TOP ALIGN=LEFT>";
 PRINT {HTML} "";
 IF Room <> "" THEN
 PRINT Room;
 ELSE
 PRINT "n/a";
 END
 PRINT {HTML} "";
 PRINT {HTML} "</TD>",NL;
 PRINT {HTML} " </TR>",NL;
 //Phone
 PRINT {HTML} " <TR>",NL;
 PRINT {HTML} " <TD VALIGN=TOP ALIGN=LEFT>";
 PRINT {HTML} "Telefon:";
 PRINT {HTML} "</TD>",NL;
 PRINT {HTML} " <TD VALIGN=TOP ALIGN=LEFT>";
 PRINT {HTML} "";
 IF Phone <> "" THEN
 PRINT Phone;
 ELSE
 PRINT "n/a";
 END
 PRINT {HTML} "";
 PRINT {HTML} "</TD>",NL;
 PRINT {HTML} " </TR>",NL;
 PRINT {HTML} "</TABLE>",NL;

 //Comment (also inside dummy table for alignment reasons)
 IF Comment <> "" THEN
 PRINT {HTML} "<TABLE>",NL;
 PRINT {HTML} " <TR>",NL;
 PRINT {HTML} " <TD VALIGN=TOP ALIGN=LEFT COLSPAN=2>";
 PRINT Comment;
 PRINT {HTML} "</TD>",NL;
 PRINT {HTML} " </TR>",NL;
 PRINT {HTML} "</TABLE>",NL;
 END

 //Is administrator? (also inside dummy table for alignment reasons)
 IF Administrator THEN
 PRINT {HTML} "<TABLE>",NL;
 PRINT {HTML} " <TR>",NL;
 PRINT {HTML} " <TD VALIGN=TOP ALIGN=LEFT COLSPAN=2>";
 PRINT {HTML} "Uživatel je administrátor.";
 PRINT {HTML} "</TD>",NL;
 PRINT {HTML} " </TR>",NL;
 PRINT {HTML} "</TABLE>",NL;
 END

 //group membership
 PRINT {HTML} " ",NL;
 CALL H2_TopSpaceless("Členství ve skupinách");
 PRINT {HTML} "<TABLE>",NL;
 PRINT {HTML} " <TR>",NL;
 PRINT {HTML} " <TD VALIGN=TOP ALIGN=LEFT COLSPAN=2>",NL;
 foundgrp! = FALSE;
 FOREACH Groupmember WHERE User = Login DO
 foundgrp! = TRUE;
 BREAK;
 END
 first! = TRUE;
 IF foundgrp! THEN
 FOREACH Groupmember WHERE User = Login DO
 IF NOT first! THEN
 PRINT {HTML} " ",NL;
 ELSE
 first! = FALSE;
 END
 PRINT {HTML} "<IMG SRC=""bullet.gif"" ALIGN=TOP>",NL;
 PRINT Group;
 IF Manager THEN
 PRINT " (manager)";
 END
 END
 ELSE
 PRINT "Uživatel nepatří do žádné skupiny uživatelů.";
 END
 PRINT {HTML} "</TD>",NL;
 PRINT {HTML} " </TR>",NL;
 PRINT {HTML} "</TABLE>",NL;

 //rights/permissions

 END
 ELSE
 CALL H2_Spaceless("V projektu není uživatel daného login.");
 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\6603.htm	(C) microTOOL GmbH 2002