Lines 34-41
BEGIN {
Link Here
|
34 |
} |
34 |
} |
35 |
|
35 |
|
36 |
|
36 |
|
37 |
#be careful, all the sizes (height, width, etc...) are in mm, not PostScript points (the default measurment of PDF::API2). |
37 |
#be careful, all the sizes (height, width, etc...) are in mm, not PostScript points (the default measurement of PDF::API2). |
38 |
#The constants exported transform that into PostScript points (/mm for milimeter, /in for inch, pt is postscript point, and as so is there only to show what is happening. |
38 |
#The constants exported transform that into PostScript points (/mm for millimeter, /in for inch, pt is postscript point, and as so is there only to show what is happening. |
39 |
use constant mm => 25.4 / 72; |
39 |
use constant mm => 25.4 / 72; |
40 |
use constant in => 1 / 72; |
40 |
use constant in => 1 / 72; |
41 |
use constant pt => 1; |
41 |
use constant pt => 1; |
Lines 88-94
sub printorders {
Link Here
|
88 |
} |
88 |
} |
89 |
push( @$arrbasket, |
89 |
push( @$arrbasket, |
90 |
$line->{quantity}, |
90 |
$line->{quantity}, |
91 |
$titleinfo. ($line->{order_vendornote} ? "\n----------------\nNote for vendor : " . $line->{order_vendornote} : '' ), |
91 |
$titleinfo. ($line->{order_vendornote} ? "\n----------------\nNote for vendor: " . $line->{order_vendornote} : '' ), |
92 |
Koha::Number::Price->new( $line->{rrp_tax_included} )->format, |
92 |
Koha::Number::Price->new( $line->{rrp_tax_included} )->format, |
93 |
Koha::Number::Price->new( $line->{discount} )->format . '%', |
93 |
Koha::Number::Price->new( $line->{discount} )->format . '%', |
94 |
Koha::Number::Price->new( $line->{tax_rate} * 100 )->format . '%', |
94 |
Koha::Number::Price->new( $line->{tax_rate} * 100 )->format . '%', |
95 |
- |
|
|