join PA and JI

git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@1288 07558da8-63fa-0310-ba24-9fe276d99e06

diff --git a/lib/WebPAC/Input/ISI.pm b/lib/WebPAC/Input/ISI.pm
index 2a1606d..196e36e 100644 (file)
--- a/lib/WebPAC/Input/ISI.pm
+++ b/lib/WebPAC/Input/ISI.pm
@@ -128,7 +128,7 @@ sub new {
                                }
                } elsif ( $line eq 'ER' ) {
                        # join tags
-                       foreach ( qw/AB DE ID TI SO RP SC FU FX/ ) {
+                       foreach ( qw/AB DE ID TI SO RP SC FU FX PA JI/ ) {
                                $rec->{$_} = join(' ', @{ $rec->{$_} }) if defined $rec->{$_};
                        }
                        # split on ;