loncom/interface/loncreateuser.pm - diff

Return to loncreateuser.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.97, 2005/01/11 22:08:08	version 1.98, 2005/01/11 22:12:22
Line 173 sub print_user_modification_page {	Line 173 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//g;
$ccdomain=~s/[\W\|_]//gs;	$ccdomain=~s/\W//g;

unless (($ccuname) && ($ccdomain)) {	unless (($ccuname) && ($ccdomain)) {
&print_username_entry_form($r);	&print_username_entry_form($r);
Line 1176 END	Line 1176 END
$r->print(&commit_customrole($securl,$three,$four,$five,$start,$end));	$r->print(&commit_customrole($securl,$three,$four,$five,$start,$end));
}	}
}	}
} elsif ($_=~/^form\.act\_([^\_]+)\_([^\_]+)\_([^\_]+)$/) {	} elsif ($_=~/^form\.act\_([^\_]+)\_(\w+)\_([^\_]+)$/) {
# Activate roles for sections with 3 id numbers	# Activate roles for sections with 3 id numbers
# set start, end times, and the url for the class	# set start, end times, and the url for the class
my ($one,$two,$three)=($1,$2,$3);	my ($one,$two,$three)=($1,$2,$3);