version 1.36, 2017/08/03 16:22:09
|
version 1.48, 2021/04/19 14:11:16
|
Line 40 use Apache::courseclassifier();
|
Line 40 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) = @_; |
my ($r,$phase,$context,$jscript,$container,$instcode,$dom,$values) = @_; |
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 209 $jscript
|
Line 209 $jscript
|
$onload .= "toggleEmailOptions(document.display,'cancreate_emailoptions','$hascustom',". |
$onload .= "toggleEmailOptions(document.display,'cancreate_emailoptions','$hascustom',". |
"'cancreate_emaildomain','default');"; |
"'cancreate_emaildomain','default');"; |
} |
} |
|
} |
|
if (grep(/^contacts$/,@actions)) { |
|
my $customclass = 'LC_helpdesk_override'; |
|
my $optionsprefix = 'LC_options_helpdesk_'; |
|
$onload .= "toggleHelpdeskRow(document.display,'overrides','$customclass','$optionsprefix');"; |
|
} |
|
if (grep(/^lti$/,@actions)) { |
|
$onload .= "toggleLTI(document.display,'user','add');". |
|
"toggleLTI(document.display,'crs','add');". |
|
"toggleLTI(document.display,'sec','add');". |
|
"toggleLTI(document.display,'lcauth','add');". |
|
"toggleLTI(document.display,'lcmenu','add');". |
|
"toggleLTI(document.display,'passback','add');". |
|
"toggleLTI(document.display,'callback','add');"; |
|
if (ref($values) eq 'HASH') { |
|
if (ref($values->{'lti'}) eq 'HASH') { |
|
my $numlti = scalar(keys(%{$values->{'lti'}})); |
|
for (my $i=0; $i<$numlti; $i++) { |
|
$onload .= "toggleLTI(document.display,'user','$i');". |
|
"toggleLTI(document.display,'crs','$i');". |
|
"toggleLTI(document.display,'sec','$i');". |
|
"toggleLTI(document.display,'lcauth','$i');". |
|
"toggleLTI(document.display,'lcmenu','$i');". |
|
"toggleLTI(document.display,'passback','$i');". |
|
"toggleLTI(document.display,'callback','$i');"; |
|
} |
|
} |
|
} |
|
} |
|
if (grep(/^ltitools$/,@actions)) { |
|
$onload .= "toggleLTITools(document.display,'passback','add');". |
|
"toggleLTITools(document.display,'roster','add');". |
|
"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,'passback','$i');". |
|
"toggleLTITools(document.display,'roster','$i');". |
|
"toggleLTITools(document.display,'user','$i');"; |
|
} |
|
} |
|
} |
|
} |
|
if (grep(/^wafproxy$/,@actions)) { |
|
$onload .= "toggleWAF();checkWAF();updateWAF();"; |
|
} |
|
if (grep(/^proctoring$/,@actions)) { |
|
$onload .= "toggleProctoring(document.display,'proctorio');". |
|
"toggleProctoring(document.display,'examity');"; |
|
} |
|
if (grep(/^scantron$/,@actions)) { |
|
$onload .= "toggleScantron('document.display');"; |
} |
} |
if ($onload) { |
if ($onload) { |
my %loaditems = ( |
my %loaditems = ( |
Line 373 sub display_settings {
|
Line 426 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); |
&print_header($r,$phase,$context,$jscript,$container,$instcode,$dom,$values); |
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) { |