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