version 1.79, 2003/07/28 17:10:12
|
version 1.80, 2003/07/29 20:00:56
|
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 |
# Remove non alphanumeric values from section |
$ENV{'form.csec'}=~s/(\s|:)//g; |
$ENV{'form.csec'}=~s/\W//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 1201 END
|
Line 1201 END
|
sub modify_single_student { |
sub modify_single_student { |
my $r = shift; |
my $r = shift; |
# |
# |
# Remove whitespace from the section |
# Remove non alphanumeric values from the section |
$ENV{'form.section'} =~ s/(\s|:)//g; |
$ENV{'form.section'} =~ s/\W//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 1642 sub upfile_drop_add {
|
Line 1642 sub upfile_drop_add {
|
$sec=$entries{$fields{'sec'}}; |
$sec=$entries{$fields{'sec'}}; |
} |
} |
} |
} |
# remove whitespace from section |
# remove non alphanumeric values from section |
$sec =~ s/(\s|:)//g; |
$sec =~ s/\W//g; |
# determine student id number |
# determine student id number |
my $id=''; |
my $id=''; |
if (defined($fields{'id'})) { |
if (defined($fields{'id'})) { |