Show date range in ranking page #5

www/WNDB.pm

@@ -100,4 +100,13 @@ sub appearances {
   return $sql->($query);
 }
 
+sub min_max_jst {
+  my $sql = shift;
+  my $query = "
+    SELECT MIN(jst) as min_jst,
+           MAX(jst) as max_jst
+      FROM schedule";
+  return $sql->($query);
+}
+
 1;

www/ranking/index.cgi

@@ -2,7 +2,6 @@
 use strict;
 use warnings;
 use local::lib;
-#XXX!
 
 use DBI;
 use DBD::SQLite;
@@ -24,6 +23,16 @@ my ($sql, $do) = sql_fn($dbh);
 cgi {
   my $cgi = $_;
   my @r = WNDB::appearances($sql);
-  my $html = page('ranking', { base => $config{base}, r => \@r });
+  my ($dates) = WNDB::min_max_jst($sql);
+  my $min_jst = $dates->{min_jst};
+  my $max_jst = $dates->{max_jst};
+  $min_jst =~ s/T.*$//;
+  $max_jst =~ s/T.*$//;
+  my $html = page('ranking', {
+    base => $config{base},
+    r => \@r,
+    min_jst => $min_jst,
+    max_jst => $max_jst
+  });
   $cgi->render(html => $html);
 };

www/tmpl/ranking.html

@@ -14,4 +14,7 @@
             } }
           </tbody>
         </table>
+        <div class="row">
+          <div class="column"><b>Date Range</b>:  {$min_jst} - {$max_jst}</div>
+        </div>
       </section>