--- lib/A3C/View.pm 2008/04/11 23:22:03 78 +++ lib/A3C/View.pm 2008/04/11 23:23:42 79 @@ -5,6 +5,7 @@ use Jifty::View::Declare -base; use A3C::LDAP; +use A3C::SQL; use Data::Dump qw/dump/; @@ -24,34 +25,24 @@ dt { _('Number of persons in system') } dd { $people->count } -=for later + my $sql = A3C::SQL->new({ query => qq{ + select count(uid),l + from organizations + inner join towns on towns.name = l + group by l + order by count desc + limit 25 + }}); - dt { _('Breakdown by towns') } + dt { _('Top %1 towns by schools', $sql->count) } dd { - $orgs->redo_search; - # select count(l),l from organizations group by l order by count desc limit 25 - $orgs->group_by( column => 'l' ); - $orgs->order_by( column => 'l', order => 'desc' ); - - warn "## SQL: ", $orgs->build_select_query; - my $count = $orgs->column( column => 'l', function => 'count(l)' ); - warn "## count: $count\n"; -# $orgs->column( column => 'l' ); - warn "## SQL: ", $orgs->build_select_query; - ul { - for ( 1 .. 1 ) { - my $o = $orgs->next; - warn "## ",dump( $o ); - li { outs ( $o->l, '|', $o->__value('l'), $o->__value( $count ) ) } + while ( my $row = $sql->next ) { + li { outs_raw( $row->count, ' ', $row->l ) } } } - - } -=cut - };