|
|
| Returns number of modules. |
global
procedure WebModRep()
begin
string 60 mailboxcode;
string 60 mailboxname;
record CYBlock CYr;
Integer i,m;
string 60 modname;
Integer rwt;
if (LoggedInTest()) then begin
m = GetNumOfModules;
BlockLoad(CYr);
FindUserMailboxName(CurrentUser,mailboxcode,mailboxname);
WebStartPage;
WebSetMainTitle;
WebStartBody("");
WebStartHeader;
WebOutHeader("Modules in " & CYr.CompName);
WebStartHeaderEnd;
WebStartTable;
rwt = 0;
for (i=1;i<=m;i=i+1) begin
modname = GetModuleDesc(i);
WebMenuItem(modname,"WebRepMenu.hal","module="&GetModuleCode(i),"",rwt);
end;
WebEndTable;
WebEndPage(true);
end;
return;
end;
««
