--- trunk/lib/WebPAC/Input/ISI.pm	2007/11/28 22:51:43	1076
+++ trunk/lib/WebPAC/Input/ISI.pm	2007/11/28 22:52:01	1077
@@ -106,6 +106,8 @@
 	my $tag;
 	my $rec;
 
+	$self->{size} = 0;
+
 	while( $line = <$fh> ) {
 		chomp($line);
 
@@ -121,6 +123,7 @@
 			foreach ( qw/AB DE ID TI/ ) {
 				$rec->{$_} = join(' ', @{ $rec->{$_} }) if defined $rec->{$_};
 			}
+			$rec->{'000'} = [ ++$self->{size} ];
 			push @{ $self->{_rec} }, $rec;
 			$rec = {};
 			$line = <$fh>;
@@ -173,7 +176,7 @@
 
 sub size {
 	my $self = shift;
-	return $#{$self->{_rec}} + 1;
+	return $self->{size};
 }
 
 =head1 SEE ALSO