loncom/interface/londropadd.pm - diff

Return to londropadd.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.68, 2003/06/20 20:57:44	version 1.70, 2003/07/02 15:25:46
Line 85 sub modifystudent {	Line 85 sub modifystudent {
# 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.':';
}	}
Line 660 sub make_dates_default {	Line 661 sub make_dates_default {
'default_enrollment_end_date' =>$enddate},$dom,$crs);	'default_enrollment_end_date' =>$enddate},$dom,$crs);
if ($put_result eq 'ok') {	if ($put_result eq 'ok') {
$result .= "Set default start and end dates for course<br />";	$result .= "Set default start and end dates for course<br />";
	#
	# Refresh the course environment
	&Apache::lonnet::coursedescription($ENV{'request.course.id'});
} else {	} else {
$result .= "Unable to set default dates for course:".$put_result.	$result .= "Unable to set default dates for course:".$put_result.
'<br />';	'<br />';