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

(-)a/misc/migration_tools/bulkmarcimport.pl (-2 / +1 lines)
Lines 248-254 RECORD: while ( ) { Link Here
248
                    if ($yamlfile) {
248
                    if ($yamlfile) {
249
                        $yamlhash->{$originalid}->{'authid'} = $id;
249
                        $yamlhash->{$originalid}->{'authid'} = $id;
250
250
251
                        # On récupère tous les souschamps des champs vedettes d'autorités
251
                        # we recover all subfields of the heading authorities
252
                        my @subfields;
252
                        my @subfields;
253
                        foreach my $field ( $marcrecord->field("2..") ) {
253
                        foreach my $field ( $marcrecord->field("2..") ) {
254
                            push @subfields, map { ( $_->[0] =~ /[a-z]/ ? $_->[1] : () ) } $field->subfields();
254
                            push @subfields, map { ( $_->[0] =~ /[a-z]/ ? $_->[1] : () ) } $field->subfields();
255
- 

Return to bug 5635