Fixed a bug that improperly parsed 'III' as a suffix.

[migration-tools.git] / unicorn / unicorn_patrons_to_tsv.pl

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;