version 1.5, 2016/03/04 21:43:16
|
version 1.8, 2022/10/19 00:03:10
|
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); |
Line 506 sub coursecontent_constraints {
|
Line 520 sub coursecontent_constraints {
|
$Apache::lonrelrequtils::randomizetry{minor},$reqdmajor,$reqdminor); |
$Apache::lonrelrequtils::randomizetry{minor},$reqdmajor,$reqdminor); |
} |
} |
} |
} |
|
if (&Apache::lonnet::count_supptools($cnum,$cdom,1,1)) { |
|
($reqdmajor,$reqdminor) = &update_reqd_loncaparev($Apache::lonrelrequtils::exttool{major}, |
|
$Apache::lonrelrequtils::exttool{minor}); |
|
} |
return ($reqdmajor,$reqdminor); |
return ($reqdmajor,$reqdminor); |
} |
} |
|
|