X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=perl%2Flib%2FIDZebra%2FScanList.pm;h=8bf5025dbd8e5d3d10db3e1f35e9ecc58874a5f4;hb=6aa184fabb86b0535bc1d4d50cb6967e7425a068;hp=9383f00147aa70b59cb2f7b90ed066d8e48f1435;hpb=1ccadd935ed1b004e16537ab77c0653dd9058f99;p=idzebra-moved-to-github.git

diff --git a/perl/lib/IDZebra/ScanList.pm b/perl/lib/IDZebra/ScanList.pm
index 9383f00..8bf5025 100644
--- a/perl/lib/IDZebra/ScanList.pm
+++ b/perl/lib/IDZebra/ScanList.pm
@@ -1,4 +1,4 @@
-# $Id: ScanList.pm,v 1.2 2003-03-05 13:55:22 pop Exp $
+# $Id: ScanList.pm,v 1.3 2003-03-12 17:08:53 pop Exp $
 # 
 # Zebra perl API header
 # =============================================================================
@@ -13,7 +13,7 @@ BEGIN {
     use IDZebra::ScanEntry;
     use Scalar::Util qw(weaken);
     use Carp;
-    our $VERSION = do { my @r = (q$Revision: 1.2 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; 
+    our $VERSION = do { my @r = (q$Revision: 1.3 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; 
     our @ISA = qw(IDZebra::Logger);
 }
 
@@ -45,6 +45,8 @@ sub new {
 sub DESTROY {
     my $self = shift;
 
+#    logf(LOG_LOG,"DESTROY: IDZebra::ScanList");
+
     if ($self->{odr_stream}) {
         IDZebra::odr_reset($self->{odr_stream});
         IDZebra::odr_destroy($self->{odr_stream});
@@ -113,11 +115,12 @@ sub entries {
     
     my @res;
     for (my $i=1; $i<=$so->{num_entries}; $i++) {
-	
+	my $se = IDZebra::getScanEntry($so, $i);
 	push (@res, 
-	    IDZebra::ScanEntry->new(entry    => IDZebra::getScanEntry($so, $i),
-				    position => $i,
-				    list     => $self));
+	    IDZebra::ScanEntry->new($se->{term},
+				    $se->{occurrences},
+				    $i,
+				    $self));
     }
  
     if ($self->{databases}) {