Lines 133-140
foreach my $tmpserialid (@serialids) {
Link Here
|
133 |
&& !$processedserialid{$tmpserialid} ) |
133 |
&& !$processedserialid{$tmpserialid} ) |
134 |
{ |
134 |
{ |
135 |
my $data = GetSerialInformation($tmpserialid); |
135 |
my $data = GetSerialInformation($tmpserialid); |
136 |
$data->{publisheddate} = format_date( $data->{publisheddate} ); |
136 |
for my $date ( qw(publisheddate planneddate)) { |
137 |
$data->{planneddate} = format_date( $data->{planneddate} ); |
137 |
if ($data->{$date} ) { |
|
|
138 |
$data->{$date} = format_date( $data->{$date} ); |
139 |
} |
140 |
else { |
141 |
$data->{$date} = 'XXX'; |
142 |
} |
143 |
} |
138 |
$data->{arriveddate}=$today->output('syspref'); |
144 |
$data->{arriveddate}=$today->output('syspref'); |
139 |
$data->{'editdisable'} = ( |
145 |
$data->{'editdisable'} = ( |
140 |
( |
146 |
( |
141 |
- |
|
|