[LON-CAPA-cvs] cvs: loncom /interface londropadd.pm

[matthew]

matthew		Wed May  1 16:54:10 2002 EDT

  Modified files:              
    /loncom/interface	londropadd.pm 
  Log:
  Fixed bogus error reporting.
  
  
Index: loncom/interface/londropadd.pm
diff -u loncom/interface/londropadd.pm:1.36 loncom/interface/londropadd.pm:1.37
--- loncom/interface/londropadd.pm:1.36	Wed May  1 16:15:41 2002
+++ loncom/interface/londropadd.pm	Wed May  1 16:54:10 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to drop and add students in courses 
 #
-# $Id: londropadd.pm,v 1.36 2002/05/01 20:15:41 albertel Exp $
+# $Id: londropadd.pm,v 1.37 2002/05/01 20:54:10 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -106,8 +106,8 @@
     }
     if ($result eq '') {
         $result eq 'Unable to find section for this student';
-    } elsif ($result =~ /^(ok:)+$/) {
-        $result eq 'ok';
+    } else {
+        $result =~ s/(ok:)+/ok/g;
     }
     return $result;
 }
@@ -956,7 +956,7 @@
     foreach (@droplist) {
         my ($uname,$udom)=split(/\:/,$_);
         my $result = &modifystudent($udom,$uname,$ENV{'request.course.id'});
-        if ($result eq 'ok') {
+        if ($result eq 'ok' || $result eq 'ok:') {
             $r->print('Dropped '.$uname.' at '.$udom.'<br>');
         } else {
             $r->print('Error dropping '.$uname.' at '.$udom.': '.$result.