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