From 92d88b35a76ca002f01daad597bc179c1ade6378 Mon Sep 17 00:00:00 2001 From: bob_lyon Date: Wed, 7 Jun 2006 03:29:19 +0000 Subject: [PATCH] merging katipo changes... frbranchcd was being passed tobranch info from transferbook --- circ/branchtransfers.pl | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/circ/branchtransfers.pl b/circ/branchtransfers.pl index fe42edec2e..175b7bfb9d 100755 --- a/circ/branchtransfers.pl +++ b/circ/branchtransfers.pl @@ -119,17 +119,17 @@ my %transfereditems; my %frbranchcds; my %tobranchcds; my $color=$linecolor2; - +my $transfered; my $barcode = $query->param('barcode'); if ($barcode) { - my $transfered; + my $iteminformation; ($transfered, $messages, $iteminformation) = transferbook($tobranchcd, $barcode, $ignoreRs); $found = $messages->{'ResFound'}; if ($transfered) { my %item; - my $frbranchcd = $iteminformation->{'holdingbranch'}; + my $frbranchcd = $iteminformation->{'frbranchcd'}; if (not ($found)) { ($color eq $linecolor1) ? ($color=$linecolor2) : ($color=$linecolor1); $item{'color'}=$color; -- 2.39.5