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