From adaf1d919599578e5e3b7d9ef88f8fced1ffd604 Mon Sep 17 00:00:00 2001 From: Galen Charlton Date: Wed, 3 Jun 2009 14:12:05 -0500 Subject: [PATCH] fix minor warning issues in SCO * test for NO_MORE_RENEWALS now does expect that hash key will always exist * removed unconditional warn Signed-off-by: Galen Charlton --- opac/sco/sco-main.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/opac/sco/sco-main.pl b/opac/sco/sco-main.pl index 984aded4db..9b15ac58e5 100755 --- a/opac/sco/sco-main.pl +++ b/opac/sco/sco-main.pl @@ -80,7 +80,7 @@ elsif ( $op eq "checkout" ) { if (scalar keys %$impossible) { # warn "impossible: numkeys: " . scalar (keys(%$impossible)); - warn join " ", keys %$impossible; + #warn join " ", keys %$impossible; my $issue_error = (keys %$impossible)[0]; # FIXME we assume only one error. @@ -147,7 +147,7 @@ if ($borrower->{cardnumber}) { my ($issueslist) = GetPendingIssues( $borrower->{'borrowernumber'} ); foreach my $it (@$issueslist) { my ($renewokay, $renewerror) = CanBookBeIssued($borrower, $it->{'barcode'},'',''); - $it->{'norenew'} = 1 if $renewokay->{'NO_MORE_RENEWALS'} == 1; + $it->{'norenew'} = 1 if $renewokay->{'NO_MORE_RENEWALS'}; push @issues, $it; } -- 2.39.2