From 862d0d0480ea64e4c6d9f86aca70e84129675829 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Mon, 28 Jun 2010 01:25:48 +0200
Subject: [PATCH] convert to $update

---
 public/code/Cited Author.cleanup.pl | 8 ++++----
 public/code/Year.add_century.pl     | 2 +-
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/public/code/Cited Author.cleanup.pl b/public/code/Cited Author.cleanup.pl
index 9f95c16..b76fe36 100644
--- 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
--- 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;
 }
-- 
2.20.1