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