shifting left and right argument roles.
---
C4/Search.pm | 7 +++----
1 files changed, 3 insertions(+), 4 deletions(-)
diff --git a/C4/Search.pm b/C4/Search.pm
index d4f0417..0851076 100644
--- a/C4/Search.pm
+++ b/C4/Search.pm
@@ -1800,14 +1800,13 @@ sub NZoperatorOR{
sub NZoperatorNOT{
my ($leftresult, $rightresult)[EMAIL PROTECTED];
- my @leftresult = split /;/, $leftresult;
+ my @rightresult = split /;/, $rightresult;
# my @rightresult = split /;/,$leftresult;
my $finalresult;
- foreach (@leftresult) {
- my $value=$_;
+ foreach my $value (@rightresult) {
$value=$1 if $value=~m/(.*)-\d+$/;
- unless ($rightresult =~ "$value-") {
+ unless ($leftresult =~ "$value-") {
$finalresult .= "$_;";
}
}
--
1.5.4.3
_______________________________________________
Koha-patches mailing list
[email protected]
http://lists.koha.org/mailman/listinfo/koha-patches
