lib/Grep/View.pm

package Grep::View;

use strict;
use warnings;

use Jifty::View::Declare -base;

use Data::Dump qw/dump/;

template '/latest' => page {
        h1 { _("Latest changes") }
        ul {
                my $coll = Grep::Model::ItemCollection->new();
                $coll->unlimit;
                $coll->order_by( column => 'last_update', order => 'DESC' );
                my $max = 5;
                while ( my $item = $coll->next ) {
                        li {
                                a {
                                        attr { href => $item->link, }, $item->title
                                },
                                small {
                                        ' ', _("from feed"),    ' ', $item->in_feed->title,
                                        ' ', _("created"),              ' ', $item->created_on,
                                        ' ', _("last update"),  ' ', $item->last_update,
                                },
                                div { outs_raw( $item->content ) },
                        }
                        $max--;
                        last if ( $max < 1 );
                }
        }
};

1;
1	dpavlin	176	package Grep::View;
2
3			use strict;
4			use warnings;
5
6			use Jifty::View::Declare -base;
7
8			use Data::Dump qw/dump/;
9
10			template '/latest' => page {
11			h1 { _("Latest changes") }
12			ul {
13			my $coll = Grep::Model::ItemCollection->new();
14			$coll->unlimit;
15			$coll->order_by( column => 'last_update', order => 'DESC' );
16			my $max = 5;
17			while ( my $item = $coll->next ) {
18			li {
19			a {
20			attr { href => $item->link, }, $item->title
21			},
22			small {
23			' ', _("from feed"), ' ', $item->in_feed->title,
24			' ', _("created"), ' ', $item->created_on,
25			' ', _("last update"), ' ', $item->last_update,
26			},
27			div { outs_raw( $item->content ) },
28			}
29			$max--;
30			last if ( $max < 1 );
31			}
32			}
33			};
34
35			1;