lib/Arh/View.pm

package Arh::View;

use strict;
use warnings;

use Jifty::View::Declare -base;

use Data::Dump qw/dump/;

use Jifty::View::Declare::CRUD;
Jifty::View::Declare::CRUD->mount_view('Materials');
Jifty::View::Declare::CRUD->mount_view('UnitPictures');
Jifty::View::Declare::CRUD->mount_view('Units');
Jifty::View::Declare::CRUD->mount_view('Units', 'Arh::View::Units', '/units/bulk' );
#Jifty::View::Declare::CRUD->mount_view('locations');

template '/units' => page {
        h1 { _("Units available in system") };

        my $search = Arh::Model::UnitCollection->new;
        $search->unlimit;

        show( 'toggle_edit' ) if $search->count;

        set( search_collection => $search );
        render_region(
                name => 'units',
                path => '/units/list',
                defaults => {
                        page => 1,
                        per_page => get('per_page'),
                }
        );

};

template 'toggle_edit' => sub {
        my $self = shift;

        # don't show editing for anonymous users
        return unless $self->current_user->id;

        my $toggleedit = new_action(
                class => 'ToggleEdit',
#               moniker => 'toggle-edit',
        );

        my $label = $self->current_user->editing ? _("Disable editing") : _("Enable editing");

        warn "## $label\n";

        form {
                outs_raw( $toggleedit->button(
                        label => $label,
                        submit => $toggleedit,
                ));
        }

};

template 'raw_pic' => sub {
        my $filename = get('filename') or die "no filename?";
        my $image = Arh::Model::Picture->new;
        $image->load_by_cols( filename => $filename );
        if ( $image->id ) {
                Jifty->handler->apache->content_type('image/jpg');
                Jifty->web->out($image->content);
        } else {
                die "can't find picture $filename";
        }
};

1;
1	package Arh::View;
2
3	use strict;
4	use warnings;
5
6	use Jifty::View::Declare -base;
7
8	use Data::Dump qw/dump/;
9
10	use Jifty::View::Declare::CRUD;
11	Jifty::View::Declare::CRUD->mount_view('Materials');
12	Jifty::View::Declare::CRUD->mount_view('UnitPictures');
13	Jifty::View::Declare::CRUD->mount_view('Units');
14	Jifty::View::Declare::CRUD->mount_view('Units', 'Arh::View::Units', '/units/bulk' );
15	#Jifty::View::Declare::CRUD->mount_view('locations');
16
17	template '/units' => page {
18	h1 { _("Units available in system") };
19
20	my $search = Arh::Model::UnitCollection->new;
21	$search->unlimit;
22
23	show( 'toggle_edit' ) if $search->count;
24
25	set( search_collection => $search );
26	render_region(
27	name => 'units',
28	path => '/units/list',
29	defaults => {
30	page => 1,
31	per_page => get('per_page'),
32	}
33	);
34
35	};
36
37	template 'toggle_edit' => sub {
38	my $self = shift;
39
40	# don't show editing for anonymous users
41	return unless $self->current_user->id;
42
43	my $toggleedit = new_action(
44	class => 'ToggleEdit',
45	# moniker => 'toggle-edit',
46	);
47
48	my $label = $self->current_user->editing ? _("Disable editing") : _("Enable editing");
49
50	warn "## $label\n";
51
52	form {
53	outs_raw( $toggleedit->button(
54	label => $label,
55	submit => $toggleedit,
56	));
57	}
58
59	};
60
61	template 'raw_pic' => sub {
62	my $filename = get('filename') or die "no filename?";
63	my $image = Arh::Model::Picture->new;
64	$image->load_by_cols( filename => $filename );
65	if ( $image->id ) {
66	Jifty->handler->apache->content_type('image/jpg');
67	Jifty->web->out($image->content);
68	} else {
69	die "can't find picture $filename";
70	}
71	};
72
73	1;