convert to $update

[MojoFacets.git] / public / code / Cited Author.cleanup.pl

foreach my $a ( @{ $row->{'Cited Author'} } ) {
        $a =~ s/^\.+//;
        push @{ $update->{'Cited Author'} }, uc $a;
}