[interchange-cvs] interchange - jon modified lib/Vend/DbSearch.pm
interchange-core@interchange.redhat.com
interchange-core@interchange.redhat.com
Tue Oct 30 14:02:00 2001
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;
}