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

Diff of /lib/A3C/View.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 39 by dpavlin, Sun Mar 30 13:32:29 2008 UTC revision 49 by dpavlin, Mon Mar 31 22:00:20 2008 UTC
# Line 15  template '/skole' => page { Line 15  template '/skole' => page {
15  };  };
16    
17  private template 'skole_sve' => sub {  private template 'skole_sve' => sub {
18            my $ldap = A3C::LDAP->new;
19          div {          div {
20                  my $search = A3C::LDAP->search(                  $ldap->search(
21                          base    => 'dc=skole,dc=hr',                          base    => 'dc=skole,dc=hr',
22                          filter  => '(objectClass=hrEduOrg)',                          filter  => '(objectClass=hrEduOrg)',
23                          sizelimit => 10,                          sizelimit => 10,
24                  );                  );
25                  while ( my $entry = $search->shift_entry ) {                  while ( my $entry = $ldap->current_search->shift_entry ) {
26                          #warn $entry->dump;                          #warn $entry->dump;
27                          ul {                          ul {
28                                  foreach my $attr ( $entry->attributes ) {                                  foreach my $attr ( $entry->attributes ) {
# Line 35  private template 'skole_sve' => sub { Line 36  private template 'skole_sve' => sub {
36          }          }
37  };  };
38    
39    template '/search-users' => page {
40    
41            my $action = new_action(
42                    class   => 'SearchUser',
43                    moniker => 'search-users'
44            );
45    
46            form {
47                    render_action( $action => [ 'uid_contains', 'cn_contains' ] );
48                    form_submit( label => _('Find someone') );
49            };
50    
51    #       warn dump( $action->result->content );
52    
53            if ( my $search = $action->result->content('search') ) {
54                    div { sprintf(_('Found %d results'), $search->count ) }
55                    ol {
56                            while (my $user = $search->next) {
57                                    li {
58                                            span { $user->cn }
59                                            tt { $user->uid }
60                                    }
61                            }
62                    }
63            }
64    
65    };
66    

Legend:
Removed from v.39  
changed lines
  Added in v.49

  ViewVC Help
Powered by ViewVC 1.1.26