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

Diff for /loncom/auth/lonroles.pm between versions 1.90 and 1.93

version 1.90, 2004/05/08 16:26:32 version 1.93, 2004/07/03 19:44:53
Line 47  sub redirect_user { Line 47  sub redirect_user {
     $r->send_http_header;      $r->send_http_header;
     my $swinfo=&Apache::lonmenu::rawconfig();      my $swinfo=&Apache::lonmenu::rawconfig();
     my $bodytag=&Apache::loncommon::bodytag('Switching Role');      my $bodytag=&Apache::loncommon::bodytag('Switching Role');
     $r->print (<<ENDREDIR);  # Note to style police: 
   # This must only replace the spaces, nothing else, or it bombs elsewhere.
       $url=~s/ /\%20/g;
       $r->print(<<ENDREDIR);
 <head><title>$title</title>  <head><title>$title</title>
 <meta HTTP-EQUIV="Refresh" CONTENT="1; url=$url">  <meta HTTP-EQUIV="Refresh" CONTENT="1; url=$url">
 </head>  </head>
Line 135  sub handler { Line 138  sub handler {
      &Apache::lonnet::assign_access_key(       &Apache::lonnet::assign_access_key(
      $ENV{'form.newkey'},       $ENV{'form.newkey'},
      $authdom,$authnum,       $authdom,$authnum,
        $cdom,$cnum,
                                                      $ENV{'user.domain'},                                                       $ENV{'user.domain'},
      $ENV{'user.name'},       $ENV{'user.name'},
       'Assigned from '.$ENV{'REMOTE_ADDR'}.' at '.localtime().' for '.        'Assigned from '.$ENV{'REMOTE_ADDR'}.' at '.localtime().' for '.
Line 276  ENDENTERKEY Line 280  ENDENTERKEY
   
     my $swinfo=&Apache::lonmenu::rawconfig();      my $swinfo=&Apache::lonmenu::rawconfig();
     my $bodytag=&Apache::loncommon::bodytag('User Roles');      my $bodytag=&Apache::loncommon::bodytag('User Roles');
     my $helptag='<table><tr><td>'.&Apache::loncommon::help_open_topic      my $helptag='<table><tr><td>'.&Apache::loncommon::help_open_menu('','General Intro','General_Intro','User Roles',1,'').'</td></td></tr></table>';
      ("General_Intro",&mt("Click here for help")).'</td><td>'.  
       &Apache::loncommon::help_open_faq(1,&mt('Click here for FAQ')).'</td><td>'.  
       &Apache::loncommon::help_open_bug('',&mt('Click here to report bugs')).'</td></tr></table>';  
     $r->print(<<ENDHEADER);      $r->print(<<ENDHEADER);
 <html>  <html>
 <head>  <head>
Removed from v.1.90  
changed lines
  Added in v.1.93

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