/[webpac2]/Webpacus2/lib/Webpacus/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 /Webpacus2/lib/Webpacus/View.pm

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

revision 1081 by dpavlin, Sun Dec 2 03:00:07 2007 UTC revision 1086 by dpavlin, Sun Dec 23 22:07:55 2007 UTC
# Line 20  template '/' => page { Line 20  template '/' => page {
20                  );                  );
21          };          };
22    
23          #warn dump( $action->result->content );  #       warn "## action->result->content = ",dump( $action->result->content );
24    
25          if ( my $results = $action->result->content( 'results' ) ) {          my $results = $action->result->content( 'results' );
26            #warn "## results = ",dump( $results );
27    
28            if ( $results ) {
29                  ul {                  ul {
30                          while ( my $ds = $results->next ) {                          while ( my $ds = $results->next ) {
31                                  warn "view :: ds = ",dump( $ds );                                  warn "view :: ds = ",dump( $ds );
# Line 89  private template 'perlmonks' => sub { Line 92  private template 'perlmonks' => sub {
92          }          }
93  };  };
94    
95    #
96    # hidra node result
97    #
98    
99    private template 'hidra' => sub {
100            my $self = shift;
101            my $ds = shift || die "no ds?";
102    
103            warn "## hidra ds == ",dump($ds);
104    
105            div {
106                    { class is 'title' }
107                    hyperlink(
108                            url => $ds->display('URL'),
109                            label => $ds->display( 'TitleProper' )
110                    );
111            };
112    
113            tt { $ds->display( 'database' ) . '/' . $ds->display( 'input' ) . '/' . $ds->display( 'id' ) }
114            span { { class is 'score' } $ds->display('score') }
115    
116    };
117    
118  1;  1;
Legend:
Removed from v.1081  
changed lines
  Added in v.1086
  ViewVC Help
Powered by ViewVC 1.1.26