Bug 20596: (QA follow-up) perltidy

Signed-off-by: Fridolin Somers <fridolin.somers@biblibre.com>
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
(cherry picked from commit aa13c1a9d1)
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
(cherry picked from commit d2ac793be2)

Signed-off-by: Lucas Gass <lucas@bywatersolutions.com>
(cherry picked from commit 8441834b84)
Signed-off-by: Arthur Suzuki <arthur.suzuki@biblibre.com>
This commit is contained in:
Fridolin Somers 2022-12-14 20:31:53 -10:00 committed by Arthur Suzuki
parent c713d1c357
commit 424caa64be
No known key found for this signature in database
GPG Key ID: 7558BEE2BEEEBCAA
1 changed files with 4 additions and 4 deletions

View File

@ -206,18 +206,18 @@ sub SearchAuthorities {
} #if value
}
##Add how many queries generated
if (defined $query && $query=~/\S+/){
if ( defined $query && $query =~ /\S+/ ) {
#NOTE: This code path is used by authority search in cataloguing plugins...
#FIXME: This does not quite work the way the author probably intended.
#It creates a ($query prefix) AND (query 1) AND (query 2) structure instead of
#($query prefix) AND (query 1 AND query 2)
$query= $and x $attr_cnt . $query . (defined $q2 ? $q2 : '');
$query = $and x $attr_cnt . $query . ( defined $q2 ? $q2 : '' );
} else {
#NOTE: This code path is used by authority search in authority home and record matching rules...
my $op_prefix = '';
#NOTE: Without the following code, multiple queries will never be joined together
#with a Boolean operator.
if ($attr_cnt > 1){
if ( $attr_cnt > 1 ) {
#NOTE: We always need 1 less operator than we have operands,
#so long as there is more than 1 operand
my $or_cnt = $attr_cnt - 1;
@ -225,7 +225,7 @@ sub SearchAuthorities {
$op_prefix = ' @or ' x $or_cnt;
#NOTE: This evaluates to a logical structure like (query 1) OR (query 2) OR (query 3)
}
$query= $op_prefix . $q2;
$query = $op_prefix . $q2;
}
## Adding order
#$query=' @or @attr 7=2 @attr 1=Heading 0 @or @attr 7=1 @attr 1=Heading 1'.$query if ($sortby eq "HeadingDsc");