version 1.28, 2008/01/03 20:42:34
|
version 1.30, 2008/02/24 22:59:20
|
Line 428 sub manager_photo_update {
|
Line 428 sub manager_photo_update {
|
# Incoming data: three arguments (+ fourth optional argument) |
# Incoming data: three arguments (+ fourth optional argument) |
# (a) $class - institutional class id (coursecode concatanated with section) |
# (a) $class - institutional class id (coursecode concatanated with section) |
# (b) $owner - course owner (2.2 and later username:domain; pre-2.2 username; |
# (b) $owner - course owner (2.2 and later username:domain; pre-2.2 username; |
2.6 and later - comma-separated list of |
# 2.6 and later - comma-separated list of |
username:domain for course owner and co-owners.) |
# username:domain for course owner and co-owners.) |
# (c) $dom - domain of course |
# (c) $dom - domain of course |
# (d) $dbh - optional database handle |
# (d) $dbh - optional database handle |
# |
# |
Line 648 sub username_rules {
|
Line 648 sub username_rules {
|
# |
# |
# (c) $rulesorder - reference to array containing rule names |
# (c) $rulesorder - reference to array containing rule names |
# in order to be displayed |
# in order to be displayed |
|
|
# |
# |
# returns 'ok' if no processing error. |
# returns 'ok' if no processing error. |
# |
# |
Line 661 sub id_rules {
|
Line 660 sub id_rules {
|
} |
} |
|
|
############################### |
############################### |
|
# 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 |
# sub username_check |
# |
# |
# Incoming data: four arguments |
# Incoming data: four arguments |
Line 703 sub id_check {
|
Line 729 sub id_check {
|
my $outcome; |
my $outcome; |
return $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 |
# sub AUTOLOAD |