--- loncom/interface/Attic/londropadd.pm 2003/07/14 15:25:59 1.74 +++ loncom/interface/Attic/londropadd.pm 2003/07/25 18:51:18 1.78 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to drop and add students in courses # -# $Id: londropadd.pm,v 1.74 2003/07/14 15:25:59 matthew Exp $ +# $Id: londropadd.pm,v 1.78 2003/07/25 18:51:18 matthew Exp $ # # Copyright Michigan State University Board of Trustees # @@ -154,7 +154,7 @@ sub print_main_menu {
- View Classlist + View Class List
@@ -553,6 +553,8 @@ sub print_upload_manager_form {
# ======================================================= Enroll single student
sub enroll_single_student {
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
# in the course is entirely seperate from the action of enrolling the
@@ -753,7 +755,7 @@ sub print_enroll_single_student_form {
my $defdom=$r->dir_config('lonDefDomain');
# Set up authentication forms
my ($krbdef,$krbdefdom) =
- &Apache::loncommon::get_kerberos_defaults($defdom);
+ &Apache::loncommon::get_kerberos_defaults($domain);
$javascript_validations=&javascript_validations($krbdefdom);
my %param = ( formname => 'document.studentform',
kerb_def_dom => $krbdefdom,
@@ -794,9 +796,9 @@ Please select an authentication mechanis
$krbform
-
+
+
-Current Classlist
+Current Class List
END
if ($ENV{'form.action'} ne 'modifystudent') {
@@ -1028,7 +1030,7 @@ END
$excel_workbook->set_tempdir('/home/httpd/perl/tmp');
$excel_sheet = $excel_workbook->addworksheet('classlist');
#
- my $description = 'Classlist for '.
+ my $description = 'Class List for '.
$ENV{'course.'.$ENV{'request.course.id'}.'.description'};
$excel_sheet->write($row++,0,$description);
#
@@ -1195,6 +1197,9 @@ END
sub modify_single_student {
my $r = shift;
#
+ # Remove whitespace from the section
+ $ENV{'form.section'} =~ s/(\s|:)//g;
+ #
# Do the date defaults first
my ($starttime,$endtime) = &get_dates_from_form();
if ($ENV{'form.makedatesdefault'}) {
@@ -1625,6 +1630,8 @@ sub upfile_drop_add {
$sec=$entries{$fields{'sec'}};
}
}
+ # remove whitespace from section
+ $sec =~ s/(\s|:)//g;
# determine student id number
my $id='';
if (defined($fields{'id'})) {
$intform
-
$locform