Bug 4068: (follow-up) use URI::Escape
This allows for suggestions that contain characters such as the ampersand to have their status changed. Signed-off-by: Galen Charlton <gmc@esilibrary.com>
This commit is contained in:
parent
769f18a6a9
commit
fb8d47beda
1 changed files with 4 additions and 3 deletions
|
@ -31,6 +31,7 @@ use C4::Search;
|
|||
use C4::Dates qw(format_date);
|
||||
use C4::Members;
|
||||
use C4::Debug;
|
||||
use URI::Escape;
|
||||
|
||||
sub Init{
|
||||
my $suggestion= shift @_;
|
||||
|
@ -182,7 +183,7 @@ elsif ($op eq "change" ) {
|
|||
$$suggestion_ref{'suggestionid'}=$suggestionid;
|
||||
&ModSuggestion($suggestion_ref);
|
||||
}
|
||||
my $params;
|
||||
my $params = '';
|
||||
foreach my $key (
|
||||
qw(
|
||||
displayby branchcode title author isbn publishercode copyrightdate
|
||||
|
@ -192,8 +193,8 @@ elsif ($op eq "change" ) {
|
|||
)
|
||||
)
|
||||
{
|
||||
$params .= $key . '=' . $input->param($key) . '&'
|
||||
if $input->param($key);
|
||||
$params .= $key . '=' . uri_escape($input->param($key)) . '&'
|
||||
if defined($input->param($key));
|
||||
}
|
||||
print $input->redirect("/cgi-bin/koha/suggestion/suggestion.pl?$params");
|
||||
}elsif ($op eq "delete" ) {
|
||||
|
|
Loading…
Reference in a new issue