Lines 140-145
sub printhead {
Link Here
|
140 |
my $billing_library = Koha::Libraries->find( $basketgroup->{billingplace} ); |
140 |
my $billing_library = Koha::Libraries->find( $basketgroup->{billingplace} ); |
141 |
my $delivery_library = Koha::Libraries->find( $basketgroup->{deliveryplace} ); |
141 |
my $delivery_library = Koha::Libraries->find( $basketgroup->{deliveryplace} ); |
142 |
my $freedeliveryplace = $basketgroup->{freedeliveryplace}; |
142 |
my $freedeliveryplace = $basketgroup->{freedeliveryplace}; |
|
|
143 |
my $ordersentences = C4::Context->preference("1PageOrderPDFText"); |
143 |
|
144 |
|
144 |
# open 1st page (with the header) |
145 |
# open 1st page (with the header) |
145 |
my $page = $pdf->openpage(1); |
146 |
my $page = $pdf->openpage(1); |
Lines 162-167
sub printhead {
Link Here
|
162 |
$text->translate(107/mm, ($height-67)/mm); |
163 |
$text->translate(107/mm, ($height-67)/mm); |
163 |
$text->text($libraryname); |
164 |
$text->text($libraryname); |
164 |
|
165 |
|
|
|
166 |
# print text defined in 1PageOrderPDFText syspref |
167 |
$text->font( $pdf->corefont("Times", -encoding => "utf8"), 4/mm ); |
168 |
my @allLines = split/\n+/, $ordersentences; |
169 |
my $count = 0; |
170 |
foreach my $ordersentence ( @allLines ) { |
171 |
$count+=4; |
172 |
$text->translate(15/mm, ($height-(105 + $count ))/mm); |
173 |
$text->text( $ordersentence ); |
174 |
} |
175 |
|
165 |
$text->font( $pdf->corefont("Times", -encoding => "utf8"), 4/mm ); |
176 |
$text->font( $pdf->corefont("Times", -encoding => "utf8"), 4/mm ); |
166 |
$text->translate(107/mm, ($height-71)/mm); |
177 |
$text->translate(107/mm, ($height-71)/mm); |
167 |
$text->text($billing_library->branchname); |
178 |
$text->text($billing_library->branchname); |