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

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

Return to bug 14670