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

Diff for /loncom/auth/lonroles.pm between versions 1.94 and 1.95

version 1.94, 2004/07/04 05:53:35 version 1.95, 2004/07/21 19:54:43
Line 40  use Apache::lonannounce; Line 40  use Apache::lonannounce;
 use Apache::lonlocal;  use Apache::lonlocal;
   
 sub redirect_user {  sub redirect_user {
     my ($r,$title,$url,$msg) = @_;      my ($r,$title,$url,$msg,$launch_nav) = @_;
     $msg = $title if (! defined($msg));      $msg = $title if (! defined($msg));
     &Apache::loncommon::content_type($r,'text/html');      &Apache::loncommon::content_type($r,'text/html');
     &Apache::loncommon::no_cache($r);      &Apache::loncommon::no_cache($r);
     $r->send_http_header;      $r->send_http_header;
     my $swinfo=&Apache::lonmenu::rawconfig();      my $swinfo=&Apache::lonmenu::rawconfig();
       if ($launch_nav eq 'on') {
    $swinfo.=&Apache::lonnavmaps::launch_win('now','no');
       }
     my $bodytag=&Apache::loncommon::bodytag('Switching Role');      my $bodytag=&Apache::loncommon::bodytag('Switching Role');
 # Note to style police:   # Note to style police: 
 # This must only replace the spaces, nothing else, or it bombs elsewhere.  # This must only replace the spaces, nothing else, or it bombs elsewhere.
Line 60  $bodytag Line 63  $bodytag
 $swinfo  $swinfo
 </script>  </script>
 <h1>$msg</h1>  <h1>$msg</h1>
   <a href="$url">Continue</a>
 </body>  </body>
 </html>  </html>
 ENDREDIR  ENDREDIR
Line 246  ENDENTERKEY Line 250  ENDENTERKEY
                             #                              #
                             # Send the user to the course they selected                              # Send the user to the course they selected
                             &redirect_user($r,&mt('Entering Course'),                              &redirect_user($r,&mt('Entering Course'),
                                            $furl,$msg);                                             $furl,$msg,
      $ENV{'environment.remotenavmap'});
                             return OK;                              return OK;
  }   }
     }      }
Removed from v.1.94  
changed lines
  Added in v.1.95

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