loncom/interface/courseprefs.pm - diff

Return to courseprefs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.31, 2010/09/17 23:53:01	version 1.33, 2010/11/19 14:56:14
Line 687 sub process_changes {	Line 687 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 1296 sub store_changes {	Line 1296 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>';
}	}