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>
use Modern::Perl;
+use JSON qw( to_json );
use C4::Service;
use C4::Auth qw /check_cookie_auth/;
use C4::Letters;
$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
}