lib/Webpacus/View.pm

package Webpacus::View;

use strict;
use warnings;

use Jifty::View::Declare -base;

use Data::Dump qw/dump/;


template '/' => page {
        my $action = new_action( class => 'Search' );
        h1 { _("Search out data") },
        form {
                render_param( $action => 'field', default_value => get('field') ),
                render_param( $action => 'query', default_value => get('query') ),
                form_submit(
                        label => _('Search'),
                );
        };

        #warn dump( $action->result->content );

        if ( my $results = $action->result->content( 'results' ) ) {
                ul {
                        while ( my $ds = $results->next ) {
                                warn "view :: ds = ",dump( $ds );
                                li {
                                        div { 
                                                $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' ) }
                                }
                        }
                }
        }

};

1;
1	dpavlin	946	package Webpacus::View;
2
3			use strict;
4			use warnings;
5
6			use Jifty::View::Declare -base;
7
8			use Data::Dump qw/dump/;
9
10
11			template '/' => page {
12			my $action = new_action( class => 'Search' );
13			h1 { _("Search out data") },
14			form {
15			render_param( $action => 'field', default_value => get('field') ),
16			render_param( $action => 'query', default_value => get('query') ),
17			form_submit(
18			label => _('Search'),
19			);
20			};
21
22			#warn dump( $action->result->content );
23
24			if ( my $results = $action->result->content( 'results' ) ) {
25			ul {
26	dpavlin	963	while ( my $ds = $results->next ) {
27			warn "view :: ds = ",dump( $ds );
28	dpavlin	946	li {
29	dpavlin	962	div {
30	dpavlin	963	$ds->display( 'TitleProper' ) . '. ' . $ds->display( 'Series' )
31	dpavlin	962	}
32	dpavlin	963	div { $ds->display( 'DatePublication' ) }
33			my $po = $ds->display( 'PripadajuciOznaka' );
34	dpavlin	962	warn('$po=',dump($po));
35	dpavlin	963	my @po = $ds->display( 'PripadajuciOznaka' );
36	dpavlin	962	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	dpavlin	963	div { $ds->display( 'Fond' ) }
47			div { $ds->display( 'ISBN' ) }
48			tt { $ds->display( 'database' ) . '/' . $ds->display( 'input' ) . '/' . $ds->display( 'id' ) }
49	dpavlin	946	}
50			}
51			}
52			}
53
54			};
55
56			1;