convert to $update

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

diff --git a/public/code/Year.add_century.pl b/public/code/Year.add_century.pl
index c5b3c06..839c49f 100644 (file)
--- a/public/code/Year.add_century.pl
+++ b/public/code/Year.add_century.pl
@@ -1,3 +1,3 @@
 foreach my $year ( @{ $row->{Year} } ) {
-       push @{ $row->{century} }, int($year/100)+1;
+       push @{ $update->{century} }, int($year/100)+1;
 }