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