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

Diff for /loncom/auth/lonroles.pm between versions 1.255 and 1.256

version 1.255, 2010/07/30 20:35:16 version 1.256, 2010/08/01 18:34:19
Line 329  sub handler { Line 329  sub handler {
                         my @ids = &Apache::lonnet::current_machine_ids();                          my @ids = &Apache::lonnet::current_machine_ids();
                         unless ($loncaparev eq '' && $home && grep(/^\Q$home\E$/,@ids)) {                          unless ($loncaparev eq '' && $home && grep(/^\Q$home\E$/,@ids)) {
                             my %curr_reqd_hash = &Apache::lonnet::userenvironment($cdom,$cnum,'internal.releaserequired');                              my %curr_reqd_hash = &Apache::lonnet::userenvironment($cdom,$cnum,'internal.releaserequired');
                             if ($curr_reqd_hash{'internal.releaserequired'} &&                              if ($curr_reqd_hash{'internal.releaserequired'} ne '') {
                                 $curr_reqd_hash{'internal.releaserequired'} > $loncaparev) {  
                                 my ($switchserver,$switchwarning) =                                  my ($switchserver,$switchwarning) =
                                     &check_release_required($loncaparev,$cdom.'_'.$cnum,$trolecode,$curr_reqd_hash{'internal.releaserequired'});                                      &check_release_required($loncaparev,$cdom.'_'.$cnum,$trolecode,$curr_reqd_hash{'internal.releaserequired'});
                                 &Apache::loncommon::content_type($r,'text/html');                                  if ($switchwarning ne '' || $switchserver ne '') {
                                 &Apache::loncommon::no_cache($r);                                      &Apache::loncommon::content_type($r,'text/html');
                                 $r->send_http_header;                                      &Apache::loncommon::no_cache($r);
                                 my $end_page=&Apache::loncommon::end_page();                                      $r->send_http_header;
                                 $r->print(&Apache::loncommon::start_page('Selected course unavailable on this server').                                      my $end_page=&Apache::loncommon::end_page();
                                 '<p class="LC_warning">');                                       $r->print(&Apache::loncommon::start_page('Selected course unavailable on this server').
                                 if ($switchwarning) {                                                '<p class="LC_warning">');
                                     $r->print($switchwarning.'<br /><a href="/adm/roles">');                                      if ($switchwarning) {
                                     if (&Apache::loncommon::show_course()) {                                          $r->print($switchwarning.'<br /><a href="/adm/roles">');
                                         $r->print(&mt('Display courses'));                                          if (&Apache::loncommon::show_course()) {
                                     } else {                                              $r->print(&mt('Display courses'));
                                         $r->print(&mt('Display roles'));                                          } else {
                                               $r->print(&mt('Display roles'));
                                           }
                                           $r->print('</a>');
                                       } elsif ($switchserver) {
           $r->print(&mt('This course requires a newer version of LON-CAPA than is installed on this server.').
                                                     '<br />'.
                                                     '<a href="/adm/switchserver?'.$switchserver.'">'.
                                                     &mt('Switch Server').
                                                     '</a>');
                                     }                                      }
                                     $r->print('</a>');                                      $r->print('</p>'.&Apache::loncommon::end_page());
                                 } elsif ($switchserver) {                                      return OK;
     $r->print(&mt('This course requires a newer version of LON-CAPA than is installed on this server.').  
                                               '<br />'.  
                                               '<a href="/adm/switchserver?'.$switchserver.'">'.  
                                               &mt('Switch Server').  
                                               '</a>');  
                                 }                                  }
                                 $r->print('</p>'.&Apache::loncommon::end_page());  
                                 return OK;  
                             }                              }
                         }                          }
                     }                      }
Removed from v.1.255  
changed lines
  Added in v.1.256

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