loncom/interface/loncreateuser.pm - diff

Return to loncreateuser.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.340, 2010/04/14 13:58:11	version 1.342, 2010/04/28 14:55:58
Line 2385 sub update_user_data {	Line 2385 sub update_user_data {
}	}
}	}
foreach my $item (@requestcourses) {	foreach my $item (@requestcourses) {
$newcustom{$item} = $env{'form.crsreq_'.$item};	if ($env{'form.custom'.$item} == 1) {
if ($env{'form.crsreq_'.$item} eq 'autolimit') {	$newcustom{$item} = $env{'form.crsreq_'.$item};
$newcustom{$item} .= '=';	if ($env{'form.crsreq_'.$item} eq 'autolimit') {
unless ($env{'form.crsreq_'.$item.'_limit'} =~ /\D/) {	$newcustom{$item} .= '=';
$newcustom{$item} .= $env{'form.crsreq_'.$item.'_limit'};	unless ($env{'form.crsreq_'.$item.'_limit'} =~ /\D/) {
	$newcustom{$item} .= $env{'form.crsreq_'.$item.'_limit'};
	}
}	}
	$changed{$item} = &tool_admin($item,$newcustom{$item},
	\%changeHash,'requestcourses');
}	}
$changed{$item} = &tool_admin($item,$newcustom{$item},
\%changeHash,'requestcourses');
}	}
}	}
if ($canmodify_status{'inststatus'}) {	if ($canmodify_status{'inststatus'}) {
Line 4526 sub print_main_menu {	Line 4528 sub print_main_menu {
push(@{ $menu[2]->{items} },	push(@{ $menu[2]->{items} },
{	{
linktext => 'User Self-Enrollment',	linktext => 'User Self-Enrollment',
icon => 'cstr.png',	icon => 'self_enroll.png',
#help => 'Course_Self_Enrollment',	#help => 'Course_Self_Enrollment',
url => '/adm/createuser?action=selfenroll',	url => '/adm/createuser?action=selfenroll',
permission => $permission->{'cusr'},	permission => $permission->{'cusr'},