create or replace procedure gradebook as
begin
  htp.htmlOpen;
--htp.headOpen;
--htp.print('<Script language="JavaScript">
--           <!-- hide from older browsers
--             function Start(page) {
--                   OpenWin = this.open(page, "CtrlWindow",
--                   "toolbar=no,menubar=no,location=no,scrollbars=yes,
--                   resizable=yes,width=400,height=200");}
--                   //-->
--           </script> ');
--htp.headClose;
  htp.bodyOpen('/ows-img/raj/fleck.jpg');
   htp.print('<P align=right><a
		href="/ows-img/matlntx/help.html">Help</a></p>');

  htp.fontOpen('Blue');
  htp.header(1,'Welcome to the Grade Book System','center');
  htp.fontClose;
  htp.centerOpen;
   htp.print(htf.bold(to_char(sysdate, 'Month  DD,  YYYY HH:MI AM')));
  htp.centerClose;
   htp.nl;
   htp.nl;
  htp.tableOpen(cattributes=>'align=center border=4 width=100%
                cellpadding=0 cellspacing=0');
  htp.tableRowOpen('center','top');
--  htp.print('<TD>');
--  user_access.get_access;
--  htp.print('</td>
--  htp.print('<TD BGCOLOR="#999999" WIDTH=1><font color="#9999">.</font></TD>
--  htp.print('<TD BGCOLOR="#999999" WIDTH=1><font color="#9999">.</font></TD>
htp.print('<td>');
  user_access.get_access_st;
  htp.print('</TD>');
  htp.tableRowClose;
  htp.tableClose;
  htp.br;
--  htp.print('Forgot password? <a href="JavaScript:Start('Forgot_Grader_Passwd');">Click Here</a>');
  htp.print('Forgot password? <a href="http://tinman.cs.gsu.edu:9001/grader/plsql/Forgot_Grader_Passwd">Click Here</a>');
  htp.br;
  htp.print('If you do not have a userid and password, click '||
  htf.anchor(owa_util.get_owa_service_path ||'user_access.new_user','here'));
  htp.bodyClose;
  htp.htmlClose;
END gradebook;
/
show errors
