Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Another API call fix to get the vendor name.

Browse source 
Signed-off-by: Joshua Ferraro <jmf@liblime.com>
This commit is contained in:
Ryan Higgins 2008-06-20 15:56:40 -05:00 committed by Joshua Ferraro
parent b1465be2f0
commit 2f59f1c2e4
1 changed files with 3 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
acqui/parcel.pl
View file

@ -66,8 +66,7 @@ use strict;
my $input=new CGI;
my $supplierid=$input->param('supplierid');
my @booksellers=GetBookSeller($supplierid);
my $count = scalar @booksellers;
my $bookseller=GetBookSellerFromId($supplierid);
my $invoice=$input->param('invoice') || '';
my $freight=$input->param('freight');
@ -121,8 +120,6 @@ for (my $i=0;$i<$countlines;$i++){
if ( $i > 0 && $totalfreight != $parcelitems[$i]->{'freight'}) {
warn "FREIGHT CHARGE MISMATCH!!";
}
$totalfreight=$parcelitems[$i]->{'freight'};
#$totalfreight+=$parcelitems[$i]->{'freight'};
$totalfreight=$parcelitems[$i]->{'freight'};
$totalquantity+=$parcelitems[$i]->{'quantityreceived'};
$tototal+=$total;
@ -163,14 +160,14 @@ for (my $i=0;$i<$countpendings;$i++){
push @loop_orders, \%line;
}
$freight = $totalfreight unless $freight;
$totalfreight=$freight;
#$totalfreight=$freight;
$tototal=$tototal+$freight;
$template->param(invoice => $invoice,
datereceived => $datereceived->output('iso'),
invoicedatereceived => $datereceived->output('iso'),
formatteddatereceived => $datereceived->output(),
name => $booksellers[0]->{'name'},
name => $bookseller->{'name'},
supplierid => $supplierid,
gst => $gst,
freight => $freight,