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