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 485-496
sub _gen_real {
Link Here
|
485 |
|
486 |
|
486 |
sub _gen_date { |
487 |
sub _gen_date { |
487 |
my ($self, $params) = @_; |
488 |
my ($self, $params) = @_; |
488 |
return $self->schema->storage->datetime_parser->format_date(DateTime->now()) |
489 |
return $self->schema->storage->datetime_parser->format_date(dt_from_string) |
489 |
} |
490 |
} |
490 |
|
491 |
|
491 |
sub _gen_datetime { |
492 |
sub _gen_datetime { |
492 |
my ($self, $params) = @_; |
493 |
my ($self, $params) = @_; |
493 |
return $self->schema->storage->datetime_parser->format_datetime(DateTime->now()); |
494 |
return $self->schema->storage->datetime_parser->format_datetime(dt_from_string); |
494 |
} |
495 |
} |
495 |
|
496 |
|
496 |
sub _gen_text { |
497 |
sub _gen_text { |
497 |
- |
|
|