loncom/interface/londropadd.pm - diff

Return to londropadd.pm CVS log

Up to [LON-CAPA] / loncom / interface

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;