Attachment #49824 for bug #13438

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




use C4::Auth;
use C4::Context;
use C4::Output;
use Koha::Util::FrameworkPlugin qw|date_entered|;
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);
}

my $builder = sub {
    my ( $params ) = @_;
- 

Return to bug 13438

Lines 25-40 use CGI qw ( -utf8 ); Link Here

(-)a/cataloguing/value_builder/normarc_field_008.pl (-11 / +1 lines)
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	-