loncom/interface/loncreateuser.pm - diff

Return to loncreateuser.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.84, 2004/07/03 20:45:23	version 1.86, 2004/08/24 23:50:15
Line 174 sub print_user_modification_page {	Line 174 sub print_user_modification_page {
my $ccuname=$ENV{'form.ccuname'};	my $ccuname=$ENV{'form.ccuname'};
my $ccdomain=$ENV{'form.ccdomain'};	my $ccdomain=$ENV{'form.ccdomain'};

$ccuname=~s/\W//gs;	$ccuname=~s/[\W\|_]//gs;
$ccdomain=~s/\W//gs;	$ccdomain=~s/[\W\|_]//gs;

unless (($ccuname) && ($ccdomain)) {	unless (($ccuname) && ($ccdomain)) {
&print_username_entry_form($r);	&print_username_entry_form($r);
Line 389 END	Line 389 END
$sortkey.="\0".$coursedata{'description'};	$sortkey.="\0".$coursedata{'description'};
} else {	} else {
$carea=&mt('Unavailable course').': '.$area;	$carea=&mt('Unavailable course').': '.$area;
$sortkey.="\0".&mt('Unavailable course');	$sortkey.="\0".&mt('Unavailable course').': '.$area;
}	}
$inccourses{$1.'_'.$2}=1;	$inccourses{$1.'_'.$2}=1;
if ((&Apache::lonnet::allowed('c'.$role_code,$1.'/'.$2)) \|\|	if ((&Apache::lonnet::allowed('c'.$role_code,$1.'/'.$2)) \|\|