projects
/
MojoFacets.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
convert to $update
[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
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
;
+}