--- loncom/enrollment/localenroll.pm	2007/09/12 19:50:47	1.26
+++ loncom/enrollment/localenroll.pm	2008/02/24 22:59:20	1.30
@@ -1,6 +1,6 @@
 # functions to glue school database system into Lon-CAPA for 
 # automated enrollment
-# $Id: localenroll.pm,v 1.26 2007/09/12 19:50:47 raeburn Exp $
+# $Id: localenroll.pm,v 1.30 2008/02/24 22:59:20 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -427,13 +427,16 @@ sub manager_photo_update {
 #
 # 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  
+# (b) $owner - course owner (2.2 and later username:domain; pre-2.2 username;
+#                            2.6 and later - comma-separated list of 
+#                            username:domain for course owner and co-owners.)
+# (c) $dom - 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  
+# Verifies that at least one of the course owner (or co-owners) have access 
+# to classlist for specific class according to institution's SIS
+# 'ok' if access available  
 ###############################
 
 sub check_section {
@@ -631,6 +634,59 @@ sub username_rules {
 }
 
 ###############################
+# sub id_rules
+#
+# Incoming data: three arguments
+# (a) $dom - domain
+# (b) $ruleshash - reference to hash containing rules
+#                  (a hash of a hash)
+#                  keys of top level hash are short names
+#                   (e.g., netid, noncredit)
+#                  for each key, value is a hash
+#                      desc => long name for rule
+#                      rule => description of rule
+#
+# (c) $rulesorder - reference to array containing rule names
+#                   in order to be displayed
+#
+#  returns 'ok' if no processing error.
+#
+###############################
+
+sub id_rules {
+    my ($dom,$ruleshash,$rulesorder) = @_;
+    my $outcome;
+    return $outcome;
+}
+
+###############################
+# sub selfenroll_rules
+#
+# Incoming data: three arguments
+# (a) $dom - domain
+# (b) $ruleshash - reference to hash containing rules
+#                  (a hash of a hash)
+#                  keys of top level hash are short names
+#                   (e.g., netid)
+#                  for each key, value is a hash
+#                      desc => long name for rule
+#                      rule => description of rule
+#
+# (c) $rulesorder - reference to array containing rule names
+#                   in order to be displayed
+#
+#  returns 'ok' if no processing error.
+#
+###############################
+
+
+sub selfenroll_rules {
+    my ($dom,$ruleshash,$rulesorder) = @_;
+    my $outcome;
+    return $outcome;
+}
+
+###############################
 # sub username_check 
 #
 # Incoming data: four arguments
@@ -653,6 +709,50 @@ sub username_check {
 }
 
 ###############################
+# sub id_check
+#
+# Incoming data: four arguments
+# (a) $dom - domain (scalar)
+# (b) $id - ID to compare against rules (scalar)
+# (c) $to_check (reference to array of rule names to check)
+# (d) $resultshash (reference to hash of results)
+#                    hash of results for rule checked
+#                   - keys are rule names
+#                   - values are: 1 or 0 (for matched or unmatched)
+#
+# returns 'ok' if no processing error.
+#
+###############################
+
+sub id_check {
+    my ($dom,$id,$to_check,$resultshash) = @_;
+    my $outcome;
+    return $outcome;
+}
+
+###############################
+# sub selfenroll_check
+#
+# Incoming data: four arguments
+# (a) $dom - domain (scalar)
+# (b) $selfenrollname - e-mail proposed as username (compare against rules - scalar)
+# (c) $to_check (reference to array of rule names to check)
+# (d) $resultshash (reference to hash of results)
+#                   hash of results for rule checked
+#                   - keys are rule names
+#                   - values are: 1 or 0 (for matched or unmatched)
+#
+# returns 'ok' if no processing error.
+#
+###############################
+
+sub selfenroll_check {
+    my ($dom,$selfenrollname,$to_check,$resultshash) = @_;
+    my $outcome;
+    return $outcome;
+}
+
+###############################
 # sub AUTOLOAD
 #
 # Incoming data: none