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

(-)a/misc/add_date_fields_to_marc_records.pl (-1 / +1 lines)
Lines 75-80 while ( my ( $biblionumber, $frameworkcode ) = $sth->fetchrow_array ) { Link Here
75
        next if $marc_record->subfield($tag, $subfield);
75
        next if $marc_record->subfield($tag, $subfield);
76
    }
76
    }
77
    if ( $date_field ) {
77
    if ( $date_field ) {
78
        @fields_to_add = ();
78
        my ( $tag,  $subfield ) = split '\$', $date_field;
79
        my ( $tag,  $subfield ) = split '\$', $date_field;
79
        my $date = $marc_record->subfield($tag, $subfield);
80
        my $date = $marc_record->subfield($tag, $subfield);
80
        next unless $date;
81
        next unless $date;
81
- 

Return to bug 23924