/[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 962 by dpavlin, Fri Nov 2 12:23:40 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 {                                          div {
30                                                  $row->( 'TitleProper' ) . '. ' . $row->( 'Series' )                                                  $ds->display( 'TitleProper' ) . '. ' . $ds->display( 'Series' )
31                                          }                                          }
32                                          div { $row->( 'DatePublication' ) }                                          div { $ds->display( 'DatePublication' ) }
33                                          my $po = $row->( 'PripadajuciOznaka' );                                          my $po = $ds->display( 'PripadajuciOznaka' );
34                                          warn('$po=',dump($po));                                          warn('$po=',dump($po));
35                                          my @po = $row->( 'PripadajuciOznaka' );                                          my @po = $ds->display( 'PripadajuciOznaka' );
36                                          warn('@po=',dump(@po));                                          warn('@po=',dump(@po));
37                                          ul { attr { class => 'linked'};                                          ul { attr { class => 'linked'};
38                                                  foreach my $i ( @po ) {                                                  foreach my $i ( @po ) {
# Line 43  template '/' => page { Line 43  template '/' => page {
43                                                          }                                                          }
44                                                  }                                                  }
45                                          }                                          }
46                                          div { $row->( 'Fond' ) }                                          div { $ds->display( 'Fond' ) }
47                                          div { $row->( 'ISBN' ) }                                          div { $ds->display( 'ISBN' ) }
48                                          tt { $row->( 'database' ) . '/' . $row->( 'input' ) . '/' . $row->( 'id' ) }                                          tt { $ds->display( 'database' ) . '/' . $ds->display( 'input' ) . '/' . $ds->display( 'id' ) }
49                                  }                                  }
50                          }                          }
51                  }                  }
Legend:
Removed from v.962  
changed lines
  Added in v.963
  ViewVC Help
Powered by ViewVC 1.1.26