example SQL file with dbi included in comment

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

diff --git a/public/code/Cited Author.cleanup.pl b/public/code/Cited Author.cleanup.pl
index f709afa..b76fe36 100644 (file)
--- a/public/code/Cited Author.cleanup.pl
+++ b/public/code/Cited Author.cleanup.pl
@@ -1,4 +1,4 @@
-map {
-       s/^\.+//;
-       $_ = uc $_;
-} @{ $rec->{'Cited Author'} };
+foreach my $a ( @{ $row->{'Cited Author'} } ) {
+       $a =~ s/^\.+//;
+       push @{ $update->{'Cited Author'} }, uc $a;
+}