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