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

Diff for /loncom/auth/lonroles.pm between versions 1.269.2.22 and 1.269.2.25

version 1.269.2.22, 2015/03/11 04:53:15 version 1.269.2.25, 2016/08/08 13:39:26
Line 663  ENDENTERKEY Line 663  ENDENTERKEY
     }      }
  }   }
                                 # Are we allowed to look at the first resource?                                  # Are we allowed to look at the first resource?
                                   my $access;
                                 if ($furl =~ m{^(/adm/wrapper|)/ext/}) {                                  if ($furl =~ m{^(/adm/wrapper|)/ext/}) {
                                     # If it's an external resource,                                      # If it's an external resource,
                                     # strip off the symb argument and possible query                                      # strip off the symb argument and possible query
Line 670  ENDENTERKEY Line 671  ENDENTERKEY
                                     # Unencode $symb                                      # Unencode $symb
                                     $symb = &unescape($symb);                                      $symb = &unescape($symb);
                                     # Then check for permission                                      # Then check for permission
                                     if (!&Apache::lonnet::allowed('bre',$exturl,$symb)) {                                      $access = &Apache::lonnet::allowed('bre',$exturl,$symb);
                                         $furl = &Apache::lonpageflip::first_accessible_resource();  
                                     }  
                                 # For other resources just check for permission                                  # For other resources just check for permission
                                 } elsif (!&Apache::lonnet::allowed('bre',$furl)) {                                  } else {
                                       $access = &Apache::lonnet::allowed('bre',$furl);
                                   }
                                   if (!$access) {
                                     $furl = &Apache::lonpageflip::first_accessible_resource();                                      $furl = &Apache::lonpageflip::first_accessible_resource();
                                   } elsif ($access eq 'B') {
                                       $furl = '/adm/navmaps?showOnlyHomework=1';
                                 }                                  }
   
                                 $msg = &mt('Entering [_1] ...',                                  $msg = &mt('Entering [_1] ...',
    $env{'course.'.$cdom.'_'.$cnum.'.description'});     $env{'course.'.$cdom.'_'.$cnum.'.description'});
  &redirect_user($r, &mt('Entering [_1]',   &redirect_user($r, &mt('Entering [_1]',
Line 750  ENDENTERKEY Line 753  ENDENTERKEY
         $cattype = $domdefs{'catauth'};          $cattype = $domdefs{'catauth'};
     }      }
     my $funcs = &get_roles_functions($showcount,$cattype);      my $funcs = &get_roles_functions($showcount,$cattype);
     $standby=~s/\n/\\n/g;      &js_escape(\$standby);
     my $noscript='<br /><span class="LC_error">'.&mt('Use of LON-CAPA requires Javascript to be enabled in your web browser.').'<br />'.&mt('As this is not the case, most functionality in the system will be unavailable.').'</span><br />';      my $noscript='<br /><span class="LC_error">'.&mt('Use of LON-CAPA requires Javascript to be enabled in your web browser.').'<br />'.&mt('As this is not the case, most functionality in the system will be unavailable.').'</span><br />';
   
     $r->print(<<ENDHEADER);      $r->print(<<ENDHEADER);
Line 1763  sub courselink { Line 1766  sub courselink {
 }  }
   
 sub coursepick_jscript {  sub coursepick_jscript {
     my %lt = &Apache::lonlocal::texthash(      my %js_lt = &Apache::lonlocal::texthash(
                   plsu => "Please use the 'Select Course/Community' link to open a separate pick course window where you may select the course or community you wish to enter.",                    plsu => "Please use the 'Select Course/Community' link to open a separate pick course window where you may select the course or community you wish to enter.",
                   youc => 'You can only use this screen to select courses and communities in the current domain.',                    youc => 'You can only use this screen to select courses and communities in the current domain.',
              );               );
       &js_escape(\%js_lt);
     my $verify_script = <<"END";      my $verify_script = <<"END";
 <script type="text/javascript">  <script type="text/javascript">
 // <![CDATA[  // <![CDATA[
Line 1783  function verifyCoursePick(caller) { Line 1787  function verifyCoursePick(caller) {
             }              }
         }          }
         else {          else {
             alert("$lt{'plsu'}");              alert("$js_lt{'plsu'}");
         }          }
     }      }
     else {      else {
         alert("$lt{'youc'}")          alert("$js_lt{'youc'}")
     }      }
 }  }
 function getIndex(caller) {  function getIndex(caller) {
Removed from v.1.269.2.22  
changed lines
  Added in v.1.269.2.25

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