|
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); |