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;

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