[LON-CAPA-cvs] cvs: loncom /enrollment localenroll.pm
raeburn
lon-capa-cvs-allow@mail.lon-capa.org
Wed, 25 Jul 2007 20:43:49 -0000
raeburn Wed Jul 25 16:43:49 2007 EDT
Modified files:
/loncom/enrollment localenroll.pm
Log:
- Additional arguments accepted by get_userinfo() - $searchby, $searchterm, $searchtype. to allow searching of institutional directory by username, last name, or last name, first name for $srchterm.
- This search functionality to be available in loncreateuser (if permitted by domain settings).
- Documentation updated
Index: loncom/enrollment/localenroll.pm
diff -u loncom/enrollment/localenroll.pm:1.20 loncom/enrollment/localenroll.pm:1.21
--- loncom/enrollment/localenroll.pm:1.20 Mon May 14 16:15:23 2007
+++ loncom/enrollment/localenroll.pm Wed Jul 25 16:43:48 2007
@@ -1,6 +1,6 @@
# functions to glue school database system into Lon-CAPA for
# automated enrollment
-# $Id: localenroll.pm,v 1.20 2007/05/14 20:15:23 raeburn Exp $
+# $Id: localenroll.pm,v 1.21 2007/07/25 20:43:48 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -512,7 +512,7 @@
###############################
# 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
# 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.
@@ -531,6 +531,13 @@
# if a single ID matches multiple usernames.
# (f) $types - optional reference to array which contains
# 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).
# side effects - populates the $instusers and $instids refs to hashes.
@@ -541,7 +548,8 @@
###############################
sub get_userinfo {
- my ($dom,$uname,$id,$instusers,$instids,$types) = @_;
+ my ($dom,$uname,$id,$instusers,$instids,$types,
+ $srchby,$srchterm,$srchtype) = @_;
my $outcome = 'ok';
return $outcome;
}