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

(-)a/C4/Record.pm (-2 / +1 lines)
Lines 893-899 sub marc2cites { Link Here
893
            if($author =~ /([^,]+),?(.*)/) {
893
            if($author =~ /([^,]+),?(.*)/) {
894
                my %a;
894
                my %a;
895
                ($a{'surname'} = $1) =~ s/$re_clean//g;
895
                ($a{'surname'} = $1) =~ s/$re_clean//g;
896
                $a{'forenames'} = [map {s/$re_clean//g;$_} split ' ', $2];
896
                $a{'forenames'} = [map {my $t=$_;$t=~s/$re_clean//g;$t} split ' ', $2];
897
                push(@authors, \%a);
897
                push(@authors, \%a);
898
            }
898
            }
899
        }
899
        }
900
- 

Return to bug 14670