diff options
| author | Christian Pointner <equinox@helsinki.at> | 2016-03-23 19:35:41 (GMT) |
|---|---|---|
| committer | Christian Pointner <equinox@helsinki.at> | 2016-03-23 19:35:41 (GMT) |
| commit | 86b3eccf806b3193546b6f85a64b30446e501542 (patch) | |
| tree | 23546cad04b5a15a2d6d836a11abb9ca7b5e1189 /rh-bin | |
| parent | cc7d0e4ae43b6ec892a51bf6b58f33209ca7805e (diff) | |
fixed show list output
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); |