[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) {