loncom/interface/londropadd.pm - diff

Return to londropadd.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.121, 2004/11/12 16:34:15	version 1.123, 2005/01/11 22:12:22
Line 141 sub print_main_menu {	Line 141 sub print_main_menu {
my ($cdom,$cnum) = split/_/,$ENV{'request.course.id'};	my ($cdom,$cnum) = split/_/,$ENV{'request.course.id'};
my @menu =	my @menu =
(	(
{ text => 'Uploade a class list',	{ text => 'Upload a class list',
help => 'Course_Create_Class_List',	help => 'Course_Create_Class_List',
action => 'upload',	action => 'upload',
permission => $enrl_permission,	permission => $enrl_permission,
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;