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

[matthew]

matthew		Wed Jul  2 15:52:56 2003 EDT

  Modified files:              
    /loncom/interface	londropadd.pm 
  Log:
  Bugs 1084 and 1832 - spurious error message about changing section.
  
  
Index: loncom/interface/londropadd.pm
diff -u loncom/interface/londropadd.pm:1.70 loncom/interface/londropadd.pm:1.71
--- loncom/interface/londropadd.pm:1.70	Wed Jul  2 11:25:46 2003
+++ loncom/interface/londropadd.pm	Wed Jul  2 15:52:56 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to drop and add students in courses 
 #
-# $Id: londropadd.pm,v 1.70 2003/07/02 15:25:46 matthew Exp $
+# $Id: londropadd.pm,v 1.71 2003/07/02 19:52:56 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -79,7 +79,9 @@
             # We are in this course
             my $section=$1;
             $section='' if ($course eq $courseid.'_st');
-            if ( ((!$section) && (!$csec)) || ($section ne $csec) ) {
+            if ($section eq $csec) {
+                $result .= 'ok:';
+            } elsif ( ((!$section) && (!$csec)) || ($section ne $csec) ) {
                 my (undef,$end,$start)=split(/\_/,$roles{$course});
                 my $now=time;
                 # if this is an active role