loncom/interface/londropadd.pm - diff

Return to londropadd.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.115, 2004/06/29 04:30:00	version 1.116, 2004/07/19 17:58:10
Line 924 sub print_enroll_single_student_form {	Line 924 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;
	$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;