loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

version 1.369, 2007/04/04 00:02:50	version 1.370, 2007/04/04 00:03:40
Line 4619 sub inst_usertypes_handler {	Line 4619 sub inst_usertypes_handler {
my ($cmd, $domain, $client) = @_;	my ($cmd, $domain, $client) = @_;
my $res;	my $res;
my $userinput = $cmd.":".$domain; # For logging purposes.	my $userinput = $cmd.":".$domain; # For logging purposes.
my (%typeshash,@order);	my (%typeshash,@order,$result);
if (&localenroll::inst_usertypes($domain,\%typeshash,\@order) eq 'ok') {	eval {
	local($SIG{__DIE__})='DEFAULT';
	$result=&localenroll::inst_usertypes($domain,\%typeshash,\@order);
	};
	if ($result eq 'ok') {
if (keys(%typeshash) > 0) {	if (keys(%typeshash) > 0) {
foreach my $key (keys(%typeshash)) {	foreach my $key (keys(%typeshash)) {
$res.=&escape($key).'='.&escape($typeshash{$key}).'&';	$res.=&escape($key).'='.&escape($typeshash{$key}).'&';