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'})) { |