--- trunk/lib/WebPAC/Input/ISI.pm	2009/09/18 21:38:09	1287
+++ trunk/lib/WebPAC/Input/ISI.pm	2009/09/20 19:05:56	1302
@@ -128,7 +128,7 @@
 				}
 		} 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 ;
@@ -146,8 +146,10 @@
 			$log->logdie("expected blank like in ",$arg->{path}, " +$.: $line") unless ( $line eq '' );
 		} elsif ( $line eq 'EF' ) {
 			last;
+		} elsif ( $line =~ m{^(\S\S)\s*$} ) {
+			warn "# $arg->{path} +$. empty |$line|\n";
 		} else {
-			$log->logdie("can't parse +$. $arg->{path} : $line");
+			$log->logdie("can't parse +$. $arg->{path} |$line|");
 		}
 
 		if ( defined $v ) {