merging katipo changes...

frbranchcd was being passed tobranch info from transferbook
This commit is contained in:
bob_lyon 2006-06-07 03:29:19 +00:00
parent 502a6e9674
commit 92d88b35a7

View file

@ -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;