[interchange-cvs] interchange - jon modified lib/Vend/DbSearch.pm

[interchange-core@interchange.redhat.com]

User:      jon
Date:      2001-10-30 19:00:44 GMT
Modified:  lib/Vend DbSearch.pm
Log:
Remove orphaned bit of code.

Revision  Changes    Path
2.3       +2 -3      interchange/lib/Vend/DbSearch.pm


rev 2.3, prev_rev 2.2
Index: DbSearch.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/DbSearch.pm,v
retrieving revision 2.2
retrieving revision 2.3
diff -u -u -r2.2 -r2.3
--- DbSearch.pm	2001/10/18 02:05:42	2.2
+++ DbSearch.pm	2001/10/30 19:00:44	2.3
@@ -1,6 +1,6 @@
 # Vend::DbSearch - Search indexes with Interchange
 #
-# $Id: DbSearch.pm,v 2.2 2001/10/18 02:05:42 mheins Exp $
+# $Id: DbSearch.pm,v 2.3 2001/10/30 19:00:44 jon Exp $
 #
 # Adapted for use with Interchange from Search::TextSearch
 #
@@ -26,7 +26,7 @@
 
 @ISA = qw(Vend::Search);
 
-$VERSION = substr(q$Revision: 2.2 $, 10);
+$VERSION = substr(q$Revision: 2.3 $, 10);
 
 use Search::Dict;
 use strict;
@@ -351,7 +351,6 @@
 		$s->{mv_results} = \@out;
 	}
 	elsif($s->{mv_return_reference} eq 'LIST') {
-		my $col = scalar @{$s->{mv_return_fields}};
 		@out = map { join $s->{mv_return_delim}, @$_ } @out;
 		$s->{mv_results} = join $s->{mv_record_delim}, @out;
 	}