diff options
author | Daniel Friesel <derf@finalrewind.org> | 2015-03-23 19:36:59 +0100 |
---|---|---|
committer | Daniel Friesel <derf@finalrewind.org> | 2015-03-23 19:36:59 +0100 |
commit | 834650da8827c65ba8feda9e7680c71b2fdd62a9 (patch) | |
tree | 785c3e857e2f5ee25cb946b638617b3dbdcaf3f6 | |
parent | adc7247de7ac6affb646f65913b98787668e2e01 (diff) |
index: remove debug outputs
-rw-r--r-- | index.pl | 3 |
1 files changed, 0 insertions, 3 deletions
@@ -476,13 +476,10 @@ get '/2ddata.tsv' => sub { $dbres = $newres; for my $row ( @{$dbres} ) { - say $row->[0]; splice( @{$row}, 0, 1, $weekdays[ substr( $row->[0], 0, 1 ) ] . q{ } . substr( $row->[0], 2 ) ); - say $row->[0]; } - say scalar @{$dbres}; # Fix weekday ordering (start on Monday, not Sunday) @{$dbres} = ( @{$dbres}[ 1 * 24 .. 7 * 24 - 1 ], @{$dbres}[ 0 .. 23 ] ); |