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	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	while ( my $ds = $results->next ) {
27	warn "view :: ds = ",dump( $ds );
28	li {
29	div {
30	$ds->display( 'TitleProper' ) . '. ' . $ds->display( 'Series' )
31	}
32	div { $ds->display( 'DatePublication' ) }
33	my $po = $ds->display( 'PripadajuciOznaka' );
34	warn('$po=',dump($po));
35	my @po = $ds->display( '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 { $ds->display( 'Fond' ) }
47	div { $ds->display( 'ISBN' ) }
48	tt { $ds->display( 'database' ) . '/' . $ds->display( 'input' ) . '/' . $ds->display( 'id' ) }
49	}
50	}
51	}
52	}
53
54	};
55
56	1;