@@ -, +, @@ defined --- Koha/Biblio.pm | 13 +++++++++++++ t/db_dependent/Koha/Biblios.t | 7 ++++++- 2 files changed, 19 insertions(+), 1 deletion(-) --- a/Koha/Biblio.pm +++ a/Koha/Biblio.pm @@ -45,6 +45,19 @@ Koha::Biblio - Koha Biblio Object class =cut +=head3 new + +Overloaded I method to set default values + +=cut + +sub new { + my ( $class, $params ) = @_; + + $params->{datecreated} ||= dt_from_string; + return $class->SUPER::new($params); +} + =head3 subtitles my @subtitles = $biblio->subtitles(); --- a/t/db_dependent/Koha/Biblios.t +++ a/t/db_dependent/Koha/Biblios.t @@ -19,7 +19,7 @@ use Modern::Perl; -use Test::More tests => 2; +use Test::More tests => 3; use C4::Reserves; @@ -45,6 +45,11 @@ my $biblioitem = $schema->resultset('Biblioitem')->new( } )->insert(); +subtest 'new' => sub { + plan tests => 1; + is( $biblio->datecreated, dt_from_string, "datecreated must be set to today if not passed to the constructor" ); +}; + subtest 'holds + current_holds' => sub { plan tests => 5; C4::Reserves::AddReserve( $patron->branchcode, $patron->borrowernumber, $biblio->biblionumber ); --