--- loncom/enrollment/localenroll.pm	2006/02/07 05:08:21	1.12
+++ loncom/enrollment/localenroll.pm	2006/08/29 05:58:06	1.16
@@ -1,6 +1,6 @@
 # functions to glue school database system into Lon-CAPA for 
 # automated enrollment
-# $Id: localenroll.pm,v 1.12 2006/02/07 05:08:21 raeburn Exp $
+# $Id: localenroll.pm,v 1.16 2006/08/29 05:58:06 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -204,8 +204,9 @@ sub get_sections {
 # (a) the institutional courseID (in the MSU case this is a concatenation of 
 # semester code, department code, course number, and section number
 # e.g., fs03nop590001).
-# (b) the course owner. This is the LON-CAPA username of the course coordinator 
-# assigned to the course when it is first created.
+# (b) the course owner. This is the LON-CAPA username and domain of the course 
+# coordinator assigned to the course when it is first created, in the form
+# username:domain
 # (c) the LON-CAPA domain that contains the course
 #
 #################################
@@ -256,8 +257,8 @@ sub validate_courseID {
 # (a) $authparam - the value of <autharg> from the classlist.xml files,
 # or if this blank, the default autharg, set by the domain coordinator when 
 # creating the course with loncreatecourse.pm
-# (b) $username - the username of the new user
 # (b) $dom - the domain of the new user.
+# (c) $username - the username of the new user (currently not actually used)
 #
 # Four values are returned:
 # (a) the value of $authparam - which might have been changed
@@ -286,7 +287,7 @@ sub validate_courseID {
 ###############################
 
 sub create_password {
-    my ($authparam,$username,$dom) = @_;
+    my ($authparam,$dom,$username) = @_;
     my $authchk = 'ok';
     my $newpasswd = '';
     my $create_passwd = 0;
@@ -416,4 +417,43 @@ sub manager_photo_update {
     return ($update,$comment);
 }
 
+###############################
+# sub check_section
+#
+# Incoming data: three arguments (+ fourth optional argument)
+# (a) $class - institutional class id (coursecode concatanated with section) 
+# (b) $owner - course owner (2.2 and later username:domain; pre-2.2 username)
+# (c) $dom 0 domain of course
+# (d) $dbh - optional database handle  
+#
+# returns 1 parameter - $sectioncheck ('ok' or other value). 
+# Verifies that course owner has access to classlist for specific class
+# according to institution's SIS. 'ok' if access available  
+###############################
+
+sub check_section {
+    my ($class,$owner,$dom,$dbh) = @_;
+    my $sectioncheck = 'ok';
+    return $sectioncheck;
+}
+
+###############################
+# sub AUTOLOAD
+#
+# Incoming data: none
+# Returns ''
+#
+# Prevents errors when undefined subroutines are called in this package
+# Will allow new routines added in the future to be called from lond etc.
+# without the need for customized versions of local*.pm packages to be
+# modified to include the new subroutines immediately.
+#
+# See "Programming Perl" 3rd ed. pp 296-298.   
+###############################
+
+sub AUTOLOAD {
+    our $AUTOLOAD;
+    return '';
+}
+
 1;