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 {
                                        show( $action->argument_value('database'), $ds )
                                }
                        }
                }
        }
};

#
# Webpacus biblographic result template
#

private template 'webpacus' => sub {
        my $self = shift;
        my $ds = shift || die "no ds?";
        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' ) }
};

#
# PerlMonks node result
#

private template 'perlmonks' => sub {
        my $self = shift;
        my $ds = shift || die "no ds?";

        div { 
                hyperlink(
                        url => 'http://www.perlmonks.org/?node_id=' . $ds->display('Node_ID'),
                        label => $ds->display( 'Title' )
                );
        }
        tt { $ds->display( 'database' ) . '/' . $ds->display( 'input' ) . '/' . $ds->display( 'id' ) }
        div { $ds->display( 'Date' ) }

        my $content = $ds->display( 'Content' );
        if ( $content ) {
                div { outs_raw($content) }
        }
};

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	show( $action->argument_value('database'), $ds )
31	}
32	}
33	}
34	}
35	};
36
37	#
38	# Webpacus biblographic result template
39	#
40
41	private template 'webpacus' => sub {
42	my $self = shift;
43	my $ds = shift \|\| die "no ds?";
44	div {
45	$ds->display( 'TitleProper' ) . '. ' . $ds->display( 'Series' )
46	}
47	div { $ds->display( 'DatePublication' ) }
48	my $po = $ds->display( 'PripadajuciOznaka' );
49	warn('$po=',dump($po));
50	my @po = $ds->display( 'PripadajuciOznaka' );
51	warn('@po=',dump(@po));
52	ul { attr { class => 'linked'};
53	foreach my $i ( @po ) {
54	warn("i=",dump($i));
55	foreach my $j ( @$i ) {
56	warn("j=",dump($j));
57	li { $j }
58	}
59	}
60	}
61	div { $ds->display( 'Fond' ) }
62	div { $ds->display( 'ISBN' ) }
63	tt { $ds->display( 'database' ) . '/' . $ds->display( 'input' ) . '/' . $ds->display( 'id' ) }
64	};
65
66	#
67	# PerlMonks node result
68	#
69
70	private template 'perlmonks' => sub {
71	my $self = shift;
72	my $ds = shift \|\| die "no ds?";
73
74	div {
75	hyperlink(
76	url => 'http://www.perlmonks.org/?node_id=' . $ds->display('Node_ID'),
77	label => $ds->display( 'Title' )
78	);
79	}
80	tt { $ds->display( 'database' ) . '/' . $ds->display( 'input' ) . '/' . $ds->display( 'id' ) }
81	div { $ds->display( 'Date' ) }
82
83	my $content = $ds->display( 'Content' );
84	if ( $content ) {
85	div { outs_raw($content) }
86	}
87	};
88
89	1;