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('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,
                }
        );

};

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

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