Lines 203-211
sub _url_with_get_params {
Link Here
|
203 |
my $uri_base_part = C4::Context->preference('OPACBaseURL') . $query->script_name(); |
203 |
my $uri_base_part = C4::Context->preference('OPACBaseURL') . $query->script_name(); |
204 |
my $uri_params_part = ''; |
204 |
my $uri_params_part = ''; |
205 |
foreach ( $query->url_param() ) { |
205 |
foreach ( $query->url_param() ) { |
206 |
$uri_params_part .= '&' if $uri_params_part; |
206 |
# url_param() always returns parameters that were deleted by delete() |
207 |
$uri_params_part .= $_ . '='; |
207 |
# This additional check ensure that parameter was not deleted. |
208 |
$uri_params_part .= URI::Escape::uri_escape( $query->url_param($_) ); |
208 |
if ($query->param($_)) { |
|
|
209 |
$uri_params_part .= '&' if $uri_params_part; |
210 |
$uri_params_part .= $_ . '='; |
211 |
$uri_params_part .= URI::Escape::uri_escape( $query->param($_) ); |
212 |
} |
209 |
} |
213 |
} |
210 |
$uri_base_part .= '?' if $uri_params_part; |
214 |
$uri_base_part .= '?' if $uri_params_part; |
211 |
|
215 |
|
212 |
- |
|
|