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 $row = $results->next ) {
                                warn "view :: row = ",dump( $row );
                                li {
                                        div { $row->( 'TitleProper' ) }
                                        div { $row->( 'DatePublication' ) }
                                        tt { $row->( 'database' ) . '/' . $row->( 'input' ) . '/' . $row->( '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 $row = $results->next ) {
27	warn "view :: row = ",dump( $row );
28	li {
29	div { $row->( 'TitleProper' ) }
30	div { $row->( 'DatePublication' ) }
31	tt { $row->( 'database' ) . '/' . $row->( 'input' ) . '/' . $row->( 'id' ) }
32	}
33	}
34	}
35	}
36
37	};
38
39
40	1;