fixed remaining calls to GetMember() that used old argument style

[koha_gimpoz] / C4 / ILSDI / Services.pm

diff --git a/C4/ILSDI/Services.pm b/C4/ILSDI/Services.pm
index ffd4792..bb32166 100644 (file)
--- a/C4/ILSDI/Services.pm
+++ b/C4/ILSDI/Services.pm
@@ -279,7 +279,7 @@ sub LookupPatron {
     my ($cgi) = @_;
 
     # Get the borrower...
-    my $borrower = GetMember( $cgi->param('id'), $cgi->param('id_type') );
+    my $borrower = GetMember($cgi->param('id_type') => $cgi->param('id'));
     if ( not $borrower->{'borrowernumber'} ) {
         return { message => 'PatronNotFound' };
     }
@@ -314,7 +314,7 @@ sub AuthenticatePatron {
     }
 
     # Get the borrower
-    my $borrower = GetMember( $cgi->param('username'), "userid" );
+    my $borrower = GetMember( userid => $cgi->param('username') );
 
     # Build the hashref
     my $patron->{'id'} = $borrower->{'borrowernumber'};