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.85, 2004/07/19 17:58:10
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);