--- loncom/enrollment/localenroll.pm 2004/03/18 01:02:20 1.8 +++ loncom/enrollment/localenroll.pm 2004/06/17 18:31:25 1.9 @@ -1,6 +1,6 @@ # functions to glue school database system into Lon-CAPA for # automated enrollment -# $Id: localenroll.pm,v 1.8 2004/03/18 01:02:20 raeburn Exp $ +# $Id: localenroll.pm,v 1.9 2004/06/17 18:31:25 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -33,7 +33,10 @@ use strict; # set this to return 1 if you want the auto enrollment to run ################################ -sub run { return 0; } +sub run() { + my $dom = shift; + return 0; +} ################################ # sub fetch_enrollment @@ -105,13 +108,14 @@ sub run { return 0; } # # # The and the are the activation date and expiration date -# for this student's role. If they are absent, then neither a start date nor an end -# date will be set, and the student role will remain active until the role is -# explicitly expired using ENRL -> Drop students. -# An option to set a default activation date, and a default expiration date will -# be added to loncreatecourse.pm, and lonpopulate.pm in a future release. -# Once these default parameters are available, they will be used as the start date and -# the end date in cases where the and fields are blank. +# for this student's role. If they are absent, then the default access start and +# default access end dates are used. The default access dates can be set when +# the course is created, and can be modified using the Automated Enrollment +# Manager, or via the 'Upload a class list','Enroll a single student' or +# 'Modify student data' utilities in the Enrollment Manager, by checking the +# 'make these dates the default for future enrollment' checkbox. If no default +# dates have been set, then the tudent role will be active immediately, and will +# remain active until the role is explicitly expired using ENRL -> Drop students. # If dates are to included in the XML file, they should be in the format # YYYY:MM:DD:HH:MM:SS (: separators required). # @@ -173,7 +177,7 @@ sub fetch_enrollment { ################################ sub get_sections { - my $coursecode = shift; + my ($coursecode,$dom) = @_; my @secs = (); return @secs; } @@ -206,7 +210,7 @@ sub get_sections { ################################# sub new_course { - my ($course_id,$owner) = @_; + my ($course_id,$owner,$dom) = @_; my $outcome = 'ok'; return $outcome; } @@ -231,7 +235,7 @@ sub new_course { ############################### sub validate_courseID { - my $course_id = shift; + my ($course_id,$dom) = @_; my $outcome = 'ok'; return $outcome; } @@ -268,7 +272,7 @@ sub validate_courseID { ############################### sub create_password { - my $authparam = shift; + my ($authparam,$dom) = @_; my $authchk = 'ok'; my $create_passwd = 0; return ($authparam,$create_passwd,$authchk);