A3C/View/Strix.pm

package A3C::View::Strix;

=head1 NAME

A3C::View::Strix

=head1 DESCRIPTION

Display information about Strix sites

=cut

use strict;
use warnings;

use Jifty::View::Declare -base;
use Data::Dump qw/dump/;

template 'index.html' => page {

        h1 { _('Statistics') }

        my $orgs = A3C::Model::StrixSiteCollection->new;
        $orgs->unlimit;

        dt { _('Number of Strix sites') }
        dd { $orgs->count }

        my $name_diff = A3C::SQL->new({ query => qq{
                select
                        site,hreduorgurl,
                        _site_name,o
                from strix_sites
                join hr_edu_orgs on cn = site
                where o != _site_name
        }});

        h1 { _('Name differences') }
        dd {
                table {
                        row {
                                th { _('Site') }
                                th { _('Strix site name') }
                                th { _('hrEduOrg.o') }
                        };
                        while ( my $row = $name_diff->next ) {
                                row {
                                        cell { hyperlink( url => 'http://' . $row->hreduorgurl, label => $row->site ) }
                                        cell { $row->_site_name }
                                        cell { $row->o }
                                }
                        }
                }
        }

};

1;
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;