[BACK]Return to lonroles.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / auth

Diff for /loncom/auth/lonroles.pm between versions 1.25 and 1.26

version 1.25, 2001/05/25 19:38:42 version 1.26, 2001/06/02 16:14:40
Line 9 Line 9
 # 12/08,12/28,  # 12/08,12/28,
 # 01/15/01 Gerd Kortemeyer  # 01/15/01 Gerd Kortemeyer
 # 02/27/01 Scott Harrison  # 02/27/01 Scott Harrison
 # 03/02,05/03,05/25 Gerd Kortemeyer  # 03/02,05/03,05/25,05/30,06/01 Gerd Kortemeyer
   
 package Apache::lonroles;  package Apache::lonroles;
   
Line 18  use Apache::lonnet(); Line 18  use Apache::lonnet();
 use Apache::lonuserstate();  use Apache::lonuserstate();
 use Apache::Constants qw(:common);  use Apache::Constants qw(:common);
 use Apache::File();  use Apache::File();
   use Apache::lonmenu;
   
 sub handler {  sub handler {
   
Line 68  sub handler { Line 69  sub handler {
      } else {       } else {
                  $r->content_type('text/html');                   $r->content_type('text/html');
                          $r->send_http_header;                           $r->send_http_header;
                            my $swinfo=&Apache::lonmenu::rawconfig;
                          print (<<ENDREDIR);                           print (<<ENDREDIR);
 <head><title>Entering Course</title>  <head><title>Entering Course</title>
 <meta HTTP-EQUIV="Refresh" CONTENT="1; url=$furl">  <meta HTTP-EQUIV="Refresh" CONTENT="1; url=$furl">
 </head>  </head>
 <html>  <html>
 <body bgcolor="#FFFFFF">  <body bgcolor="#FFFFFF">
   <script>
   $swinfo
   </script>
 Entering course ...  Entering course ...
 </body>  </body>
 </html>  </html>
Line 94  ENDREDIR Line 99  ENDREDIR
     $r->send_http_header;      $r->send_http_header;
     return OK if $r->header_only;      return OK if $r->header_only;
   
       my $swinfo=&Apache::lonmenu::rawconfig;
   
     $r->print(<<ENDHEADER);      $r->print(<<ENDHEADER);
 <html>  <html>
 <head>  <head>
 <title>LON-CAPA User Roles</title>  <title>LON-CAPA User Roles</title>
 </head><body bgcolor="#FFFFFF">  </head><body bgcolor="#FFFFFF">
 <script>window.focus();</script>  <script>
   $swinfo
   window.focus();
   </script>
 ENDHEADER  ENDHEADER
   
 # ------------------------------------------ Get Error Message from Environment  # ------------------------------------------ Get Error Message from Environment
Removed from v.1.25  
changed lines
  Added in v.1.26

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>