From be225a8d217e3a63e81ceb95a237bd410d063d80 Mon Sep 17 00:00:00 2001 From: Gryllida A Date: Sun, 10 Mar 2013 18:40:42 +1030 Subject: [PATCH] =?utf8?q?Use=20a=20cleaner=20user=20interface=20=E2=80=94?= =?utf8?q?=20dropdowns?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- lib/Wnstats.pm | 9 +++++++++ views/index.tt | 57 ++++++++++++++++++++++++++++++++++++++++++++++++++++++--- 2 files changed, 63 insertions(+), 3 deletions(-) diff --git a/lib/Wnstats.pm b/lib/Wnstats.pm index e3d4356..9bab694 100644 --- a/lib/Wnstats.pm +++ b/lib/Wnstats.pm @@ -8,6 +8,15 @@ use DateTime; use DateTime::Event::Recurrence; use Data::Dumper; +ajax '/info/sites' => sub { + my $tables_array = database->table_info('main','main', '%','TABLE')->fetchall_arrayref; + my @tables = (); + for my $table_info (@{$tables_array}){ + push @tables, $table_info->[2]; + } + return { sites => \@tables }; +}; + sub num_published_month_before { my ( $y0, $m0, $d0, $home_wiki ) = @_; $home_wiki =~ s/\.//g; diff --git a/views/index.tt b/views/index.tt index 01b7371..c6e2312 100644 --- a/views/index.tt +++ b/views/index.tt @@ -38,11 +38,62 @@ + - + -

AT FROM - TO EVERY DAYS. +

AT FROM + TO EVERY DAYS.