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 />'; |