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

(-)a/C4/Record.pm (-3 / +4 lines)
Lines 919-927 sub marc2cites { Link Here
919
                $author = $field->subfield("a");
919
                $author = $field->subfield("a");
920
            }
920
            }
921
            if ( $author =~ /([^,]+),?(.*)/ ) {
921
            if ( $author =~ /([^,]+),?(.*)/ ) {
922
                my $surname   = $1;
923
                my $forenames = $2;
922
                my %a;
924
                my %a;
923
                ( $a{'surname'} = $1 ) =~ s/$re_clean//g;
925
                ( $a{'surname'} = $surname ) =~ s/$re_clean//g;
924
                $a{'forenames'} = [ map { my $t = $_; $t =~ s/$re_clean//g; $t } split ' ', $2 ];
926
                $a{'forenames'} = [ map { my $t = $_; $t =~ s/$re_clean//g; $t } split ' ', $forenames ];
925
                push( @authors, \%a );
927
                push( @authors, \%a );
926
            }
928
            }
927
        }
929
        }
928
- 

Return to bug 41706