loncom/interface/londropadd.pm - diff

Return to londropadd.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.70, 2003/07/02 15:25:46	version 1.71, 2003/07/02 19:52:56
Line 79 sub modifystudent {	Line 79 sub modifystudent {
# We are in this course	# We are in this course
my $section=$1;	my $section=$1;
$section='' if ($course eq $courseid.'_st');	$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 (undef,$end,$start)=split(/\_/,$roles{$course});
my $now=time;	my $now=time;
# if this is an active role	# if this is an active role