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 79-84 while ( my ( $biblionumber, $frameworkcode ) = $sth->fetchrow_array ) { Link Here
79 
        next if $marc_record->subfield($tag, $subfield);
 79 
        next if $marc_record->subfield($tag, $subfield);
80 
    }
 80 
    }
81 
    if ( $date_field ) {
 81 
    if ( $date_field ) {
82 
        @fields_to_add = ();
82 
        my ( $tag,  $subfield ) = split '\$', $date_field;
 83 
        my ( $tag,  $subfield ) = split '\$', $date_field;
83 
        my $date = $marc_record->subfield($tag, $subfield);
 84 
        my $date = $marc_record->subfield($tag, $subfield);
84 
        next unless $date;
 85 
        next unless $date;
85 
-

Return to bug 23924