Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Bug 14224: Improve escaped characters

Browse source 
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:
Jonathan Druart 2017-02-01 17:01:00 +01:00 committed by Kyle M Hall
parent ba658d5919
commit e54152a90b
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
opac/svc/patron_notes
View file

@ -19,6 +19,7 @@
use Modern::Perl; use Modern::Perl;
use JSON qw( to_json );
use C4::Service; use C4::Service;
use C4::Auth qw /check_cookie_auth/; use C4::Auth qw /check_cookie_auth/;
use C4::Letters; use C4::Letters;
@ -96,8 +97,8 @@ if ($is_ajax) {
$status = "fail"; $status = "fail";
} }
my $response = "{\"status\": \"$status\", \"note\": \"$clean_note\", \"issue_id\": \"$issue_id\"}"; my $json = to_json ( { status => $status, note => $clean_note, issue_id => $issue_id } );
output_with_http_headers($query, undef, $response, 'js'); output_with_http_headers($query, undef, $json, 'json');
exit; exit;
} # END Issue Note } # END Issue Note
} }