From 8a14dbb7ab617dbf61cae183935362e5411aeb9a 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 [3.10.x] 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. --- 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 d3a9762..e81f41d 100644 --- a/C4/SIP/ILS/Patron.pm +++ b/C4/SIP/ILS/Patron.pm @@ -47,7 +47,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.2.5