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

Diff for /loncom/interface/lonrelrequtils.pm between versions 1.5 and 1.6

version 1.5, 2016/03/04 21:43:16 version 1.6, 2018/01/02 14:43:17
Line 271  sub init_global_hashes { Line 271  sub init_global_hashes {
     %Apache::lonrelrequtils::checkcrstypes = ();      %Apache::lonrelrequtils::checkcrstypes = ();
     %Apache::lonrelrequtils::anonsurvey = ();      %Apache::lonrelrequtils::anonsurvey = ();
     %Apache::lonrelrequtils::randomizetry = ();      %Apache::lonrelrequtils::randomizetry = ();
       %Apache::lonrelrequtils::exttool = ();
   
     foreach my $key (keys(%Apache::lonnet::needsrelease)) {      foreach my $key (keys(%Apache::lonnet::needsrelease)) {
         my ($item,$name,$value,$valuematch,$namematch) = split(/:/,$key);          my ($item,$name,$value,$valuematch,$namematch) = split(/:/,$key);
Line 304  sub init_global_hashes { Line 305  sub init_global_hashes {
         } elsif ($item eq 'course') {          } elsif ($item eq 'course') {
             if ($name eq 'crstype') {              if ($name eq 'crstype') {
                 $Apache::lonrelrequtils::checkcrstypes{$value} = $Apache::lonnet::needsrelease{$key};                  $Apache::lonrelrequtils::checkcrstypes{$value} = $Apache::lonnet::needsrelease{$key};
               } elsif ($name eq 'courserestype') {
                   if ($value eq 'exttool') {
                       ($Apache::lonrelrequtils::exttool{major},$Apache::lonrelrequtils::exttool{minor}) =
                       split(/\./,$Apache::lonnet::needsrelease{$key});
                   }
             }              }
         }          }
     }      }
Line 475  sub coursecontent_constraints { Line 481  sub coursecontent_constraints {
         my %randomizetrysubm = &Apache::lonnet::dump('nohist_randomizetry',          my %randomizetrysubm = &Apache::lonnet::dump('nohist_randomizetry',
                                                      $cdom,$cnum);                                                       $cdom,$cnum);
         my %allresponses;          my %allresponses;
         my ($anonsurv_subm,$randbytry_subm);          my ($anonsurv_subm,$randbytry_subm,$exttool);
         foreach my $res ($navmap->retrieveResources(undef,sub { $_[0]->is_problem() },1,0)) {          foreach my $res ($navmap->retrieveResources(undef,sub { $_[0]->is_problem() || $_[0]->is_tool() },1,0)) {
               if ($res->is_tool()) {
                   $exttool ++;
                   next;
               }
             my %responses = $res->responseTypes();              my %responses = $res->responseTypes();
             foreach my $key (keys(%responses)) {              foreach my $key (keys(%responses)) {
                 next unless(exists($Apache::lonrelrequtils::checkresponsetypes{$key}));                  next unless(exists($Apache::lonrelrequtils::checkresponsetypes{$key}));
Line 497  sub coursecontent_constraints { Line 507  sub coursecontent_constraints {
             my ($major,$minor) = split(/\./,$Apache::lonrelrequtils::checkresponsetypes{$key});              my ($major,$minor) = split(/\./,$Apache::lonrelrequtils::checkresponsetypes{$key});
             ($reqdmajor,$reqdminor) = &update_reqd_loncaparev($major,$minor,$reqdmajor,$reqdminor);              ($reqdmajor,$reqdminor) = &update_reqd_loncaparev($major,$minor,$reqdmajor,$reqdminor);
         }          }
           if ($exttool) {
               ($reqdmajor,$reqdminor) = &update_reqd_loncaparev($Apache::lonrelrequtils::exttool{major},
                                                                 $Apache::lonrelrequtils::exttool{minor}); 
           }
         if ($anonsurv_subm) {          if ($anonsurv_subm) {
             ($reqdmajor,$reqdminor) = &update_reqd_loncaparev($Apache::lonrelrequtils::anonsurvey{major},              ($reqdmajor,$reqdminor) = &update_reqd_loncaparev($Apache::lonrelrequtils::anonsurvey{major},
                                           $Apache::lonrelrequtils::anonsurvey{minor},$reqdmajor,$reqdminor);                                            $Apache::lonrelrequtils::anonsurvey{minor},$reqdmajor,$reqdminor);
Removed from v.1.5  
changed lines
  Added in v.1.6

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