/[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 999 by dpavlin, Sun Nov 4 17:03:55 2007 UTC revision 1000 by dpavlin, Sun Nov 4 17:19:12 2007 UTC
# Line 27  template '/' => page { Line 27  template '/' => page {
27                          while ( my $ds = $results->next ) {                          while ( my $ds = $results->next ) {
28                                  warn "view :: ds = ",dump( $ds );                                  warn "view :: ds = ",dump( $ds );
29                                  li {                                  li {
30                                          div {                                          show( $action->argument_value('database'), $ds )
                                                 $ds->display( 'TitleProper' ) . '. ' . $ds->display( 'Series' )  
                                         }  
                                         div { $ds->display( 'DatePublication' ) }  
                                         my $po = $ds->display( 'PripadajuciOznaka' );  
                                         warn('$po=',dump($po));  
                                         my @po = $ds->display( 'PripadajuciOznaka' );  
                                         warn('@po=',dump(@po));  
                                         ul { attr { class => 'linked'};  
                                                 foreach my $i ( @po ) {  
                                                         warn("i=",dump($i));  
                                                         foreach my $j ( @$i ) {  
                                                                 warn("j=",dump($j));  
                                                                 li { $j }  
                                                         }  
                                                 }  
                                         }  
                                         div { $ds->display( 'Fond' ) }  
                                         div { $ds->display( 'ISBN' ) }  
                                         tt { $ds->display( 'database' ) . '/' . $ds->display( 'input' ) . '/' . $ds->display( 'id' ) }  
31                                  }                                  }
32                          }                          }
33                  }                  }
34          }          }
35    };
36    
37    #
38    # Webpacus biblographic result template
39    #
40    
41    private template 'webpacus' => sub {
42            my $self = shift;
43            my $ds = shift || die "no ds?";
44            div {
45                    $ds->display( 'TitleProper' ) . '. ' . $ds->display( 'Series' )
46            }
47            div { $ds->display( 'DatePublication' ) }
48            my $po = $ds->display( 'PripadajuciOznaka' );
49            warn('$po=',dump($po));
50            my @po = $ds->display( 'PripadajuciOznaka' );
51            warn('@po=',dump(@po));
52            ul { attr { class => 'linked'};
53                    foreach my $i ( @po ) {
54                            warn("i=",dump($i));
55                            foreach my $j ( @$i ) {
56                                    warn("j=",dump($j));
57                                    li { $j }
58                            }
59                    }
60            }
61            div { $ds->display( 'Fond' ) }
62            div { $ds->display( 'ISBN' ) }
63            tt { $ds->display( 'database' ) . '/' . $ds->display( 'input' ) . '/' . $ds->display( 'id' ) }
64    };
65    
66    #
67    # PerlMonks node result
68    #
69    
70    private template 'perlmonks' => sub {
71            my $self = shift;
72            my $ds = shift || die "no ds?";
73            div {
74                    $ds->display( 'Title' );
75            }
76            tt { $ds->display( 'database' ) . '/' . $ds->display( 'input' ) . '/' . $ds->display( 'id' ) }
77  };  };
78    
79  1;  1;
Legend:
Removed from v.999  
changed lines
  Added in v.1000
  ViewVC Help
Powered by ViewVC 1.1.26