/[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 999 by dpavlin, Sun Nov 4 17:03:55 2007 UTC
# Line 13  template '/' => page { Line 13  template '/' => page {
13          h1 { _("Search out data") },          h1 { _("Search out data") },
14          form {          form {
15                  render_param( $action => 'field', default_value => get('field') ),                  render_param( $action => 'field', default_value => get('field') ),
16                    render_param( $action => 'database', default_value => get('database') ),
17                  render_param( $action => 'query', default_value => get('query') ),                  render_param( $action => 'query', default_value => get('query') ),
18                  form_submit(                  form_submit(
19                          label => _('Search'),                          label => _('Search'),
# Line 23  template '/' => page { Line 24  template '/' => page {
24    
25          if ( my $results = $action->result->content( 'results' ) ) {          if ( my $results = $action->result->content( 'results' ) ) {
26                  ul {                  ul {
27                          while ( my $row = $results->next ) {                          while ( my $ds = $results->next ) {
28                                  warn "view :: row = ",dump( $row );                                  warn "view :: ds = ",dump( $ds );
29                                  li {                                  li {
30                                          div { $row->( 'TitleProper' ) }                                          div {
31                                          div { $row->( 'DatePublication' ) }                                                  $ds->display( 'TitleProper' ) . '. ' . $ds->display( 'Series' )
32                                          tt { $row->( 'database' ) . '/' . $row->( 'input' ) . '/' . $row->( 'id' ) }                                          }
33                                            div { $ds->display( 'DatePublication' ) }
34                                            my $po = $ds->display( 'PripadajuciOznaka' );
35                                            warn('$po=',dump($po));
36                                            my @po = $ds->display( 'PripadajuciOznaka' );
37                                            warn('@po=',dump(@po));
38                                            ul { attr { class => 'linked'};
39                                                    foreach my $i ( @po ) {
40                                                            warn("i=",dump($i));
41                                                            foreach my $j ( @$i ) {
42                                                                    warn("j=",dump($j));
43                                                                    li { $j }
44                                                            }
45                                                    }
46                                            }
47                                            div { $ds->display( 'Fond' ) }
48                                            div { $ds->display( 'ISBN' ) }
49                                            tt { $ds->display( 'database' ) . '/' . $ds->display( 'input' ) . '/' . $ds->display( 'id' ) }
50                                  }                                  }
51                          }                          }
52                  }                  }
# Line 36  template '/' => page { Line 54  template '/' => page {
54    
55  };  };
56    
   
57  1;  1;
Legend:
Removed from v.954  
changed lines
  Added in v.999
  ViewVC Help
Powered by ViewVC 1.1.26