/[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 153 - (hide 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 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 dpavlin 153 title is _('Strix sites');
22    
23 dpavlin 142 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 dpavlin 153 };
32    
33     template 'name_diff' => page {
34    
35     title is _('Strix sites');
36    
37 dpavlin 142 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