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

interchange-core@interchange.redhat.com interchange-core@interchange.redhat.com
Wed Nov 21 15:53:00 2001


User:      jon
Date:      2001-11-21 20:52:52 GMT
Modified:  lib/Vend Tag: STABLE_4_8-branch DbSearch.pm
Log:
Revert unnecessary change.

Revision  Changes    Path
No                   revision



No                   revision



2.0.2.4   +3 -2      interchange/lib/Vend/DbSearch.pm


rev 2.0.2.4, prev_rev 2.0.2.3
Index: DbSearch.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/DbSearch.pm,v
retrieving revision 2.0.2.3
retrieving revision 2.0.2.4
diff -u -u -r2.0.2.3 -r2.0.2.4
--- DbSearch.pm	2001/11/21 18:29:04	2.0.2.3
+++ DbSearch.pm	2001/11/21 20:52:51	2.0.2.4
@@ -1,6 +1,6 @@
 # Vend::DbSearch - Search indexes with Interchange
 #
-# $Id: DbSearch.pm,v 2.0.2.3 2001/11/21 18:29:04 jon Exp $
+# $Id: DbSearch.pm,v 2.0.2.4 2001/11/21 20:52:51 jon Exp $
 #
 # Adapted for use with Interchange from Search::TextSearch
 #
@@ -26,7 +26,7 @@
 
 @ISA = qw(Vend::Search);
 
-$VERSION = substr(q$Revision: 2.0.2.3 $, 10);
+$VERSION = substr(q$Revision: 2.0.2.4 $, 10);
 
 use Search::Dict;
 use strict;
@@ -352,6 +352,7 @@
 		$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;
 	}