@@ -, +, @@ --- cataloguing/value_builder/normarc_field_008.pl | 11 +---------- 1 file changed, 1 insertion(+), 10 deletions(-) --- a/cataloguing/value_builder/normarc_field_008.pl +++ a/cataloguing/value_builder/normarc_field_008.pl @@ -25,16 +25,7 @@ use CGI qw ( -utf8 ); use C4::Auth; use C4::Context; use C4::Output; - -sub date_entered { - # find today's date - my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = - localtime(time); - $year += 1900; - $mon += 1; - return substr($year, 2, 2) . sprintf("%0.2d", $mon) . - sprintf("%0.2d", $mday); -} +use Koha::Util::FrameworkPlugin qw|date_entered|; my $builder = sub { my ( $params ) = @_; --