--- loncom/interface/Attic/londropadd.pm 2001/08/24 21:09:53 1.15 +++ loncom/interface/Attic/londropadd.pm 2001/09/25 18:12:43 1.16 @@ -19,6 +19,8 @@ # YEAR=2001 # 01/01/01,01/15,02/10,02/13,02/14,02/22 Gerd Kortemeyer # 8/6 Scott Harrison +# Guy Albertelli +# 9/25 Gerd Kortemeyer package Apache::londropadd; @@ -150,7 +152,7 @@ sub dropstudent { if ($key=~/^$courseid(?:\/)*(\w+)*\_st$/) { my $section=$1; if ($key eq $courseid.'_st') { $section=''; } - if ($section ne $csec) { + if (((!$section) && (!$csec)) || ($section ne $csec)) { my ($dummy,$end,$start)=split(/\_/, &Apache::lonnet::unescape($value)); my $now=time;