[interchange-cvs] interchange - racke modified lib/Vend/Swish2.pm
interchange-cvs at icdevgroup.org
interchange-cvs at icdevgroup.org
Fri Jun 23 10:41:41 EDT 2006
User: racke
Date: 2006-06-23 14:41:40 GMT
Modified: lib/Vend Swish2.pm
Log:
removed cruft
Revision Changes Path
1.6 +2 -4 interchange/lib/Vend/Swish2.pm
rev 1.6, prev_rev 1.5
Index: Swish2.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Swish2.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- Swish2.pm 23 Jun 2006 14:34:42 -0000 1.5
+++ Swish2.pm 23 Jun 2006 14:41:40 -0000 1.6
@@ -1,6 +1,6 @@
# Vend::Swish2 - Search indexes with Swish-e's new SWISH::API
#
-# $Id: Swish2.pm,v 1.5 2006/06/23 14:34:42 racke Exp $
+# $Id: Swish2.pm,v 1.6 2006/06/23 14:41:40 racke Exp $
#
# Adapted from Vend::Swish by Brian Miller <brian at endpoint.com>
#
@@ -26,7 +26,7 @@
require Vend::Search;
@ISA = qw(Vend::Search);
-$VERSION = substr(q$Revision: 1.5 $, 10);
+$VERSION = substr(q$Revision: 1.6 $, 10);
use strict;
use lib qw( /usr/local/lib/swish-e/perl );
@@ -228,8 +228,6 @@
my @out;
while (my $result = $results->NextResult) {
- my $out_ref = [ map { $result->Property( $fmap{$_} ) } @{ $s->{'mv_field_names'} } ];
-
my $out_ref = [];
foreach my $field (@{ $s->{'mv_field_names'} }) {
if ($field =~ /context/) {
More information about the interchange-cvs
mailing list