Lines 405-418
sub PrepareSerialsData {
Link Here
|
405 |
my $first; |
405 |
my $first; |
406 |
my $previousnote = ""; |
406 |
my $previousnote = ""; |
407 |
|
407 |
|
408 |
foreach my $subs (@$lines) { |
408 |
foreach my $subs (@{$lines}) { |
409 |
$subs->{'publisheddate'} = ( |
409 |
for my $datefield ( qw(publisheddate planneddate) ) { |
410 |
$subs->{'publisheddate'} |
410 |
# handle both undef and undef returned as 0000-00-00 |
411 |
? format_date( $subs->{'publisheddate'} ) |
411 |
if (!defined $subs->{$datefield} or $subs->{$datefield}=~m/^00/) { |
412 |
: "XXX" |
412 |
$subs->{$datefield} = 'XXX'; |
413 |
); |
413 |
} |
|
|
414 |
else { |
415 |
$subs->{$datefield} = format_date( $subs->{$datefield} ); |
416 |
} |
417 |
} |
414 |
$subs->{'branchname'} = GetBranchName( $subs->{'branchcode'} ); |
418 |
$subs->{'branchname'} = GetBranchName( $subs->{'branchcode'} ); |
415 |
$subs->{'planneddate'} = format_date( $subs->{'planneddate'} ); |
|
|
416 |
$subs->{ "status" . $subs->{'status'} } = 1; |
419 |
$subs->{ "status" . $subs->{'status'} } = 1; |
417 |
$subs->{"checked"} = $subs->{'status'} =~ /1|3|4|7/; |
420 |
$subs->{"checked"} = $subs->{'status'} =~ /1|3|4|7/; |
418 |
|
421 |
|
419 |
- |
|
|