|
Lines 31-36
use utf8;
Link Here
|
| 31 |
use C4::Branch qw(GetBranchDetail GetBranchName); |
31 |
use C4::Branch qw(GetBranchDetail GetBranchName); |
| 32 |
|
32 |
|
| 33 |
use Koha::Number::Price; |
33 |
use Koha::Number::Price; |
|
|
34 |
use Koha::DateUtils; |
| 34 |
|
35 |
|
| 35 |
BEGIN { |
36 |
BEGIN { |
| 36 |
use Exporter (); |
37 |
use Exporter (); |
|
Lines 334-340
sub printhead {
Link Here
|
| 334 |
$text->text($basketgroup->{'id'}); |
335 |
$text->text($basketgroup->{'id'}); |
| 335 |
|
336 |
|
| 336 |
# print the date |
337 |
# print the date |
| 337 |
my $today = C4::Dates->today(); |
338 |
my $today = output_pref({ dt => dt_from_string, dateonly => 1 }); |
| 338 |
$text->translate(130/mm, ($height-5-48)/mm); |
339 |
$text->translate(130/mm, ($height-5-48)/mm); |
| 339 |
$text->text($today); |
340 |
$text->text($today); |
| 340 |
|
341 |
|
| 341 |
- |
|
|