lib/SVNBrowser/View.pm

package SVNBrowser::View;

# Dobrica Pavlinusic, <dpavlin@rot13.org> 09/03/07 22:14:24 CEST

use strict;
use warnings;

use Jifty::View::Declare -base;

use Data::Dump qw/dump/;

template '/x' => page {
        h1 { _("SVN Repository browser") },

        form {

                my $filter = Jifty->web->new_action(
                        class => 'Filter',
                        moniker => 'filter_list',
                );
                render_param( $filter => 'author' );
                render_param( $filter => 'branch' );
                render_param( $filter => 'rel_path' );
                render_param( $filter => 'search' );

                div { attr { class => 'inline' }

                render_param( $filter => 'from_date' );
                render_param( $filter => 'to_date' );
                render_param( $filter => 'per_page' );
                render_param( $filter => 'show_actions' );

                }

                form_submit( label => _("Filter commits") );

        }

}
1	package SVNBrowser::View;
2
3	# Dobrica Pavlinusic, <dpavlin@rot13.org> 09/03/07 22:14:24 CEST
4
5	use strict;
6	use warnings;
7
8	use Jifty::View::Declare -base;
9
10	use Data::Dump qw/dump/;
11
12	template '/x' => page {
13	h1 { _("SVN Repository browser") },
14
15	form {
16
17	my $filter = Jifty->web->new_action(
18	class => 'Filter',
19	moniker => 'filter_list',
20	);
21	render_param( $filter => 'author' );
22	render_param( $filter => 'branch' );
23	render_param( $filter => 'rel_path' );
24	render_param( $filter => 'search' );
25
26	div { attr { class => 'inline' }
27
28	render_param( $filter => 'from_date' );
29	render_param( $filter => 'to_date' );
30	render_param( $filter => 'per_page' );
31	render_param( $filter => 'show_actions' );
32
33	}
34
35	form_submit( label => _("Filter commits") );
36
37	}
38
39	}