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.87, 2004/09/23 22:51:24
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)) \|\|
Line 413 END	Line 413 END
$bgcol=substr($bgcol.$bgcol.$bgcol.'ffffff',2,6);	$bgcol=substr($bgcol.$bgcol.$bgcol.'ffffff',2,6);
if ($area=~/^\/(\w+)\/(\d\w+)\/(\w+)/) {	if ($area=~/^\/(\w+)\/(\d\w+)\/(\w+)/) {
$carea.='<br>Section/Group: '.$3;	$carea.='<br>Section/Group: '.$3;
	$sortkey.="\0$3";
}	}
$area=$carea;	$area=$carea;
} else {	} else {