[LON-CAPA-cvs] cvs: modules /msu localenroll.pm
raeburn
lon-capa-cvs-allow@mail.lon-capa.org
Tue, 08 Jul 2008 05:13:15 -0000
raeburn Tue Jul 8 01:13:15 2008 EDT
Modified files:
/modules/msu localenroll.pm
Log:
- Eliminate unused args from &ldap_search().
Index: modules/msu/localenroll.pm
diff -u modules/msu/localenroll.pm:1.36 modules/msu/localenroll.pm:1.37
--- modules/msu/localenroll.pm:1.36 Fri May 16 19:41:49 2008
+++ modules/msu/localenroll.pm Tue Jul 8 01:13:13 2008
@@ -1,6 +1,6 @@
# functions to glue school database system into Lon-CAPA for
# automated enrollment
-# $Id: localenroll.pm,v 1.36 2008/05/16 23:41:49 raeburn Exp $
+# $Id: localenroll.pm,v 1.37 2008/07/08 05:13:13 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -680,8 +680,7 @@
}
}
if ($ldapfilter ne '') {
- my $ldapres = &ldap_search($ldapfilter,$instusers,$instids,$srchby,
- $srchterm,$srchtype,$types);
+ my $ldapres = &ldap_search($ldapfilter,$instusers,$types);
if (!$dbflag) {
$outcome = $ldapres;
}
@@ -690,7 +689,7 @@
}
sub ldap_search {
- my ($ldapfilter,$instusers,$instids,$srchby,$srchterm,$srchtype,$types) = @_;
+ my ($ldapfilter,$instusers,$types) = @_;
my $outcome;
my $ldap = Net::LDAP->new( 'ldap.msu.edu' );
if ($ldap) {