- my $data = GetSerialInformation($tmpserialid);
- $data->{publisheddate} = format_date( $data->{publisheddate} );
- $data->{planneddate} = format_date( $data->{planneddate} );
- $data->{arriveddate}=$today->output('syspref');
- $data->{'editdisable'} = (
+ my $serinfo = GetSerialInformation($serialid); #TODO duplicates work done by GetSerials2 above
+ for my $d ( qw( publisheddate planneddate )){
+ if ( $serinfo->{$d} =~m/^00/ ) {
+ $serinfo->{$d} = q{};
+ }
+ else {
+ $serinfo->{$d} = format_date( $serinfo->{$d} );
+ }
+ }
+ $serinfo->{arriveddate}=$today->output('syspref');
+
+ $serinfo->{'editdisable'} = (