gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

bugfixes

This commit is contained in:
tipaul 2004-05-03 16:36:53 +00:00
parent 6cc534a686
commit b56f035183
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
circ/circulation.pl
View File

@ -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);
}
}
# }
}