View | Details | Raw Unified | Return to bug 13813
Collapse All | Expand All

(-)a/acqui/pdfformat/layout2pages.pm (-1 / +2 lines)
Lines 31-36 use utf8; Link Here
31
use C4::Branch qw(GetBranchDetail);
31
use C4::Branch qw(GetBranchDetail);
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 170-176 sub printhead { Link Here
170
    $text->text($basketgroup->{'id'});
171
    $text->text($basketgroup->{'id'});
171
    
172
    
172
    # print the date
173
    # print the date
173
    my $today = C4::Dates->today();
174
    my $today = output_pref({ dt=>dt_from_string, dateonly=>1 });
174
    $text->translate(130/mm,  ($height-5-48)/mm);
175
    $text->translate(130/mm,  ($height-5-48)/mm);
175
    $text->text($today);
176
    $text->text($today);
176
    
177
    
(-)a/acqui/pdfformat/layout2pagesde.pm (-1 / +2 lines)
Lines 31-36 use utf8; Link Here
31
use C4::Branch qw(GetBranchDetail);
31
use C4::Branch qw(GetBranchDetail);
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 170-176 sub printhead { Link Here
170
    $text->text($basketgroup->{'id'});
171
    $text->text($basketgroup->{'id'});
171
    
172
    
172
    # print the date
173
    # print the date
173
    my $today = C4::Dates->today();
174
    my $today = output_pref({ dt=>dt_from_string, dateonly=>1 });
174
    $text->translate(130/mm,  ($height-5-48)/mm);
175
    $text->translate(130/mm,  ($height-5-48)/mm);
175
    $text->text($today);
176
    $text->text($today);
176
    
177
    
(-)a/acqui/pdfformat/layout3pages.pm (-1 / +2 lines)
Lines 32-37 use utf8; Link Here
32
use C4::Branch qw(GetBranchDetail GetBranchName);
32
use C4::Branch qw(GetBranchDetail GetBranchName);
33
33
34
use Koha::Number::Price;
34
use Koha::Number::Price;
35
use Koha::DateUtils;
35
36
36
BEGIN {
37
BEGIN {
37
         use Exporter   ();
38
         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
    
(-)a/acqui/pdfformat/layout3pagesfr.pm (-2 / +2 lines)
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
- 

Return to bug 13813