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

(-)a/cataloguing/value_builder/normarc_field_008.pl (-11 / +1 lines)
Lines 25-40 use CGI qw ( -utf8 ); Link Here
25
use C4::Auth;
25
use C4::Auth;
26
use C4::Context;
26
use C4::Context;
27
use C4::Output;
27
use C4::Output;
28
28
use Koha::Util::FrameworkPlugin qw|date_entered|;
29
sub date_entered {
30
    # find today's date
31
    my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) =
32
        localtime(time);
33
    $year += 1900;
34
    $mon  += 1;
35
    return substr($year, 2, 2) . sprintf("%0.2d", $mon) .
36
        sprintf("%0.2d", $mday);
37
}
38
29
39
my $builder = sub {
30
my $builder = sub {
40
    my ( $params ) = @_;
31
    my ( $params ) = @_;
41
- 

Return to bug 13438