change left-over $rec to $row
[MojoFacets.git] / public / code / Cited Author.cleanup.pl
1 map {
2         s/^\.+//;
3         $_ = uc $_;
4 } @{ $row->{'Cited Author'} };