Bug 14224: Improve escaped characters
To recreate the problem, submit a note like doh"doh Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org> Signed-off-by: Josef Moravec <josef.moravec@gmail.com> Signed-off-by: Marc Véron <veron@veron.ch> Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
This commit is contained in:
parent
ba658d5919
commit
e54152a90b
1 changed files with 3 additions and 2 deletions
|
@ -19,6 +19,7 @@
|
|||
|
||||
use Modern::Perl;
|
||||
|
||||
use JSON qw( to_json );
|
||||
use C4::Service;
|
||||
use C4::Auth qw /check_cookie_auth/;
|
||||
use C4::Letters;
|
||||
|
@ -96,8 +97,8 @@ if ($is_ajax) {
|
|||
$status = "fail";
|
||||
}
|
||||
|
||||
my $response = "{\"status\": \"$status\", \"note\": \"$clean_note\", \"issue_id\": \"$issue_id\"}";
|
||||
output_with_http_headers($query, undef, $response, 'js');
|
||||
my $json = to_json ( { status => $status, note => $clean_note, issue_id => $issue_id } );
|
||||
output_with_http_headers($query, undef, $json, 'json');
|
||||
exit;
|
||||
} # END Issue Note
|
||||
}
|
||||
|
|
Loading…
Reference in a new issue