Informační tok Funkční structura Datová struktura ER model Modulová struktura Typová struktura Relační model Dokumentace


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

Vytvořeno: 04-14-1998 14:55:40
Poslední změna: 01-09-2003 09:40:20
Outputs detailed information about the given user group.
Modul

Module: Web Publishing

Zdrojový kód:

PROCEDURE Group(Name$)
BEGIN

  CALL Header("Skupina uživatelů - " + Name$);
  CALL Title ("Skupina uživatelů", Name$);
  
  foundsomething! = FALSE;
  FOR Group WHERE Name = Name$ DO
    foundsomething! = TRUE;
  END

  IF foundsomething! THEN
    FOR Group WHERE Name = Name$ DO
    
      //comment
      IF Comment <> "" THEN
        CALL H2_TopSpaceless("Komentář");
        PRINT Comment;
        PRINT {HTML} "<BR>",NL;
      END
      
      //group members
      CALL H2("Členové skupiny");
      foundmbr! = FALSE;
      FOREACH Groupmember WHERE Group = Group.Name DO
        foundmbr! = TRUE;
        BREAK;
      END
      first! = TRUE;
      IF foundmbr! THEN
        FOREACH Groupmember WHERE Group = Group.Name DO
          IF NOT first! THEN
            PRINT {HTML} "<BR>",NL;
          END
          first! = FALSE;
          PRINT {HTML} "<IMG SRC=""bullet.gif"" ALIGN=TOP>",NL;
          FOR User WHERE Login = Groupmember.User DO
            CALL GenUserID(Login, usrid%);
            PRINT {HTML} Anchor$("<B>" + Fullname+ "</B>", "", "usr_" + Str$(usrid%) + ".htm");
          END
          IF Manager THEN
            PRINT " (Manager)";
          END
        END
        PRINT {HTML} "<BR>",NL;
      ELSE
        PRINT "Tato skupina nemá členy.";
      END
      
      //display group rights/permissions
      
    END
  ELSE
    CALL H2_Spaceless("Projekt neobsahuje skupinu daného jména.");
    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\1289.htm (C) microTOOL GmbH 2002