loncom/interface/loncreateuser.pm - diff

Return to loncreateuser.pm CVS log

Up to [LON-CAPA] / loncom / interface

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));
}	}