From 2bb099112021849fc48df1f1c112d45e2ab20582 Mon Sep 17 00:00:00 2001 From: finlayt Date: Thu, 6 Jun 2002 02:51:38 +0000 Subject: [PATCH] fixed minor bugs --- circ/branchtransfers.pl | 21 ++++++++------------- circ/circulation.pl | 37 ++++++++++++++++++------------------- circ/returns.pl | 1 + 3 files changed, 27 insertions(+), 32 deletions(-) diff --git a/circ/branchtransfers.pl b/circ/branchtransfers.pl index e11584cb65..5e0e36ba98 100755 --- a/circ/branchtransfers.pl +++ b/circ/branchtransfers.pl @@ -284,24 +284,19 @@ print startmenu('circulation'); #} print <<"EOF"; -

- - - -
Circulation: Transfers
+
+Next Borrower   + +Returns +
+ +Circulation: Transfers
Branch: $branches->{$branch}->{'branchname'}   Printer: $printers->{$printer}->{'printername'}
Change Settings -
- - -Next Borrower || -Returns || -Transfers

-

-

+

EOF if ($reservefoundtext) { diff --git a/circ/circulation.pl b/circ/circulation.pl index 6ba69144bb..5488ece35e 100755 --- a/circ/circulation.pl +++ b/circ/circulation.pl @@ -44,7 +44,7 @@ $env{'queue'}=$printer; my @datearr = localtime(time()); my $todaysdate = (1900+$datearr[5]).sprintf ("%0.2d", ($datearr[4]+1)).sprintf ("%0.2d", $datearr[3]); - +warn $todaysdate; my $message; @@ -118,8 +118,8 @@ if ($rejected) { } else { $rejectedtext = << "EOF"; - - + +
Error Issuing Book
$rejected
Error Issuing Book
$rejected

EOF @@ -129,7 +129,7 @@ EOF my $selectborrower; if ($borrowerslist) { $selectborrower = <<"EOF"; -

+ @@ -152,34 +152,33 @@ EOF # title.... my $title = <<"EOF"; -

-

- -
Circulation: Issues
+
+ +Next Borrower   + +Returns +Transfers + +
+Circulation: Issues
Branch: $branches->{$branch}->{'branchname'}   Printer: $printers->{$printer}->{'printername'}
Change Settings
- -Next Borrower || -Returns || -Transfers

-

-

+

EOF my $cardnumberinput = << "EOF"; - +
Enter borrower card number
or partial last name
- -

EOF @@ -276,7 +275,7 @@ my $selected=''; my $barcodeentrytext = <<"EOF"; -
+
@@ -432,7 +431,7 @@ if ($borrower) { print $patrontable; print $flaginfotable; print $barcodeentrytext; - print "

"; + print "



"; print $issuedbookstable; } diff --git a/circ/returns.pl b/circ/returns.pl index 77d942fb03..b24126f218 100755 --- a/circ/returns.pl +++ b/circ/returns.pl @@ -85,6 +85,7 @@ if ($request eq "SetWaiting") { if ($request eq 'KillReserved'){ my $biblio = $query->param('biblionumber'); my $borrnum = $query->param('borrowernumber'); + warn "In Kill Reserved"; CancelReserve($biblio, 0, $borrnum); $messagetext .= "Reserve Cancelled
"; } -- 2.39.5