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

Diff for /loncom/auth/lonroles.pm between versions 1.139 and 1.143

version 1.139, 2005/12/19 21:39:33 version 1.143, 2006/01/03 17:46:35
Line 51  sub redirect_user { Line 51  sub redirect_user {
     my $navwindow;      my $navwindow;
     if ($launch_nav eq 'on') {      if ($launch_nav eq 'on') {
  $navwindow.=&Apache::lonnavmaps::launch_win('now',undef,undef,   $navwindow.=&Apache::lonnavmaps::launch_win('now',undef,undef,
   ($url =~ m-/^adm/whatsnew-));    ($url =~ m-^/adm/whatsnew-));
     } else {      } else {
  $navwindow.=&Apache::lonnavmaps::close();   $navwindow.=&Apache::lonnavmaps::close();
     }      }
Line 271  ENDENTERKEY Line 271  ENDENTERKEY
   '.course.helper.not.run'}) {    '.course.helper.not.run'}) {
  $furl = "/adm/helper/course.initialization.helper";   $furl = "/adm/helper/course.initialization.helper";
  # Send the user to the course they selected   # Send the user to the course they selected
     } elsif ($env{'request.course.fn'}) {      } elsif ($env{'request.course.id'}) {
                                 if ($env{'user.adv'}) {                                  if (&Apache::lonnet::allowed('whn',
                                                     $env{'request.course.id'})) {
                                     my $startpage = &courseloadpage($courseid);                                      my $startpage = &courseloadpage($courseid);
                                     unless ($startpage eq 'firstres') {                                               unless ($startpage eq 'firstres') {         
         $msg = &mt('Entering course ....');          $msg = &mt('Entering course ....');
Line 530  ENDHEADER Line 531  ENDHEADER
     foreach my $id (@ids) { if ($id eq $home) { $allowed=1; } }      foreach my $id (@ids) { if ($id eq $home) { $allowed=1; } }
                     if (!$allowed) {                      if (!$allowed) {
  $button=0;   $button=0;
                         $switchserver=&Apache::lonnet::escape('http://'.                          $switchserver='otherserver='.$home.'&role='.$trolecode;
                          $Apache::lonnet::hostname{$home}.  
                           '/adm/login?domain='.$env{'user.domain'}.  
    '&username='.$env{'user.name'}.  
                            '&firsturl=/priv/'.$env{'user.name'}.'/');  
                     }                      }
                     #next if ($home eq 'no_host');                      #next if ($home eq 'no_host');
                     $home = $Apache::lonnet::hostname{$home};                      $home = $Apache::lonnet::hostname{$home};
Removed from v.1.139  
changed lines
  Added in v.1.143

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