|
Lines 29-35
use strict;
Link Here
|
| 29 |
use warnings; |
29 |
use warnings; |
| 30 |
use utf8; |
30 |
use utf8; |
| 31 |
|
31 |
|
| 32 |
use C4::Branch qw(GetBranchDetail); |
32 |
use C4::Branch qw(GetBranchDetail GetBranchName); |
| 33 |
|
33 |
|
| 34 |
BEGIN { |
34 |
BEGIN { |
| 35 |
use Exporter (); |
35 |
use Exporter (); |
|
Lines 92-98
sub printorders {
Link Here
|
| 92 |
$text->font( $pdf->corefont("Times", -encoding => "utf8"), 6/mm ); |
92 |
$text->font( $pdf->corefont("Times", -encoding => "utf8"), 6/mm ); |
| 93 |
$text->translate(20/mm, ($height-15)/mm); |
93 |
$text->translate(20/mm, ($height-15)/mm); |
| 94 |
$text->text("Order N°".$basketgroup->{'id'}.". Basket N° ".$basket->{basketno}.". ".$basket->{booksellernote}); |
94 |
$text->text("Order N°".$basketgroup->{'id'}.". Basket N° ".$basket->{basketno}.". ".$basket->{booksellernote}); |
| 95 |
|
95 |
$text->translate(20/mm, ($height-20)/mm); |
|
|
96 |
$text->text( ( $basket->{billingplace} ? "Billing at " . C4::Branch::GetBranchName( $basket->{billingplace} ) : "" ) |
| 97 |
. ( $basket->{billingplace} and $basket->{deliveryplace} ? " and " : "" ) |
| 98 |
. ( $basket->{deliveryplace} ? "delivery at " . C4::Branch::GetBranchName( $basket->{deliveryplace}) : "" ) |
| 99 |
); |
| 100 |
|
| 96 |
my $pdftable = new PDF::Table(); |
101 |
my $pdftable = new PDF::Table(); |
| 97 |
my $abaskets; |
102 |
my $abaskets; |
| 98 |
my $arrbasket; |
103 |
my $arrbasket; |
| 99 |
- |
|
|