| 921 |
if ( $author =~ /([^,]+),?(.*)/ ) { |
921 |
if ( $author =~ /([^,]+),?(.*)/ ) { |
| 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 ]; |