--- trunk/lib/WebPAC/Input/ISI.pm	2007/10/10 21:00:48	903
+++ trunk/lib/WebPAC/Input/ISI.pm	2007/10/12 12:07:35	904
@@ -6,18 +6,19 @@
 use WebPAC::Input;
 use base qw/WebPAC::Common/;
 
+use Data::Dump qw/dump/;
+
 =head1 NAME
 
 WebPAC::Input::ISI - support for ISI Export Format
 
 =head1 VERSION
 
-Version 0.01
+Version 0.02
 
 =cut
 
-our $VERSION = '0.01';
-
+our $VERSION = '0.02';
 
 =head1 SYNOPSIS
 
@@ -131,9 +132,12 @@
 			$log->logdie("can't parse +$. $arg->{path} : $line");
 		}
 
-		$v = $subfields->{$tag}->($v) if defined $subfields->{$tag};
+		if ( defined $v ) {
+			$v = $subfields->{$tag}->($v) if defined $subfields->{$tag};
 
-		push @{ $rec->{$tag} }, $v;
+			$log->debug("$tag: ", sub { dump( $v ) });
+			push @{ $rec->{$tag} }, $v;
+		}
 
 	}