version 1.18, 2007/02/26 20:52:55
|
version 1.21, 2007/07/25 20:43:48
|
Line 31 use strict;
|
Line 31 use strict;
|
################################ |
################################ |
# sub run |
# sub run |
# set this to return 1 if you want the auto enrollment to run |
# set this to return 1 if you want the auto enrollment to run |
|
# |
|
# Beginning with LON-CAPA version 2.4, use of this routine is |
|
# deprecated. Whether or not Autoenroll.pl should run is set |
|
# by the Domain Coordinator via "Set domain configuration", |
|
# provided in the Domain Management section of the Main menu. |
################################ |
################################ |
|
|
sub run() { |
sub run() { |
Line 507 sub allusers_info {
|
Line 512 sub allusers_info {
|
############################### |
############################### |
# sub get_userinfo |
# sub get_userinfo |
# |
# |
# Incoming data: four required arguments and two optional arguments |
# Incoming data: four required arguments and t optional arguments |
# Retrieves institutional data for a single user either by username |
# Retrieves institutional data for a single user either by username |
# if $uname is included as second argument, or by ID if $id is |
# if $uname is included as second argument, or by ID if $id is |
# included as a third argument. Either (b) or (c) must be provided. |
# included as a third argument. Either (b) or (c) must be provided. |
Line 526 sub allusers_info {
|
Line 531 sub allusers_info {
|
# if a single ID matches multiple usernames. |
# if a single ID matches multiple usernames. |
# (f) $types - optional reference to array which contains |
# (f) $types - optional reference to array which contains |
# institutional types to check. |
# institutional types to check. |
|
# (g) $srchby - optional if $uname or $id defined, otherwise required. |
|
# Allowed values include: 1. lastfirst, 2. last, 3. uname |
|
# corresponding to searches by 1. lastname,firstname; |
|
# 2. lastname; 3. username |
|
# (h) $srchterm - optional if $uname or $id defined, otherwise required |
|
# String to search for. |
|
# (i) $srchtype - optional. Allowed value: contains |
# |
# |
# returns 1 parameter - ('ok' or other value). |
# returns 1 parameter - ('ok' or other value). |
# side effects - populates the $instusers and $instids refs to hashes. |
# side effects - populates the $instusers and $instids refs to hashes. |
Line 536 sub allusers_info {
|
Line 548 sub allusers_info {
|
############################### |
############################### |
|
|
sub get_userinfo { |
sub get_userinfo { |
my ($dom,$uname,$id,$instusers,$instids,$types) = @_; |
my ($dom,$uname,$id,$instusers,$instids,$types, |
|
$srchby,$srchterm,$srchtype) = @_; |
my $outcome = 'ok'; |
my $outcome = 'ok'; |
return $outcome; |
return $outcome; |
} |
} |
Line 560 sub get_userinfo {
|
Line 573 sub get_userinfo {
|
|
|
sub inst_usertypes { |
sub inst_usertypes { |
my ($dom,$usertypes,$order) = @_; |
my ($dom,$usertypes,$order) = @_; |
|
@{$order} = (); |
|
%{$usertypes} = (); |
my $outcome = 'ok'; |
my $outcome = 'ok'; |
return $outcome; |
return $outcome; |
} |
} |