version 1.21.4.3, 2013/09/10 01:23:45
|
version 1.21.4.6, 2014/04/23 10:26:37
|
Line 181 sub make_changes {
|
Line 181 sub make_changes {
|
{href=>"javascript:changePage(document.$phase,'$phase')", |
{href=>"javascript:changePage(document.$phase,'$phase')", |
text=>"Updated"}); |
text=>"Updated"}); |
&print_header($r,$phase,$context,undef,$container); |
&print_header($r,$phase,$context,undef,$container); |
my ($crstype,$lastact); |
my ($crstype,%lastact); |
if ($context eq 'course') { |
if ($context eq 'course') { |
$crstype = &Apache::loncommon::course_type(); |
$crstype = &Apache::loncommon::course_type(); |
} |
} |
Line 192 sub make_changes {
|
Line 192 sub make_changes {
|
if ($context eq 'domain') { |
if ($context eq 'domain') { |
$r->print('<h3>'.&mt($prefs->{$item}{'text'}).'</h3>'. |
$r->print('<h3>'.&mt($prefs->{$item}{'text'}).'</h3>'. |
&Apache::domainprefs::process_changes($r,$dom, |
&Apache::domainprefs::process_changes($r,$dom, |
$confname,$item,$roles,$values,\$lastact)); |
$confname,$item,$roles,$values,\%lastact)); |
} else { |
} else { |
$changes{$item} = {}; |
$changes{$item} = {}; |
&Apache::courseprefs::process_changes($dom,$item,$values, |
&Apache::courseprefs::process_changes($dom,$item,$values, |
Line 237 sub make_changes {
|
Line 237 sub make_changes {
|
} |
} |
&print_footer($r,$phase,'display',$footer_text,\@actions,$container); |
&print_footer($r,$phase,'display',$footer_text,\@actions,$container); |
$r->print('</p>'); |
$r->print('</p>'); |
return $lastact; |
return \%lastact; |
} |
} |
|
|
sub display_settings { |
sub display_settings { |
Line 258 sub display_settings {
|
Line 258 sub display_settings {
|
if (grep(/^\Q$item\E$/,@actions)) { |
if (grep(/^\Q$item\E$/,@actions)) { |
push(@items,$item); |
push(@items,$item); |
if ($context eq 'domain') { |
if ($context eq 'domain') { |
|
my $settings; |
|
if (ref($values) eq 'HASH') { |
|
$settings = $values->{$item}; |
|
} |
if ($item eq 'usersessions') { |
if ($item eq 'usersessions') { |
$r->print('<script type="text/javascript">'."\n". |
$r->print('<script type="text/javascript">'."\n". |
'// <![CDATA['."\n". |
'// <![CDATA['."\n". |
&Apache::loncommon::check_uncheck_jscript()."\n". |
&Apache::loncommon::check_uncheck_jscript()."\n". |
'// ]]>'."\n". |
'// ]]>'."\n". |
'</script>'."\n"); |
'</script>'."\n"); |
|
} elsif ($item eq 'selfcreation') { |
|
if (ref($values) eq 'HASH') { |
|
$settings = $values->{'usercreation'}; |
|
} |
|
} elsif ($item eq 'defaults') { |
|
if (ref($values->{'inststatus'}) eq 'HASH') { |
|
if (ref($values->{'defaults'}) eq 'HASH') { |
|
$settings = {%{$values->{'inststatus'}},%{$values->{'defaults'}}}; |
|
} else { |
|
$settings = $values->{'inststatus'}; |
|
} |
|
} else { |
|
my ($othertitle,$usertypes,$types) = &Apache::loncommon::sorted_inst_types($dom); |
|
my $inststatus = { |
|
inststatustypes => $usertypes, |
|
inststatusorder => $types, |
|
inststatusguest => [], |
|
}; |
|
if (ref($values->{defaults}) eq 'HASH') { |
|
$settings = {%{$inststatus},%{$values->{'defaults'}}}; |
|
} else { |
|
$settings = $inststatus; |
|
} |
|
} |
} |
} |
($output{$item},$rowtotal{$item}) = |
($output{$item},$rowtotal{$item}) = |
&Apache::domainprefs::print_config_box($r,$dom,$confname, |
&Apache::domainprefs::print_config_box($r,$dom,$confname, |
$phase,$item,$prefs->{$item},$values->{$item}); |
$phase,$item,$prefs->{$item},$settings); |
} else { |
} else { |
($output{$item},$rowtotal{$item}) = |
($output{$item},$rowtotal{$item}) = |
&Apache::courseprefs::print_config_box($r,$dom,$phase, |
&Apache::courseprefs::print_config_box($r,$dom,$phase, |