Attachment 11070 Details for Bug 8039 – bug_8039: Try userid if cardnumber borrower search fails in SIP

[patch] bug_8039: Try userid if cardnumber borrower search fails in SIP

bug8039-Try-userid-if-cardnumber-borrower-search-f.patch (text/plain), 1.20 KB, created by Chris Cormack on 2012-07-23 08:05:18 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Chris Cormack

Created: 2012-07-23 08:05:18 UTC

Size: 1.20 KB

patch

obsolete

>From d99bf924e21d42a860b488359bd58f4c0cb2b78d Mon Sep 17 00:00:00 2001
>From: Srdjan <srdjan@catalyst.net.nz>
>Date: Wed, 30 May 2012 13:38:35 +1200
>Subject: [PATCH] bug_8039: Try userid if cardnumber borrower search fails in
> SIP
>
>---
> C4/SIP/ILS/Patron.pm |    4 ++--
> 1 file changed, 2 insertions(+), 2 deletions(-)
>
>diff --git a/C4/SIP/ILS/Patron.pm b/C4/SIP/ILS/Patron.pm
>index d3a9762..fdd79a8 100644
>--- a/C4/SIP/ILS/Patron.pm
>+++ b/C4/SIP/ILS/Patron.pm
>@@ -37,13 +37,13 @@ sub new {
> 	my ($class, $patron_id) = @_;
>     my $type = ref($class) || $class;
>     my $self;
>-	$kp = GetMember(cardnumber=>$patron_id);
>+	$kp = GetMember(cardnumber=>$patron_id) || GetMember(userid=>$patron_id);
> 	$debug and warn "new Patron (GetMember): " . Dumper($kp);
>     unless (defined $kp) {
> 		syslog("LOG_DEBUG", "new ILS::Patron(%s): no such patron", $patron_id);
>         return;
> 	}
>-	$kp = GetMemberDetails(undef,$patron_id);
>+	$kp = GetMemberDetails($kp->{borrowernumber});
> 	$debug and warn "new Patron (GetMemberDetails): " . Dumper($kp);
> 	my $pw        = $kp->{password};  ### FIXME - md5hash -- deal with . 
> 	my $flags     = $kp->{flags};     # or warn "Warning: No flags from patron object for '$patron_id'"; 
>-- 
>1.7.10.4

Actions: View | Diff | Splinter Review

Attachments on bug 8039: 9768 | 9845 | 11070 | 13359 | 13981 | 13982