loncom/interface/londropadd.pm - diff

Return to londropadd.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.122, 2004/12/02 19:00:38	version 1.123, 2005/01/11 22:12:22
Line 937 sub print_enroll_single_student_form {	Line 937 sub print_enroll_single_student_form {
#	#
my $username = $ENV{'form.cuname'};	my $username = $ENV{'form.cuname'};
my $domain = $ENV{'form.cudomain'};	my $domain = $ENV{'form.cudomain'};
$username=~s/[\W\|_]//gs;	$username=~s/\W//gs;
$domain=~s/[\W\|_]//gs;	$domain=~s/\W//gs;
my $home = &Apache::lonnet::homeserver($username,$domain);	my $home = &Apache::lonnet::homeserver($username,$domain);
# $new_user flags whether we are creating a new user or using an old one	# $new_user flags whether we are creating a new user or using an old one
my $new_user = 1;	my $new_user = 1;