fake mfn to make rest of WebPAC happy

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

diff --git a/lib/WebPAC/Input/ISI.pm b/lib/WebPAC/Input/ISI.pm
index d72549d..b1781b0 100644 (file)
--- a/lib/WebPAC/Input/ISI.pm
+++ b/lib/WebPAC/Input/ISI.pm
@@ -106,6 +106,8 @@ sub new {
        my $tag;
        my $rec;
 
+       $self->{size} = 0;
+
        while( $line = <$fh> ) {
                chomp($line);
 
@@ -121,6 +123,7 @@ sub new {
                        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 @@ Return number of records in database
 
 sub size {
        my $self = shift;
-       return $#{$self->{_rec}} + 1;
+       return $self->{size};
 }
 
 =head1 SEE ALSO