version 1.237, 2008/03/08 03:48:41
|
version 1.238, 2008/03/12 02:45:06
|
Line 1986 END
|
Line 1986 END
|
foreach my $key (keys(%changeHash)) { |
foreach my $key (keys(%changeHash)) { |
$newenvhash{'environment.'.$key} = $changeHash{$key}; |
$newenvhash{'environment.'.$key} = $changeHash{$key}; |
} |
} |
&Apache::lonnet::appenv(%newenvhash); |
&Apache::lonnet::appenv(\%newenvhash); |
} |
} |
} else { # error occurred |
} else { # error occurred |
$r->print('<span class="LC_error">'.&mt('Unable to successfully change environment for').' '. |
$r->print('<span class="LC_error">'.&mt('Unable to successfully change environment for').' '. |
Line 3998 sub update_selfenroll_config {
|
Line 3998 sub update_selfenroll_config {
|
foreach my $key (keys(%changes)) { |
foreach my $key (keys(%changes)) { |
$newenvhash{'course.'.$env{'request.course.id'}.'.'.$key} = $changes{$key}; |
$newenvhash{'course.'.$env{'request.course.id'}.'.'.$key} = $changes{$key}; |
} |
} |
&Apache::lonnet::appenv(%newenvhash); |
&Apache::lonnet::appenv(\%newenvhash); |
} else { |
} else { |
$r->print(&mt('An error occurred when saving changes to self-enrollment settings in this course.').'<br />'.&mt('The error was: [_1].',$putresult)); |
$r->print(&mt('An error occurred when saving changes to self-enrollment settings in this course.').'<br />'.&mt('The error was: [_1].',$putresult)); |
} |
} |