Lines 7-12
use C4::Biblio;
Link Here
|
7 |
use C4::Items; |
7 |
use C4::Items; |
8 |
use Koha::Biblios; |
8 |
use Koha::Biblios; |
9 |
use Koha::Items; |
9 |
use Koha::Items; |
|
|
10 |
use Koha::DateUtils qw( dt_from_string ); |
10 |
|
11 |
|
11 |
use Bytes::Random::Secure; |
12 |
use Bytes::Random::Secure; |
12 |
use Carp; |
13 |
use Carp; |
Lines 488-499
sub _gen_real {
Link Here
|
488 |
|
489 |
|
489 |
sub _gen_date { |
490 |
sub _gen_date { |
490 |
my ($self, $params) = @_; |
491 |
my ($self, $params) = @_; |
491 |
return $self->schema->storage->datetime_parser->format_date(DateTime->now()) |
492 |
return $self->schema->storage->datetime_parser->format_date(dt_from_string) |
492 |
} |
493 |
} |
493 |
|
494 |
|
494 |
sub _gen_datetime { |
495 |
sub _gen_datetime { |
495 |
my ($self, $params) = @_; |
496 |
my ($self, $params) = @_; |
496 |
return $self->schema->storage->datetime_parser->format_datetime(DateTime->now()); |
497 |
return $self->schema->storage->datetime_parser->format_datetime(dt_from_string); |
497 |
} |
498 |
} |
498 |
|
499 |
|
499 |
sub _gen_text { |
500 |
sub _gen_text { |
500 |
- |
|
|