/[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 954 by dpavlin, Thu Nov 1 00:17:53 2007 UTC revision 962 by dpavlin, Fri Nov 2 12:23:40 2007 UTC
# Line 26  template '/' => page { Line 26  template '/' => page {
26                          while ( my $row = $results->next ) {                          while ( my $row = $results->next ) {
27                                  warn "view :: row = ",dump( $row );                                  warn "view :: row = ",dump( $row );
28                                  li {                                  li {
29                                          div { $row->( 'TitleProper' ) }                                          div {
30                                                    $row->( 'TitleProper' ) . '. ' . $row->( 'Series' )
31                                            }
32                                          div { $row->( 'DatePublication' ) }                                          div { $row->( 'DatePublication' ) }
33                                            my $po = $row->( 'PripadajuciOznaka' );
34                                            warn('$po=',dump($po));
35                                            my @po = $row->( '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 { $row->( 'Fond' ) }
47                                            div { $row->( 'ISBN' ) }
48                                          tt { $row->( 'database' ) . '/' . $row->( 'input' ) . '/' . $row->( 'id' ) }                                          tt { $row->( 'database' ) . '/' . $row->( 'input' ) . '/' . $row->( 'id' ) }
49                                  }                                  }
50                          }                          }
# Line 36  template '/' => page { Line 53  template '/' => page {
53    
54  };  };
55    
   
56  1;  1;
Legend:
Removed from v.954  
changed lines
  Added in v.962
  ViewVC Help
Powered by ViewVC 1.1.26