version 1.21.4.13.2.2, 2022/02/07 12:00:27
|
version 1.21.4.14, 2024/07/03 16:35:11
|
Line 39 use Apache::courseclassifier();
|
Line 39 use Apache::courseclassifier();
|
use LONCAPA qw(:DEFAULT :match); |
use LONCAPA qw(:DEFAULT :match); |
|
|
sub print_header { |
sub print_header { |
my ($r,$phase,$context,$jscript,$container,$instcode,$dom,$values) = @_; |
my ($r,$phase,$context,$jscript,$container,$instcode,$dom) = @_; |
my ($pagetitle,$brcrumtitle,$action,$call_category_check,$instcode_check, |
my ($pagetitle,$brcrumtitle,$action,$call_category_check,$instcode_check, |
$crstype,@actions,@code_order); |
$crstype,@actions,@code_order); |
if ($phase eq 'display') { |
if ($phase eq 'display') { |
Line 214 $jscript
|
Line 214 $jscript
|
my $optionsprefix = 'LC_options_helpdesk_'; |
my $optionsprefix = 'LC_options_helpdesk_'; |
$onload .= "toggleHelpdeskRow(document.display,'overrides','$customclass','$optionsprefix');"; |
$onload .= "toggleHelpdeskRow(document.display,'overrides','$customclass','$optionsprefix');"; |
} |
} |
if (grep(/^ltitools$/,@actions)) { |
|
$onload .= "toggleLTITools(document.display,'user','add');"; |
|
if (ref($values) eq 'HASH') { |
|
if (ref($values->{'ltitools'}) eq 'HASH') { |
|
my $numltitools = scalar(keys(%{$values->{'ltitools'}})); |
|
for (my $i=0; $i<$numltitools; $i++) { |
|
$onload .= "toggleLTITools(document.display,'user','$i');"; |
|
} |
|
} |
|
} |
|
} |
|
if (grep(/^wafproxy$/,@actions)) { |
if (grep(/^wafproxy$/,@actions)) { |
$onload .= "toggleWAF();checkWAF();updateWAF();"; |
$onload .= "toggleWAF();checkWAF();updateWAF();"; |
} |
} |
Line 256 $jscript
|
Line 245 $jscript
|
$onload = "courseSet('','load');toggleCloners(document.display.cloners_instcode);"; |
$onload = "courseSet('','load');toggleCloners(document.display.cloners_instcode);"; |
} |
} |
} |
} |
if (grep(/^linkprotection$/,@actions)) { |
if (grep(/^grading$/,@actions)) { |
if (ref($values) eq 'HASH') { |
$onload .= 'toggleGrading(document.display);toggleHiddenTotalsSec(document.display);'; |
if (ref($values->{'linkprotection'}) eq 'HASH') { |
|
my $ltiauth; |
|
if (exists($env{'course.'.$env{'request.course.id'}.'.internal.ltiauth'})) { |
|
$ltiauth = $env{'course.'.$env{'request.course.id'}.'.internal.ltiauth'}; |
|
} else { |
|
my %domdefs = &Apache::lonnet::get_domain_defaults($dom); |
|
$ltiauth = $domdefs{'crsltiauth'}; |
|
} |
|
my $posslti = scalar(keys(%{$values->{'linkprotection'}})); |
|
for (my $i=0; $i<=$posslti; $i++) { |
|
my $num = $i; |
|
if ($i == $posslti) { |
|
$num = 'add'; |
|
} |
|
if (ref($values->{'linkprotection'}->{$i}) eq 'HASH') { |
|
if ($values->{'linkprotection'}->{$i}->{'usable'}) { |
|
$onload .= "toggleLTI(document.display,'$num','secret');"; |
|
} |
|
} |
|
if ($ltiauth) { |
|
$onload .= "toggleLTIReqUser(document.display,'requser','optional','1','block','$num');". |
|
"toggleLTIReqUser(document.display,'mapuser','userfield','other','inline-block','$num');"; |
|
} |
|
} |
|
} |
|
} |
|
} |
} |
if ($onload) { |
if ($onload) { |
my %loaditems = ( |
my %loaditems = ( |
Line 378 sub make_changes {
|
Line 341 sub make_changes {
|
} else { |
} else { |
$changes{$item} = {}; |
$changes{$item} = {}; |
$errors = |
$errors = |
&Apache::courseprefs::process_changes($dom,$confname,$item,$values, |
&Apache::courseprefs::process_changes($dom,$item,$values, |
$prefs->{$item},$changes{$item}, |
$prefs->{$item},$changes{$item}, |
$allitems,\%disallowed,$crstype); |
$allitems,\%disallowed,$crstype); |
if (keys(%{$changes{$item}}) > 0) { |
if (keys(%{$changes{$item}}) > 0) { |
Line 438 sub display_settings {
|
Line 401 sub display_settings {
|
if (ref($values) eq 'HASH') { |
if (ref($values) eq 'HASH') { |
$instcode = $values->{'internal.coursecode'}; |
$instcode = $values->{'internal.coursecode'}; |
} |
} |
&print_header($r,$phase,$context,$jscript,$container,$instcode,$dom,$values); |
&print_header($r,$phase,$context,$jscript,$container,$instcode,$dom); |
my $divwidth = 900; |
my $divwidth = 900; |
if ((ref($prefs_order) eq 'ARRAY') && (ref($prefs) eq 'HASH') && (ref($values) eq 'HASH')) { |
if ((ref($prefs_order) eq 'ARRAY') && (ref($prefs) eq 'HASH') && (ref($values) eq 'HASH')) { |
if (@actions > 0) { |
if (@actions > 0) { |
Line 488 sub display_settings {
|
Line 451 sub display_settings {
|
$phase,$item,$prefs->{$item},$settings); |
$phase,$item,$prefs->{$item},$settings); |
} else { |
} else { |
($output{$item},$rowtotal{$item}) = |
($output{$item},$rowtotal{$item}) = |
&Apache::courseprefs::print_config_box($r,$dom,$confname,$phase, |
&Apache::courseprefs::print_config_box($r,$dom,$phase, |
$item,$prefs->{$item},$values,$allitems,$crstype,$parm_permission); |
$item,$prefs->{$item},$values,$allitems,$crstype,$parm_permission); |
} |
} |
$rowsum += $rowtotal{$item}; |
$rowsum += $rowtotal{$item}; |