/[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 946 by dpavlin, Wed Oct 31 19:08:25 2007 UTC revision 963 by dpavlin, Fri Nov 2 12:59:39 2007 UTC
# Line 23  template '/' => page { Line 23  template '/' => page {
23    
24          if ( my $results = $action->result->content( 'results' ) ) {          if ( my $results = $action->result->content( 'results' ) ) {
25                  ul {                  ul {
26                          while ( my $row = $results->next ) {                          while ( my $ds = $results->next ) {
27                                  warn "view :: row = ",dump( $row );                                  warn "view :: ds = ",dump( $ds );
28                                  li {                                  li {
29                                          div { join(' ',@{$row->{TitleProper}}) }                                          div {
30                                          tt { $row->{database} . '/' . $row->{input} . '/' . $row->{id} }                                                  $ds->display( 'TitleProper' ) . '. ' . $ds->display( 'Series' )
31                                            }
32                                            div { $ds->display( 'DatePublication' ) }
33                                            my $po = $ds->display( 'PripadajuciOznaka' );
34                                            warn('$po=',dump($po));
35                                            my @po = $ds->display( 'PripadajuciOznaka' );
36                                            warn('@po=',dump(@po));
37                                            ul { attr { class => 'linked'};
38                                                    foreach my $i ( @po ) {
39                                                            warn("i=",dump($i));
40                                                            foreach my $j ( @$i ) {
41                                                                    warn("j=",dump($j));
42                                                                    li { $j }
43                                                            }
44                                                    }
45                                            }
46                                            div { $ds->display( 'Fond' ) }
47                                            div { $ds->display( 'ISBN' ) }
48                                            tt { $ds->display( 'database' ) . '/' . $ds->display( 'input' ) . '/' . $ds->display( 'id' ) }
49                                  }                                  }
50                          }                          }
51                  }                  }
# Line 35  template '/' => page { Line 53  template '/' => page {
53    
54  };  };
55    
   
56  1;  1;
Legend:
Removed from v.946  
changed lines
  Added in v.963
  ViewVC Help
Powered by ViewVC 1.1.26