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