From b56f0351839184ea38cffccfefc764bf968c9d2a Mon Sep 17 00:00:00 2001 From: tipaul Date: Mon, 3 May 2004 16:36:53 +0000 Subject: [PATCH] bugfixes --- circ/circulation.pl | 15 +++++++++------ 1 file changed, 9 insertions(+), 6 deletions(-) diff --git a/circ/circulation.pl b/circ/circulation.pl index 1b7fe28831..30af1104d8 100755 --- a/circ/circulation.pl +++ b/circ/circulation.pl @@ -126,26 +126,29 @@ if ($findborrower) { if ($barcode) { $barcode = cuecatbarcodedecode($barcode); my ($datedue, $invalidduedate) = fixdate($year, $month, $day); -# unless ($invalidduedate) { + if ($issueconfirmed) { + warn "CONFIRMED"; + issuebook(\%env, $borrower, $barcode, $datedue); + } else { + # unless ($invalidduedate) { my ($error, $question) = canbookbeissued(\%env, $borrower, $barcode, $year, $month, $day); my $noerror=1; my $noquestion = 1; foreach my $impossible (keys %$error) { - warn "Impossible : $impossible : ";#.%$error->{$impossible}; - $template->param($impossible => 1, + $template->param($impossible => $$error{$impossible}, IMPOSSIBLE => 1); $noerror = 0; } foreach my $needsconfirmation (keys %$question) { - warn "needsconfirmation : $needsconfirmation : "; #.%$error->{$needsconfirmation}; - $template->param($needsconfirmation => 1, + $template->param($needsconfirmation => $$question{$needsconfirmation}, NEEDSCONFIRMATION => 1); $noquestion = 0; } if ($noerror && ($noquestion || $issueconfirmed)) { warn "NO ERROR"; -# issuebook(\%env, $borrower, $barcode, $datedue); + issuebook(\%env, $borrower, $barcode, $datedue); } + } # } } -- 2.39.2