[BACK]Return to londropadd.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/Attic/londropadd.pm between versions 1.79 and 1.80

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'})) {
Removed from v.1.79  
changed lines
  Added in v.1.80

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>