cleanup tabular data for eprints3 import

[MojoFacets.git] / public / code / PREZIME.prezime_ucfirst.pl

diff --git a/public/code/PREZIME.prezime_ucfirst.pl b/public/code/PREZIME.prezime_ucfirst.pl
new file mode 100644 (file)
index 0000000..32e5b18
--- /dev/null
+++ b/public/code/PREZIME.prezime_ucfirst.pl
@@ -0,0 +1,4 @@
+foreach my $v ( @{ $row->{'PREZIME'} } ) {
+ $update->{prezime_ucfirst} = ucfirst lc $v;
+}
+