/[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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 142 - (show 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 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