/[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 153 - (show annotations)
Sat Jun 14 12:31:35 2008 UTC (15 years, 9 months ago) by dpavlin
File size: 1016 byte(s)
split strix sites name differences into it's own page
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 title is _('Strix sites');
22
23 h1 { _('Statistics') }
24
25 my $orgs = A3C::Model::StrixSiteCollection->new;
26 $orgs->unlimit;
27
28 dt { _('Number of Strix sites') }
29 dd { $orgs->count }
30
31 };
32
33 template 'name_diff' => page {
34
35 title is _('Strix sites');
36
37 my $name_diff = A3C::SQL->new({ query => qq{
38 select
39 site,hreduorgurl,
40 _site_name,o
41 from strix_sites
42 join hr_edu_orgs on cn = site
43 where o != _site_name
44 }});
45
46 h1 { _('Name differences') }
47 dd {
48 table {
49 row {
50 th { _('Site') }
51 th { _('Strix site name') }
52 th { _('hrEduOrg.o') }
53 };
54 while ( my $row = $name_diff->next ) {
55 row {
56 cell { hyperlink( url => 'http://' . $row->hreduorgurl, label => $row->site ) }
57 cell { $row->_site_name }
58 cell { $row->o }
59 }
60 }
61 }
62 }
63
64 };
65
66 1;

  ViewVC Help
Powered by ViewVC 1.1.26