View | Details | Raw Unified | Return to bug 5021
Collapse All | Expand All

(-)a/C4/Serials.pm (-8 / +10 lines)
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
- 

Return to bug 5021