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 => 'database', default_value => get('database') ),
                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 => 'database', default_value => get('database') ),
17	render_param( $action => 'query', default_value => get('query') ),
18	form_submit(
19	label => _('Search'),
20	);
21	};
22
23	#warn dump( $action->result->content );
24
25	if ( my $results = $action->result->content( 'results' ) ) {
26	ul {
27	while ( my $ds = $results->next ) {
28	warn "view :: ds = ",dump( $ds );
29	li {
30	div {
31	$ds->display( 'TitleProper' ) . '. ' . $ds->display( 'Series' )
32	}
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	}
53	}
54
55	};
56
57	1;