Lines 2589-2594
sub UpdateDatereceived {
Link Here
|
2589 |
|
2589 |
|
2590 |
my $bibdata; |
2590 |
my $bibdata; |
2591 |
unless (ref $biblionumberOrBibliodata) { #We have a SCALAR, eg. a biblionumber. |
2591 |
unless (ref $biblionumberOrBibliodata) { #We have a SCALAR, eg. a biblionumber. |
|
|
2592 |
return 'NO_BIBLIONUMBER' unless defined $biblionumberOrBibliodata; |
2592 |
my @biblioitems = C4::Biblio::GetBiblioItemByBiblioNumber($biblionumberOrBibliodata); |
2593 |
my @biblioitems = C4::Biblio::GetBiblioItemByBiblioNumber($biblionumberOrBibliodata); |
2593 |
$bibdata = $biblioitems[0]; |
2594 |
$bibdata = $biblioitems[0]; |
2594 |
} |
2595 |
} |
Lines 2603-2608
sub UpdateDatereceived {
Link Here
|
2603 |
} |
2604 |
} |
2604 |
#Use the given DateTime or Use Now() |
2605 |
#Use the given DateTime or Use Now() |
2605 |
$datereceived = ($datereceived) ? $datereceived->iso8601() : DateTime->now( time_zone => C4::Context->tz() )->iso8601(); |
2606 |
$datereceived = ($datereceived) ? $datereceived->iso8601() : DateTime->now( time_zone => C4::Context->tz() )->iso8601(); |
|
|
2607 |
$datereceived =~ s/T/ / if defined $datereceived; |
2606 |
|
2608 |
|
2607 |
#Make sure to only update the datereceived for the Biblio if it hasn't been set yet. |
2609 |
#Make sure to only update the datereceived for the Biblio if it hasn't been set yet. |
2608 |
if ($bibdata->{datereceived}) { |
2610 |
if ($bibdata->{datereceived}) { |