From bb1b15d93937677aa61dbee8fce8c19846acb4d8 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Mon, 22 Apr 2013 16:19:01 +0200 Subject: [PATCH] Bug 8278: build the structure with to_json instead of manually. Test plan: Same as previously. Signed-off-by: Kyle M Hall Signed-off-by: Katrin Fischer Signed-off-by: Jared Camins-Esakov --- cataloguing/ysearch.pl | 12 ++++-------- 1 file changed, 4 insertions(+), 8 deletions(-) diff --git a/cataloguing/ysearch.pl b/cataloguing/ysearch.pl index 9c69939171..49dfa3931f 100755 --- a/cataloguing/ysearch.pl +++ b/cataloguing/ysearch.pl @@ -29,6 +29,7 @@ use CGI; use C4::Context; use C4::Charset; use C4::Auth qw/check_cookie_auth/; +use JSON qw/ to_json /; my $input = new CGI; my $query = $input->param('term'); @@ -54,14 +55,9 @@ $sql .= qq( ORDER BY $field); my $sth = $dbh->prepare($sql); $sth->execute("$query%", "% $query%", "%-$query%"); -print "["; -my $i = 0; +my $a = []; while ( my $rec = $sth->fetchrow_hashref ) { - if($i > 0){ print ","; } - print "{\"fieldvalue\":\"" . nsb_clean($rec->{$field}) . "\"" . - "}"; - $i++; + push @$a, { fieldvalue => nsb_clean($rec->{$field}) }; } -print "]"; - +print to_json($a); -- 2.39.5