Lines 350-356
sub build_query_compat {
Link Here
|
350 |
while ( my ( $oand, $otor, $index ) = $ea->() ) { |
350 |
while ( my ( $oand, $otor, $index ) = $ea->() ) { |
351 |
$query_cgi .= '&' if $query_cgi; |
351 |
$query_cgi .= '&' if $query_cgi; |
352 |
$query_cgi .= 'idx=' . uri_escape_utf8( $index // '' ) . '&q=' . uri_escape_utf8($oand); |
352 |
$query_cgi .= 'idx=' . uri_escape_utf8( $index // '' ) . '&q=' . uri_escape_utf8($oand); |
353 |
$query_cgi .= '&op=' . uri_escape_utf8($otor) if $otor; |
353 |
$query_cgi .= '&op=' . uri_escape_utf8($otor) if $otor =~ /^(AND|OR|NOT)$/i; |
354 |
} |
354 |
} |
355 |
$query_cgi .= '&scan=1' if ($scan); |
355 |
$query_cgi .= '&scan=1' if ($scan); |
356 |
|
356 |
|
357 |
- |
|
|