/[A3C]/lib/A3C/View/Strix.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

Annotation of /lib/A3C/View/Strix.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 142 - (hide annotations)
Fri May 30 23:47:29 2008 UTC (13 years, 7 months ago) by dpavlin
File size: 922 byte(s)
added strix menu and basic view to report name differences
1 dpavlin 142 package A3C::View::Strix;
2    
3     =head1 NAME
4    
5     A3C::View::Strix
6    
7     =head1 DESCRIPTION
8    
9     Display information about Strix sites
10    
11     =cut
12    
13     use strict;
14     use warnings;
15    
16     use Jifty::View::Declare -base;
17     use Data::Dump qw/dump/;
18    
19     template 'index.html' => page {
20    
21     h1 { _('Statistics') }
22    
23     my $orgs = A3C::Model::StrixSiteCollection->new;
24     $orgs->unlimit;
25    
26     dt { _('Number of Strix sites') }
27     dd { $orgs->count }
28    
29     my $name_diff = A3C::SQL->new({ query => qq{
30     select
31     site,hreduorgurl,
32     _site_name,o
33     from strix_sites
34     join hr_edu_orgs on cn = site
35     where o != _site_name
36     }});
37    
38     h1 { _('Name differences') }
39     dd {
40     table {
41     row {
42     th { _('Site') }
43     th { _('Strix site name') }
44     th { _('hrEduOrg.o') }
45     };
46     while ( my $row = $name_diff->next ) {
47     row {
48     cell { hyperlink( url => 'http://' . $row->hreduorgurl, label => $row->site ) }
49     cell { $row->_site_name }
50     cell { $row->o }
51     }
52     }
53     }
54     }
55    
56     };
57    
58     1;

  ViewVC Help
Powered by ViewVC 1.1.26