diff options
Diffstat (limited to 'rh-bin')
-rwxr-xr-x | rh-bin/showlist.json | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/rh-bin/showlist.json b/rh-bin/showlist.json index 185a0a5..8c28ad8 100755 --- a/rh-bin/showlist.json +++ b/rh-bin/showlist.json @@ -42,7 +42,7 @@ if(defined $ctx) { my %show; $show{'id'} = $href->{'ID'}; $show{'title'} = $href->{'ID'} . " | " . $href->{'TITLE'}; - push @showlist, %show; + push @showlist, \%show; } $responsecode = 200; $status = "OK"; @@ -58,4 +58,4 @@ $answer{'shows'} = \@showlist; print "Content-type: application/json; charset=UTF-8\n"; print "Status: $responsecode\n\n"; -print encode_json \%answer; +print JSON->new->encode(\%answer); |