Lines 77-86
sub BasketTotal {
Link Here
|
77 |
my @orders = GetOrders($basketno); |
77 |
my @orders = GetOrders($basketno); |
78 |
for my $order (@orders){ |
78 |
for my $order (@orders){ |
79 |
$total = $total + ( $order->{ecost} * $order->{quantity} ); |
79 |
$total = $total + ( $order->{ecost} * $order->{quantity} ); |
80 |
if ($bookseller->{invoiceincgst} && ! $bookseller->{listincgst} && ( $bookseller->{gstrate} // C4::Context->preference("gist") )) { |
|
|
81 |
my $gst = $bookseller->{gstrate} // C4::Context->preference("gist"); |
82 |
$total = $total * ( $gst / 100 +1); |
83 |
} |
84 |
} |
80 |
} |
85 |
$total .= " " . ($bookseller->{invoiceprice} // 0); |
81 |
$total .= " " . ($bookseller->{invoiceprice} // 0); |
86 |
return $total; |
82 |
return $total; |
Lines 230-236
sub printbasketgrouppdf{
Link Here
|
230 |
-type => 'application/pdf', |
226 |
-type => 'application/pdf', |
231 |
-attachment => ( $basketgroup->{name} || $basketgroupid ) . '.pdf' |
227 |
-attachment => ( $basketgroup->{name} || $basketgroupid ) . '.pdf' |
232 |
); |
228 |
); |
233 |
my $pdf = printpdf($basketgroup, $bookseller, $baskets, \%orders, $bookseller->{gstrate} // C4::Context->preference("gist")) || die "pdf generation failed"; |
229 |
my $gstrate = $bookseller->{gstrate}; |
|
|
230 |
unless ( defined $gstrate ) { |
231 |
( $gstrate ) = split /\|/, C4::Context->preference("gist"); |
232 |
} |
233 |
|
234 |
my $pdf = printpdf($basketgroup, $bookseller, $baskets, \%orders, $gstrate) || die "pdf generation failed"; |
234 |
print $pdf; |
235 |
print $pdf; |
235 |
|
236 |
|
236 |
} |
237 |
} |