[interchange-cvs] interchange - jon modified lib/Vend/Search.pm
interchange-core@icdevgroup.org
interchange-core@icdevgroup.org
Fri Jan 24 00:08:00 2003
User: jon
Date: 2003-01-24 05:07:42 GMT
Modified: lib/Vend Tag: STABLE_4_8-branch Search.pm
Log:
Merge from trunk:
* Change stupid behavior where last sort_option is forwarded to
all future unset options; always default to 'none' if not set.
Revision Changes Path
No revision
No revision
2.0.2.5 +3 -8 interchange/lib/Vend/Search.pm
rev 2.0.2.5, prev_rev 2.0.2.4
Index: Search.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Search.pm,v
retrieving revision 2.0.2.4
retrieving revision 2.0.2.5
diff -u -u -r2.0.2.4 -r2.0.2.5
--- Search.pm 26 Nov 2002 03:21:10 -0000 2.0.2.4
+++ Search.pm 24 Jan 2003 05:07:41 -0000 2.0.2.5
@@ -1,6 +1,6 @@
# Vend::Search - Base class for search engines
#
-# $Id: Search.pm,v 2.0.2.4 2002/11/26 03:21:10 jon Exp $
+# $Id: Search.pm,v 2.0.2.5 2003/01/24 05:07:41 jon Exp $
#
# Copyright (C) 1996-2002 Red Hat, Inc. and
# Interchange Development Group, http://www.icdevgroup.org/
@@ -22,7 +22,7 @@
package Vend::Search;
-$VERSION = substr(q$Revision: 2.0.2.4 $, 10);
+$VERSION = substr(q$Revision: 2.0.2.5 $, 10);
use strict;
use vars qw($VERSION);
@@ -1047,18 +1047,13 @@
rn => sub { $_[1] <=> $_[0] },
);
- my $last = 'none';
my $i;
my $max = 0;
for($i = 0; $i < @Flds; $i++) {
$max = $Flds[$i] if $Flds[$i] > $max;
- if (! $Opts[$i]) {
- $Opts[$i] = $last;
- next;
- }
+ $Opts[$i] = 'none', next unless $Opts[$i];
$Opts[$i] = lc $Opts[$i];
$Opts[$i] = 'none' unless defined $Sort_field{$Opts[$i]};
- $last = $Opts[$i];
}
#::logDebug("sort_search_return: flds='@Flds' opts='@Opts'");