don't skip last record in marc

[webpac2] / lib / WebPAC / Input / MARC.pm

diff --git a/lib/WebPAC/Input/MARC.pm b/lib/WebPAC/Input/MARC.pm
index 6002320..4a8e1c5 100644 (file)
--- a/lib/WebPAC/Input/MARC.pm
+++ b/lib/WebPAC/Input/MARC.pm
@@ -57,7 +57,7 @@ sub new {
        my $db = new MARC::Fast(
                marcdb => $arg->{path},
        );
-       my $db_size = $db->count - 1;   # FIXME
+       my $db_size = $db->count;
 
        $self->{_marc_size} = $db_size;
        $self->{_marc_db} = $db;