View | Details | Raw Unified | Return to bug 5356
Collapse All | Expand All

(-)a/acqui/pdfformat/layout3pages.pm (-3 / +7 lines)
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
- 

Return to bug 5356