From f757ae78974ec8a763b96e3bf0a6bc7ffb587c4e 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. Signed-off-by: Chris Cormack --- 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 d3a9762a52..e81f41db49 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; -- 2.39.5