/[A3C]/lib/A3C/View.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /lib/A3C/View.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 78 by dpavlin, Thu Apr 10 23:16:56 2008 UTC revision 79 by dpavlin, Fri Apr 11 23:23:42 2008 UTC
# Line 5  use warnings; Line 5  use warnings;
5    
6  use Jifty::View::Declare -base;  use Jifty::View::Declare -base;
7  use A3C::LDAP;  use A3C::LDAP;
8    use A3C::SQL;
9    
10  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
11    
# Line 24  template '/' => page { Line 25  template '/' => page {
25          dt { _('Number of persons in system') }          dt { _('Number of persons in system') }
26          dd { $people->count }          dd { $people->count }
27    
28  =for later          my $sql = A3C::SQL->new({ query => qq{
29                    select count(uid),l
30                    from organizations
31                    inner join towns on towns.name = l
32                    group by l
33                    order by count desc
34                    limit 25
35            }});
36    
37          dt { _('Breakdown by towns') }          dt { _('Top %1 towns by schools', $sql->count) }
38          dd {          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;  
   
39                  ul {                  ul {
40                          for ( 1 .. 1 ) {                          while ( my $row = $sql->next ) {
41                                  my $o = $orgs->next;                                  li { outs_raw( $row->count, ' ', $row->l ) }
                                 warn "## ",dump( $o );  
                                 li { outs ( $o->l, '|', $o->__value('l'), $o->__value( $count ) ) }  
42                          }                          }
43                  }                  }
   
   
44          }          }
45    
 =cut  
   
46  };  };
47    
48    
Legend:
Removed from v.78  
changed lines
  Added in v.79
  ViewVC Help
Powered by ViewVC 1.1.26