From 58494beb7949d57d9b84784edc3e55848192eff8 Mon Sep 17 00:00:00 2001 From: Adrien Saurat Date: Thu, 3 Jan 2013 17:08:02 +0100 Subject: [PATCH] Bug 9343: handles the new format of Debarred The debarred status in DB switched from a boolean to a date. Signed-off-by: Kyle M Hall Signed-off-by: Elliott Davis Correctly pulls debared flag instead of debarment date. Signed-off-by: Jared Camins-Esakov --- C4/SIP/ILS/Patron.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/C4/SIP/ILS/Patron.pm b/C4/SIP/ILS/Patron.pm index 8c00a116a0..ac24d2fd53 100644 --- a/C4/SIP/ILS/Patron.pm +++ b/C4/SIP/ILS/Patron.pm @@ -41,7 +41,7 @@ sub new { $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'"; - my $debarred = $kp->{debarred}; # 1 if ($kp->{flags}->{DBARRED}->{noissues}); + my $debarred = defined($kp->{flags}->{DBARRED}); $debug and warn sprintf("Debarred = %s : ", ($debarred||'undef')) . Dumper(%{$kp->{flags}}); my ($day, $month, $year) = (localtime)[3,4,5]; my $today = sprintf '%04d-%02d-%02d', $year+1900, $month+1, $day; -- 2.39.5