From 4a29a6af5ca65e263a9631dde434dadc0d87e244 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. --- C4/SIP/ILS/Patron.pm | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/C4/SIP/ILS/Patron.pm b/C4/SIP/ILS/Patron.pm index 8c00a11..ac24d2f 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; -- 1.7.5.4