|
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 |
- |
|
|