|
|
| Checks if the web session is still active and user is logged in. |
global
updating procedure WebMailView()
begin
record MailVc Mailr;
record MailVc Mail2r;
LongInt wmailnumber;
string 60 confcode;
Boolean mailexists;
if (LoggedInTest()) then begin
wmailnumber = WebGetArg("mailnumber");
confcode = WebGetArg("confcode");
// -- //
// WebLeadText2("","10%");
if (Mailr.LockedFlag==0) then begin
WebOutString("<td width=""90%"" align=""left"" valign=""top""><input type=""submit"" value=""Save"" name=""b1""></td>");
end else begin
WebOutString("<td width=""90%"" align=""left"" valign=""top""></td>");
end;
WebLineEnd;
WebOutString("</table>");
WebOutString("</form>");
WebEndPage(true);
end;
return
end;
««
