diff options
author | Christian Pointner <equinox@helsinki.at> | 2016-03-26 00:51:16 (GMT) |
---|---|---|
committer | Christian Pointner <equinox@helsinki.at> | 2016-03-26 00:51:16 (GMT) |
commit | 610c31e9361787250cad241babd99f5d2581d23a (patch) | |
tree | a5a982e96231996ac0a57a383901293dcdc07bcd /rh-bin | |
parent | 729e6aa445323805c045d2aa1bf4c4d415e181ff (diff) |
sort list of shows before export
Diffstat (limited to 'rh-bin')
-rwxr-xr-x | rh-bin/showlist.json | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/rh-bin/showlist.json b/rh-bin/showlist.json index 507817d..35d81e3 100755 --- a/rh-bin/showlist.json +++ b/rh-bin/showlist.json @@ -38,7 +38,8 @@ if(defined $ctx) { $status = $shows[1]; $errorstring = $shows[2]; } else { - for my $href (@shows) { + my @sorted = sort { lc($a->{'TITLE'}) cmp lc($b->{'TITLE'}) } @shows; + for my $href (@sorted) { my %show; $show{'id'} = int($href->{'ID'}); $show{'title'} = $href->{'ID'} . " | " . $href->{'TITLE'}; |