version 1.20, 2007/05/14 20:15:23
|
version 1.21, 2007/07/25 20:43:48
|
Line 512 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 531 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 541 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; |
} |
} |