--- loncom/interface/Attic/londropadd.pm 2003/06/20 20:57:44 1.68
+++ loncom/interface/Attic/londropadd.pm 2003/07/02 15:25:46 1.70
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to drop and add students in courses
#
-# $Id: londropadd.pm,v 1.68 2003/06/20 20:57:44 matthew Exp $
+# $Id: londropadd.pm,v 1.70 2003/07/02 15:25:46 matthew Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -85,7 +85,8 @@ sub modifystudent {
# if this is an active role
if (!($start && ($now<$start)) || !($end && ($now>$end))) {
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);
$result .= $reply.':';
}
@@ -660,6 +661,9 @@ sub make_dates_default {
'default_enrollment_end_date' =>$enddate},$dom,$crs);
if ($put_result eq 'ok') {
$result .= "Set default start and end dates for course
";
+ #
+ # Refresh the course environment
+ &Apache::lonnet::coursedescription($ENV{'request.course.id'});
} else {
$result .= "Unable to set default dates for course:".$put_result.
'
';