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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 41 - (hide annotations)
Sun Mar 30 15:23:35 2008 UTC (16 years ago) by dpavlin
File size: 634 byte(s)
document internal method
1 dpavlin 37 package A3C::View;
2    
3     use strict;
4     use warnings;
5    
6     use Jifty::View::Declare -base;
7     use A3C::LDAP;
8    
9     use Data::Dump qw/dump/;
10    
11    
12     template '/skole' => page {
13     h1 { _('Schools in system') };
14     show 'skole_sve';
15     };
16    
17     private template 'skole_sve' => sub {
18 dpavlin 40 my $ldap = A3C::LDAP->new;
19 dpavlin 37 div {
20 dpavlin 40 $ldap->search(
21 dpavlin 37 base => 'dc=skole,dc=hr',
22     filter => '(objectClass=hrEduOrg)',
23     sizelimit => 10,
24     );
25 dpavlin 41 while ( my $entry = $ldap->current_search->shift_entry ) {
26 dpavlin 37 #warn $entry->dump;
27     ul {
28     foreach my $attr ( $entry->attributes ) {
29     li {
30     tt { $attr }
31 dpavlin 39 span { dump( $entry->get_value( $attr ) ) }
32 dpavlin 37 }
33     }
34     }
35     }
36     }
37     };
38    

  ViewVC Help
Powered by ViewVC 1.1.26