projects
/
migration-tools.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
(from parent 1:
67a0e97
)
Fixed a bug that improperly parsed 'III' as a suffix.
author
Ben Ostrowsky
<ben@esilibrary.com>
Wed, 26 May 2010 15:03:48 +0000 (15:03 +0000)
committer
Galen Charlton
<gmc@esilibrary.com>
Mon, 16 Jul 2012 16:09:24 +0000 (12:09 -0400)
git-svn-id: svn://nox.esilibrary.com/migration-tools@694
eee7cc8d
-164e-4af6-8e1b-
092a69004917
unicorn/unicorn_patrons_to_tsv.pl
patch
|
blob
|
history
diff --git
a/unicorn/unicorn_patrons_to_tsv.pl
b/unicorn/unicorn_patrons_to_tsv.pl
index
12b4371
..
5c0a248
100755
(executable)
--- a/
unicorn/unicorn_patrons_to_tsv.pl
+++ b/
unicorn/unicorn_patrons_to_tsv.pl
@@
-183,7
+183,7
@@
for (my $u = 0; $u < @records; $u++) {
}
# Strip off a suffix, if there is one
- foreach $suffix (qw( Jr\. Jr Sr\. Sr II III IV )) {
+ foreach $suffix (qw( Jr\. Jr Sr\. Sr III II IV )) {
if ($temp_name =~ / $suffix/i) {
$records[$u]{'l_suffix_name'} = $suffix;
$temp_name =~ s/ $suffix//i;