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