Don't let pref_ou repeat in staff recent searches list
[working/Evergreen.git] / Open-ILS / src / perlmods / lib / OpenILS / WWW / EGCatLoader / Search.pm
index 8d81cf5..5e36541 100644 (file)
@@ -137,7 +137,7 @@ sub _prepare_biblio_search {
     }
 
     my $pref_ou = $ctx->{pref_ou};
-    if (defined($pref_ou) and $pref_ou ne '' and $pref_ou != $org and ($pref_ou ne $ctx->{aou_tree}->()->id)) {
+    if (defined($pref_ou) and $pref_ou ne '' and $pref_ou != $org and ($pref_ou ne $ctx->{aou_tree}->()->id) and not $query =~ / pref_ou\(\S+\)/) {
         my $plib = $ctx->{get_aou}->($pref_ou)->shortname;
         $query .= " pref_ou($plib)";
     }