@@ -, +, @@ defined --- Koha/Biblio.pm | 14 ++++++++++++++ t/db_dependent/Koha/Biblios.t | 15 +++++++++++++-- 2 files changed, 27 insertions(+), 2 deletions(-) --- a/Koha/Biblio.pm +++ a/Koha/Biblio.pm @@ -45,6 +45,20 @@ Koha::Biblio - Koha Biblio Object class =cut +=head3 store + +Overloaded I method to set default values + +=cut + +sub store { + my ( $self ) = @_; + + $self->datecreated( dt_from_string ) unless $self->datecreated; + + return $self->SUPER::store; +} + =head3 subtitles my @subtitles = $biblio->subtitles(); --- a/t/db_dependent/Koha/Biblios.t +++ a/t/db_dependent/Koha/Biblios.t @@ -19,11 +19,11 @@ use Modern::Perl; -use Test::More tests => 3; +use Test::More tests => 4; use C4::Reserves; -use Koha::DateUtils qw( dt_from_string ); +use Koha::DateUtils qw( dt_from_string output_pref ); use Koha::Biblios; use Koha::Patrons; use Koha::Subscriptions; @@ -45,6 +45,17 @@ my $biblioitem = $schema->resultset('Biblioitem')->new( } )->insert(); +subtest 'store' => sub { + plan tests => 1; + is( + Koha::Biblios->find( $biblio->biblionumber )->datecreated, + output_pref( + { dt => dt_from_string, dateformat => 'iso', dateonly => 1 } + ), + "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 ); --