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