loncom/interface/londropadd.pm - diff

Return to londropadd.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.69, 2003/06/23 14:38:53	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
if (!($start && ($now<$start)) \|\| !($end && ($now>$end))) {	if (!($start && ($now<$start)) \|\| !($end && ($now>$end))) {
my $reply=&Apache::lonnet::modifystudent	my $reply=&Apache::lonnet::modifystudent
($udom,$unam,'','','','','','','',	# dom name id mode pass f m l g
	($udom,$unam,'', '', '',undef,undef,undef,undef,
$section,time,undef,undef,$desiredhost);	$section,time,undef,undef,$desiredhost);
$result .= $reply.':';	$result .= $reply.':';
}	}