loncom/interface/londropadd.pm - diff

Return to londropadd.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.77, 2003/07/25 18:05:06	version 1.78, 2003/07/25 18:51:18
Line 554 sub print_upload_manager_form {	Line 554 sub print_upload_manager_form {
sub enroll_single_student {	sub enroll_single_student {
my $r=shift;	my $r=shift;
# Remove whitespace from section	# Remove whitespace from section
$ENV{'form.csec'}=~s/\s//g;	$ENV{'form.csec'}=~s/(\s\|:)//g;
#	#
# We do the dates first because the action of making them the defaul	# We do the dates first because the action of making them the defaul
# in the course is entirely seperate from the action of enrolling the	# in the course is entirely seperate from the action of enrolling the
Line 1198 sub modify_single_student {	Line 1198 sub modify_single_student {
my $r = shift;	my $r = shift;
#	#
# Remove whitespace from the section	# Remove whitespace from the section
$ENV{'form.section'} =~ s/\s//g;	$ENV{'form.section'} =~ s/(\s\|:)//g;
#	#
# Do the date defaults first	# Do the date defaults first
my ($starttime,$endtime) = &get_dates_from_form();	my ($starttime,$endtime) = &get_dates_from_form();
Line 1631 sub upfile_drop_add {	Line 1631 sub upfile_drop_add {
}	}
}	}
# remove whitespace from section	# remove whitespace from section
$sec =~ s/\s//g;	$sec =~ s/(\s\|:)//g;
# determine student id number	# determine student id number
my $id='';	my $id='';
if (defined($fields{'id'})) {	if (defined($fields{'id'})) {