[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;
}