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

Diff for /loncom/auth/lonroles.pm between versions 1.138.2.1 and 1.141

version 1.138.2.1, 2006/01/03 17:48:06 version 1.141, 2005/12/20 19:07:10
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 eq '/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.fn'}) {
      && ($role eq 'cc' && ($env{'environment.course_init_display'} ne 'firstres')))  {                                  if ($env{'request.role.adv'}) {
  $msg = &mt('Entering course ....');                                      my $startpage = &courseloadpage($courseid);
  &redirect_user($r,&mt('New in course'),                                      unless ($startpage eq 'firstres') {         
        '/adm/whatsnew',$msg,          $msg = &mt('Entering course ....');
        $env{'environment.remotenavmap'});          &redirect_user($r,&mt('New in course'),
  return OK;       '/adm/whatsnew?refpage=start',$msg,
        $env{'environment.remotenavmap'});
           return OK;
                                       }
                                   }
     }      }
     &redirect_user($r,&mt('Entering Course'),      &redirect_user($r,&mt('Entering Course'),
                                            $furl,$msg,                                             $furl,$msg,
Line 526  ENDHEADER Line 530  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='otherserver='.$home.'&role='.$trolecode;                          $switchserver=&Apache::lonnet::escape('http://'.
                            $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};
Line 1021  sub set_privileges { Line 1029  sub set_privileges {
     &Apache::lonnet::appenv('request.role.adv'    => $tadv);      &Apache::lonnet::appenv('request.role.adv'    => $tadv);
 }  }
   
   sub courseloadpage {
       my ($courseid) = @_;
       my $startpage;
       my %entry_settings =
                 &Apache::lonnet::dump('nohist_whatsnew',$env{'user.domain'},
                                       $env{'user.name'},$courseid.':courseinit');
       my ($tmp) = %entry_settings;
       unless ($tmp =~ /^Error/) {
           $startpage = $entry_settings{$courseid.':courseinit'};
       }
       if ($startpage eq '') {
           if (exists($env{'environment.course_init_display'})) {
               $startpage = $env{'environment.course_init_display'};
           }
       }
       return $startpage;
   }
   
 1;  1;
 __END__  __END__
   
Removed from v.1.138.2.1  
changed lines
  Added in v.1.141

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