LP#1310751: Reorder query-building wrapper for QueryParser
[working/Evergreen.git] / Open-ILS / src / perlmods / lib / OpenILS / Application / Storage / Publisher / metabib.pm
index 625f5ab..e71fd35 100644 (file)
@@ -3242,32 +3242,29 @@ sub query_parser_fts_wrapper {
 
     my $base_plan = $parser->new( query => $base_query )->parse;
 
-    $query = "$query preferred_language($args{preferred_language})"
+    $query = "preferred_language($args{preferred_language}) $query"
         if ($args{preferred_language} and !$base_plan->parse_tree->find_filter('preferred_language'));
-    $query = "$query preferred_language_weight($args{preferred_language_weight})"
+    $query = "preferred_language_weight($args{preferred_language_weight}) $query"
         if ($args{preferred_language_weight} and !$base_plan->parse_tree->find_filter('preferred_language_weight') and !$base_plan->parse_tree->find_filter('preferred_language_multiplier'));
 
 
-    # we add these to the end of the query (last-wins) because in wrapper mode we want to retain the behaviour
-    # of separately specified options taking precidenc -- IOW, the user should not be able to cause a change in,
-    # say, superpage size by adjusting the query string.
-    $query = "$query estimation_strategy($args{estimation_strategy})" if ($args{estimation_strategy});
-    $query = "$query site($args{org_unit})" if ($args{org_unit});
-    $query = "$query depth($args{depth})" if (defined($args{depth}));
-    $query = "$query sort($args{sort})" if ($args{sort});
-    $query = "$query limit($args{limit})" if ($args{limit});
-    $query = "$query core_limit($args{core_limit})" if ($args{core_limit});
-    $query = "$query skip_check($args{skip_check})" if ($args{skip_check});
-    $query = "$query superpage($args{superpage})" if ($args{superpage});
-    $query = "$query offset($args{offset})" if ($args{offset});
-    $query = "$query #metarecord" if ($self->api_name =~ /metabib/);
-    $query = "$query #available" if ($args{available});
-    $query = "$query #descending" if ($args{sort_dir} && $args{sort_dir} =~ /^d/i);
-    $query = "$query #staff" if ($self->api_name =~ /staff/);
-    $query = "$query before($args{before})" if (defined($args{before}) and $args{before} =~ /^\d+$/);
-    $query = "$query after($args{after})" if (defined($args{after}) and $args{after} =~ /^\d+$/);
-    $query = "$query during($args{during})" if (defined($args{during}) and $args{during} =~ /^\d+$/);
-    $query = "$query between($args{between}[0],$args{between}[1])"
+    $query = "estimation_strategy($args{estimation_strategy}) $query" if ($args{estimation_strategy});
+    $query = "site($args{org_unit}) $query" if ($args{org_unit});
+    $query = "depth($args{depth}) $query" if (defined($args{depth}));
+    $query = "sort($args{sort}) $query" if ($args{sort});
+    $query = "limit($args{limit}) $query" if ($args{limit});
+    $query = "core_limit($args{core_limit}) $query" if ($args{core_limit});
+    $query = "skip_check($args{skip_check}) $query" if ($args{skip_check});
+    $query = "superpage($args{superpage}) $query" if ($args{superpage});
+    $query = "offset($args{offset}) $query" if ($args{offset});
+    $query = "#metarecord $query" if ($self->api_name =~ /metabib/);
+    $query = "#available $query" if ($args{available});
+    $query = "#descending $query" if ($args{sort_dir} && $args{sort_dir} =~ /^d/i);
+    $query = "#staff $query" if ($self->api_name =~ /staff/);
+    $query = "before($args{before}) $query" if (defined($args{before}) and $args{before} =~ /^\d+$/);
+    $query = "after($args{after}) $query" if (defined($args{after}) and $args{after} =~ /^\d+$/);
+    $query = "during($args{during}) $query" if (defined($args{during}) and $args{during} =~ /^\d+$/);
+    $query = "between($args{between}[0],$args{between}[1]) $query"
         if ( ref($args{between}) and @{$args{between}} == 2 and $args{between}[0] =~ /^\d+$/ and $args{between}[1] =~ /^\d+$/ );