version 1.30, 2015/05/21 23:26:35
|
version 1.32, 2016/07/25 19:50:30
|
Line 75 sub print_header {
|
Line 75 sub print_header {
|
\@code_order); |
\@code_order); |
if (@code_order) { |
if (@code_order) { |
my $noinstcodestr = &mt('You indicated cloning based on category, but did not select any categories.'); |
my $noinstcodestr = &mt('You indicated cloning based on category, but did not select any categories.'); |
|
&js_escape(\$noinstcodestr); |
$instcode_check = <<"ENDSCRIPT"; |
$instcode_check = <<"ENDSCRIPT"; |
if (formname == document.display) { |
if (formname == document.display) { |
if (formname.cloners_instcode.length) { |
if (formname.cloners_instcode.length) { |
Line 118 ENDSCRIPT
|
Line 119 ENDSCRIPT
|
} |
} |
} |
} |
my $alert = &mt('You must select at least one functionality type to display.'); |
my $alert = &mt('You must select at least one functionality type to display.'); |
|
&js_escape(\$alert); |
my $js = ' |
my $js = ' |
<script type="text/javascript"> |
<script type="text/javascript"> |
// <![CDATA[ |
// <![CDATA[ |
Line 336 sub display_settings {
|
Line 338 sub display_settings {
|
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) { |
my $rowsum = 0; |
my $rowsum = 0; |
my (%output,%rowtotal,@items); |
my (%output,%rowtotal,@items,$got_check_uncheck); |
foreach my $item (@{$prefs_order}) { |
foreach my $item (@{$prefs_order}) { |
if (grep(/^\Q$item\E$/,@actions)) { |
if (grep(/^\Q$item\E$/,@actions)) { |
push(@items,$item); |
push(@items,$item); |
Line 345 sub display_settings {
|
Line 347 sub display_settings {
|
if (ref($values) eq 'HASH') { |
if (ref($values) eq 'HASH') { |
$settings = $values->{$item}; |
$settings = $values->{$item}; |
} |
} |
if ($item eq 'usersessions') { |
if (($item eq 'usersessions') || ($item eq 'ssl')) { |
$r->print('<script type="text/javascript">'."\n". |
unless ($got_check_uncheck) { |
'// <![CDATA['."\n". |
$r->print('<script type="text/javascript">'."\n". |
&Apache::loncommon::check_uncheck_jscript()."\n". |
'// <![CDATA['."\n". |
'// ]]>'."\n". |
&Apache::loncommon::check_uncheck_jscript()."\n". |
'</script>'."\n"); |
'// ]]>'."\n". |
|
'</script>'."\n"); |
|
$got_check_uncheck = 1; |
|
} |
} elsif ($item eq 'selfcreation') { |
} elsif ($item eq 'selfcreation') { |
if (ref($values) eq 'HASH') { |
if (ref($values) eq 'HASH') { |
$settings = $values->{'usercreation'}; |
$settings = $values->{'usercreation'}; |