loncom/interface/londropadd.pm - diff

Return to londropadd.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.76, 2003/07/21 17:54:43	version 1.77, 2003/07/25 18:05:06
Line 553 sub print_upload_manager_form {	Line 553 sub print_upload_manager_form {
# ======================================================= Enroll single student	# ======================================================= Enroll single student
sub enroll_single_student {	sub enroll_single_student {
my $r=shift;	my $r=shift;
	# Remove whitespace from section
	$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 1195 END	Line 1197 END
sub modify_single_student {	sub modify_single_student {
my $r = shift;	my $r = shift;
#	#
	# Remove whitespace from the section
	$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();
if ($ENV{'form.makedatesdefault'}) {	if ($ENV{'form.makedatesdefault'}) {
Line 1625 sub upfile_drop_add {	Line 1630 sub upfile_drop_add {
$sec=$entries{$fields{'sec'}};	$sec=$entries{$fields{'sec'}};
}	}
}	}
	# remove whitespace from section
	$sec =~ s/\s//g;
# determine student id number	# determine student id number
my $id='';	my $id='';
if (defined($fields{'id'})) {	if (defined($fields{'id'})) {