|
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 |
- |
|
|