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

(-)a/C4/Record.pm (-2 / +1 lines)
Lines 880-886 sub marc2cites { Link Here
880
            if($author =~ /([^,]+),?(.*)/) {
880
            if($author =~ /([^,]+),?(.*)/) {
881
                my %a;
881
                my %a;
882
                ($a{'surname'} = $1) =~ s/$re_clean//g;
882
                ($a{'surname'} = $1) =~ s/$re_clean//g;
883
                $a{'forenames'} = [map {s/$re_clean//g;$_} split ' ', $2];
883
                $a{'forenames'} = [map {my $t=$_;$t=~s/$re_clean//g;$t} split ' ', $2];
884
                push(@authors, \%a);
884
                push(@authors, \%a);
885
            }
885
            }
886
        }
886
        }
887
- 

Return to bug 14670