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

(-)a/C4/Record.pm (-2 / +1 lines)
Lines 845-851 sub marc2cites { Link Here
845
            if($author =~ /([^,]+),?(.*)/) {
845
            if($author =~ /([^,]+),?(.*)/) {
846
                my %a;
846
                my %a;
847
                ($a{'surname'} = $1) =~ s/$re_clean//g;
847
                ($a{'surname'} = $1) =~ s/$re_clean//g;
848
                $a{'forenames'} = [map {s/$re_clean//g;$_} split ' ', $2];
848
                $a{'forenames'} = [map {my $t=$_;$t=~s/$re_clean//g;$t} split ' ', $2];
849
                push(@authors, \%a);
849
                push(@authors, \%a);
850
            }
850
            }
851
        }
851
        }
852
- 

Return to bug 14670