version 1.8.2.13, 2010/09/17 02:16:18
|
version 1.8.2.15, 2010/11/19 14:58:35
|
Line 393 sub handler {
|
Line 393 sub handler {
|
help => 'Course_Environment', |
help => 'Course_Environment', |
header => [{col1 => 'Setting', |
header => [{col1 => 'Setting', |
col2 => 'Value',}], |
col2 => 'Value',}], |
ordered => ['plc.roles.denied','plc.users.denied', |
ordered => ['pch.roles.denied','pch.users.denied', |
'pch.roles.denied','pch.users.denied', |
'plc.roles.denied','plc.users.denied', |
'allow_limited_html_in_feedback', |
'allow_limited_html_in_feedback', |
'allow_discussion_post_editing'], |
'allow_discussion_post_editing'], |
itemtext => { |
itemtext => { |
'plc.roles.denied' => 'No Resource Discussion', |
'pch.roles.denied' => 'No Resource Discussion', |
'plc.users.denied' => 'No Resource Discussion', |
'pch.users.denied' => 'No Resource Discussion', |
'pch.roles.denied' => 'No Chat room use', |
'plc.roles.denied' => 'No Chat room use', |
'pch.users.denied' => 'No Chat room use', |
'plc.users.denied' => 'No Chat room use', |
allow_limited_html_in_feedback => 'Allow limited HTML in discussion posts', |
allow_limited_html_in_feedback => 'Allow limited HTML in discussion posts', |
allow_discussion_post_editing => 'Users can edit/delete own discussion posts', |
allow_discussion_post_editing => 'Users can edit/delete own discussion posts', |
}, |
}, |
Line 709 sub process_changes {
|
Line 709 sub process_changes {
|
if (exists($env{'form.cloners_activate'})) { |
if (exists($env{'form.cloners_activate'})) { |
my $actnum = $env{'form.cloners_activate'}; |
my $actnum = $env{'form.cloners_activate'}; |
if ($actnum ne '') { |
if ($actnum ne '') { |
if ($env{'form.clonersdom_'.$actnum} ne '') { |
if ($env{'form.cloners_dom_'.$actnum} ne '') { |
my $clonedom = $env{'form.clonersdom_'.$actnum}; |
my $clonedom = $env{'form.cloners_dom_'.$actnum}; |
if (&check_clone($clonedom,$disallowed) eq 'ok') { |
if (&check_clone($clonedom,$disallowed) eq 'ok') { |
$newvalues{$entry} = '*:'.$clonedom; |
$newvalues{$entry} = '*:'.$clonedom; |
push(@clonedoms,$newvalues{$entry}); |
push(@clonedoms,$newvalues{$entry}); |
Line 1312 sub store_changes {
|
Line 1312 sub store_changes {
|
if ($key eq 'url') { |
if ($key eq 'url') { |
my $bkuptime=time; |
my $bkuptime=time; |
$output .= (' 'x2).&mt('(Previous URL backed up)').': '. |
$output .= (' 'x2).&mt('(Previous URL backed up)').': '. |
$storehash{'top level map backup '.$bkuptime} => $values->{$key}; |
$storehash{'top level map backup '.$bkuptime} = $values->{$key}; |
} |
} |
$output .= '</li>'; |
$output .= '</li>'; |
} |
} |