version 1.77, 2003/07/25 18:05:06
|
version 1.79, 2003/07/28 17:10:12
|
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 622 sub enroll_single_student {
|
Line 622 sub enroll_single_student {
|
$r->print("unable to enroll: ".$login_result); |
$r->print("unable to enroll: ".$login_result); |
} |
} |
} else { |
} else { |
$r->print('<p><font color="#ff0000">ERROR</font> '. |
$r->print('<p><font color="#ff0000">ERROR</font> '); |
'Invalid login mode or password. '. |
if ($amode =~ /^krb/) { |
'Unable to enroll '.$ENV{'form.cuname'}.'.</p>'); |
$r->print('Missing Kerberos domain information. '); |
} |
} else { |
|
$r->print('Invalid login mode or password. '); |
|
} |
|
$r->print('<b>Unable to enroll '.$ENV{'form.cuname'}.'.</b></p>'); |
|
} |
} else { |
} else { |
$r->print('Invalid username or domain'); |
$r->print('Invalid username or domain'); |
} |
} |
Line 1198 sub modify_single_student {
|
Line 1202 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 1585 sub upfile_drop_add {
|
Line 1589 sub upfile_drop_add {
|
$genpwd=$ENV{'form.locarg'}; |
$genpwd=$ENV{'form.locarg'}; |
} |
} |
} |
} |
|
if ($amode =~ /^krb/) { |
|
if (! defined($genpwd) || $genpwd eq '') { |
|
$r->print('<font color="red" size="+1">'. |
|
'Unable to enroll students:'.'</font> '. |
|
'No Kerberos domain was specified.</p>'); |
|
$amode = ''; # This causes the loop below to be skipped |
|
} |
|
} |
unless (($domain=~/\W/) || ($amode eq '')) { |
unless (($domain=~/\W/) || ($amode eq '')) { |
####################################### |
####################################### |
## Enroll Students ## |
## Enroll Students ## |
Line 1631 sub upfile_drop_add {
|
Line 1643 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'})) { |