|
Lines 28-33
use List::MoreUtils qw/uniq/;
Link Here
|
| 28 |
use strict; |
28 |
use strict; |
| 29 |
use warnings; |
29 |
use warnings; |
| 30 |
use utf8; |
30 |
use utf8; |
|
|
31 |
use Text::Bidi qw(log2vis); |
| 31 |
use Koha::Number::Price; |
32 |
use Koha::Number::Price; |
| 32 |
use Koha::DateUtils; |
33 |
use Koha::DateUtils; |
|
Lines 54-60
use PDF::Table;
Link Here
|
| 54 |
sub printorders { |
55 |
sub printorders { |
| 55 |
my ($pdf, $basketgroup, $baskets, $orders) = @_; |
56 |
my ($pdf, $basketgroup, $baskets, $orders) = @_; |
| 56 |
|
57 |
|
| 57 |
my $cur_format = C4::Context->preference("CurrencyFormat"); |
58 |
my $cur_format = C4::Context->preference("CurrencyFormat"); |
| 58 |
$pdf->mediabox($height/mm, $width/mm); |
59 |
$pdf->mediabox($height/mm, $width/mm); |
|
Lines 69-75
sub printorders {
Link Here
|
| 69 |
$box->rectxy(($width - 10)/mm, ($height - 5)/mm, 10/mm, ($height - 25)/mm); |
70 |
$box->rectxy(($width - 10)/mm, ($height - 5)/mm, 10/mm, ($height - 25)/mm); |
| 70 |
$box->stroke; |
71 |
$box->stroke; |
| 71 |
# $box->restore(); |
72 |
# $box->restore(); |
| 72 |
|
73 |
|
| 73 |
# create a text |
74 |
# create a text |
| 74 |
my $text = $page->text; |
75 |
my $text = $page->text; |
| 75 |
# add basketgroup number |
76 |
# add basketgroup number |
|
Lines 114-121
sub printorders {
Link Here
|
| 114 |
( $line->{publishercode} ? ' published by '. $line->{publishercode} : '') . |
115 |
( $line->{publishercode} ? ' published by '. $line->{publishercode} : '') . |
| 115 |
( $line->{copyrightdate} ? ' '. $line->{copyrightdate} : ''); |
116 |
( $line->{copyrightdate} ? ' '. $line->{copyrightdate} : ''); |
| 116 |
} |
117 |
} |
|
|
118 |
$titleinfo = log2vis($titleinfo); |
| 117 |
push( @$arrbasket, |
119 |
push( @$arrbasket, |
| 118 |
$titleinfo. ($line->{order_vendornote} ? "\n----------------\nNote for vendor : " . $line->{order_vendornote} : '' ), |
120 |
$titleinfo. ($line->{order_vendornote} ? "\n----------------\nNote for vendor : " . $line->{order_vendornote} : '' ), |
| 119 |
$line->{quantity}, |
121 |
$line->{quantity}, |
| 120 |
Koha::Number::Price->new( $line->{rrp_tax_excluded} )->format, |
122 |
Koha::Number::Price->new( $line->{rrp_tax_excluded} )->format, |
| 121 |
Koha::Number::Price->new( $line->{rrp_tax_included} )->format, |
123 |
Koha::Number::Price->new( $line->{rrp_tax_included} )->format, |
|
Lines 138-144
sub printorders {
Link Here
|
| 138 |
padding => 5, |
140 |
padding => 5, |
| 139 |
padding_right => 5, |
141 |
padding_right => 5, |
| 140 |
background_color_odd => "lightgray", |
142 |
background_color_odd => "lightgray", |
| 141 |
font => $pdf->corefont("Times", -encoding => "utf8"), |
143 |
font => $pdf->ttfont('/usr/share/fonts/truetype/ttf-dejavu/DejaVuSans.ttf', -encoding => "utf8"), |
| 142 |
font_size => 3/mm, |
144 |
font_size => 3/mm, |
| 143 |
header_props => { |
145 |
header_props => { |
| 144 |
font => $pdf->corefont("Times", -encoding => "utf8"), |
146 |
font => $pdf->corefont("Times", -encoding => "utf8"), |
|
Lines 182-198
sub printorders {
Link Here
|
| 182 |
sub printbaskets { |
184 |
sub printbaskets { |
| 183 |
my ($pdf, $basketgroup, $hbaskets, $bookseller, $GSTrate, $orders) = @_; |
185 |
my ($pdf, $basketgroup, $hbaskets, $bookseller, $GSTrate, $orders) = @_; |
| 184 |
|
186 |
|
| 185 |
# get library name |
187 |
# get library name |
| 186 |
my $libraryname = C4::Context->preference("LibraryName"); |
188 |
my $libraryname = C4::Context->preference("LibraryName"); |
| 187 |
|
189 |
|
| 188 |
my $cur_format = C4::Context->preference("CurrencyFormat"); |
190 |
my $cur_format = C4::Context->preference("CurrencyFormat"); |
| 189 |
$pdf->mediabox($width/mm, $height/mm); |
191 |
$pdf->mediabox($width/mm, $height/mm); |
| 190 |
my $page = $pdf->openpage(2); |
192 |
my $page = $pdf->openpage(2); |
| 191 |
# create a text |
193 |
# create a text |
| 192 |
my $text = $page->text; |
194 |
my $text = $page->text; |
| 193 |
|
195 |
|
| 194 |
# add basketgroup number |
196 |
# add basketgroup number |
| 195 |
$text->font( $pdf->corefont("Times", -encoding => "utf8"), 6/mm ); |
197 |
$text->font( $pdf->corefont("Times", -encoding => "utf8"), 6/mm ); |
| 196 |
$text->translate(($width-40)/mm, ($height-53)/mm); |
198 |
$text->translate(($width-40)/mm, ($height-53)/mm); |
|
Lines 318-327
sub printhead {
Link Here
|
| 318 |
# open 1st page (with the header) |
320 |
# open 1st page (with the header) |
| 319 |
my $page = $pdf->openpage(1); |
321 |
my $page = $pdf->openpage(1); |
| 320 |
|
322 |
|
| 321 |
# create a text |
323 |
# create a text |
| 322 |
my $text = $page->text; |
324 |
my $text = $page->text; |
| 323 |
|
325 |
|
| 324 |
# print the libraryname in the header |
326 |
# print the libraryname in the header |
| 325 |
$text->font( $pdf->corefont("Times", -encoding => "utf8"), 6/mm ); |
327 |
$text->font( $pdf->corefont("Times", -encoding => "utf8"), 6/mm ); |
| 326 |
$text->translate(30/mm, ($height-28.5)/mm); |
328 |
$text->translate(30/mm, ($height-28.5)/mm); |
|
Lines 331-344
sub printhead {
Link Here
|
| 331 |
$text->font( $pdf->corefont("Times", -encoding => "utf8"), 8/mm ); |
333 |
$text->font( $pdf->corefont("Times", -encoding => "utf8"), 8/mm ); |
| 332 |
$text->translate(100/mm, ($height-5-48)/mm); |
334 |
$text->translate(100/mm, ($height-5-48)/mm); |
| 333 |
$text->text($basketgroup->{'id'}); |
335 |
$text->text($basketgroup->{'id'}); |
| 334 |
|
336 |
|
| 335 |
# print the date |
337 |
# print the date |
| 336 |
my $today = output_pref({ dt => dt_from_string, dateonly => 1 }); |
338 |
my $today = output_pref({ dt => dt_from_string, dateonly => 1 }); |
| 337 |
$text->translate(130/mm, ($height-5-48)/mm); |
339 |
$text->translate(130/mm, ($height-5-48)/mm); |
| 338 |
$text->text($today); |
340 |
$text->text($today); |
| 339 |
|
341 |
|
| 340 |
$text->font( $pdf->corefont("Times", -encoding => "utf8"), 4/mm ); |
342 |
$text->font( $pdf->corefont("Times", -encoding => "utf8"), 4/mm ); |
| 341 |
|
343 |
|
| 342 |
# print billing infos |
344 |
# print billing infos |
| 343 |
$text->translate(100/mm, ($height-86)/mm); |
345 |
$text->translate(100/mm, ($height-86)/mm); |
| 344 |
$text->text($libraryname); |
346 |
$text->text($libraryname); |
|
Lines 358-368
sub printhead {
Link Here
|
| 358 |
$text->text(join(' ', $billing_library->branchzip, $billing_library->branchcity, $billing_library->branchcountry)); |
360 |
$text->text(join(' ', $billing_library->branchzip, $billing_library->branchcity, $billing_library->branchcountry)); |
| 359 |
$text->translate(100/mm, ($height-147.5)/mm); |
361 |
$text->translate(100/mm, ($height-147.5)/mm); |
| 360 |
$text->text($billing_library->branchemail); |
362 |
$text->text($billing_library->branchemail); |
| 361 |
|
363 |
|
| 362 |
# print subject |
364 |
# print subject |
| 363 |
$text->translate(100/mm, ($height-145.5)/mm); |
365 |
$text->translate(100/mm, ($height-145.5)/mm); |
| 364 |
$text->text($subject); |
366 |
$text->text($subject); |
| 365 |
|
367 |
|
| 366 |
# print bookseller infos |
368 |
# print bookseller infos |
| 367 |
$text->translate(100/mm, ($height-180)/mm); |
369 |
$text->translate(100/mm, ($height-180)/mm); |
| 368 |
$text->text($bookseller->{name}); |
370 |
$text->text($bookseller->{name}); |
|
Lines 376-382
sub printhead {
Link Here
|
| 376 |
$text->text($bookseller->{address3}); |
378 |
$text->text($bookseller->{address3}); |
| 377 |
$text->translate(100/mm, ($height-205)/mm); |
379 |
$text->translate(100/mm, ($height-205)/mm); |
| 378 |
$text->text($bookseller->{accountnumber}); |
380 |
$text->text($bookseller->{accountnumber}); |
| 379 |
|
381 |
|
| 380 |
# print delivery infos |
382 |
# print delivery infos |
| 381 |
$text->font( $pdf->corefont("Times-Bold", -encoding => "utf8"), 4/mm ); |
383 |
$text->font( $pdf->corefont("Times-Bold", -encoding => "utf8"), 4/mm ); |
| 382 |
$text->translate(50/mm, ($height-237)/mm); |
384 |
$text->translate(50/mm, ($height-237)/mm); |
| 383 |
- |
|
|