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

Diff for /loncom/interface/lontiny.pm between versions 1.8.2.7 and 1.24

version 1.8.2.7, 2025/01/16 21:42:12 version 1.24, 2025/02/07 20:23:42
Line 102  sub handler { Line 102  sub handler {
                                 my $newlauncher = &launch_check($r->uri,$symb,$cdom,$cnum);                                  my $newlauncher = &launch_check($r->uri,$symb,$cdom,$cnum);
                                 my ($map,$resid,$url) = &Apache::lonnet::decode_symb($symb);                                  my ($map,$resid,$url) = &Apache::lonnet::decode_symb($symb);
                                 if (&Apache::lonnet::is_on_map($url)) {                                  if (&Apache::lonnet::is_on_map($url)) {
                                     my $realuri;                                      my ($realuri,$reinitresult,$reinitchecked);
                                     if ((&Apache::lonnet::EXT('resource.0.hiddenresource',$symb) =~ /^yes$/i) &&                                      if ((&Apache::lonnet::EXT('resource.0.hiddenresource',$symb) =~ /^yes$/i) &&
                                         (!$env{'request.role.adv'})) {                                          (!$env{'request.role.adv'})) {
                                         $env{'user.error.msg'}=$r->uri.':bre:1:1:Access to resource denied';                                          my $loncaparev = $r->dir_config('lonVersion');
                                         return HTTP_NOT_ACCEPTABLE;                                          ($reinitresult,my @reinit) = &Apache::loncommon::needs_coursereinit($loncaparev);
                                           $reinitchecked = 1;
                                           unless (($reinitresult eq 'main') || ($reinitresult eq 'both')) {
                                               $env{'user.error.msg'}=$r->uri.':bre:1:1:Access to resource denied';
                                               return HTTP_NOT_ACCEPTABLE;
                                           }
                                     }                                      }
                                     if ((&Apache::lonnet::EXT('resource.0.encrypturl',$symb) =~ /^yes$/i) &&                                      if ((&Apache::lonnet::EXT('resource.0.encrypturl',$symb) =~ /^yes$/i) &&
                                         (!$env{'request.role.adv'})) {                                          (!$env{'request.role.adv'})) {
Line 126  sub handler { Line 131  sub handler {
                                             $realuri .= '?symb='.$symb;                                              $realuri .= '?symb='.$symb;
                                         }                                          }
                                     }                                      }
                                     my ($update,$reinitresult);                                      my $update;
                                     # Check if course needs to be re-initialized                                      # Check if course needs to be re-initialized
                                     if ($newlauncher) {                                      if ($newlauncher) {
                                         $update = 1;                                          $update = 1;
                                       } elsif (($reinitresult eq 'main') || ($reinitresult eq 'both')) {
                                           $update = 1;
                                     } else {                                      } else {
                                         my $loncaparev = $r->dir_config('lonVersion');                                          if (!$reinitchecked) {
                                         ($reinitresult,my @reinit) = &Apache::loncommon::needs_coursereinit($loncaparev);                                              my $loncaparev = $r->dir_config('lonVersion');
                                               ($reinitresult,my @reinit) = &Apache::loncommon::needs_coursereinit($loncaparev);
                                           }
                                         if (($reinitresult eq 'main') || ($reinitresult eq 'both')) {                                          if (($reinitresult eq 'main') || ($reinitresult eq 'both')) {
                                             $update = 1;                                              $update = 1;
                                         } elsif (!-e $env{'request.course.fn'}.'.db') {                                          } elsif (!-e $env{'request.course.fn'}.'.db') {
Line 161  sub handler { Line 170  sub handler {
                                             $env{'user.error.msg'}=$r->uri.':bre:0:0:Course not initialized';                                              $env{'user.error.msg'}=$r->uri.':bre:0:0:Course not initialized';
                                             $env{'user.reinit'} = 1;                                              $env{'user.reinit'} = 1;
                                             return HTTP_NOT_ACCEPTABLE;                                              return HTTP_NOT_ACCEPTABLE;
                                           } elsif ((&Apache::lonnet::EXT('resource.0.hiddenresource',$symb) =~ /^yes$/i) &&
                                                    (!$env{'request.role.adv'})) {
                                               $env{'user.error.msg'}=$r->uri.':bre:1:1:Access to resource denied';
                                               return HTTP_NOT_ACCEPTABLE;
                                         }                                          }
                                     }                                      }
                                     if (($reinitresult eq 'both') || ($reinitresult eq 'supp')) {                                      if (($reinitresult eq 'both') || ($reinitresult eq 'supp')) {
Removed from v.1.8.2.7  
changed lines
  Added in v.1.24

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