/[Arh]/lib/Arh/View.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Contents of /lib/Arh/View.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 55 - (show annotations)
Sun Apr 6 21:07:20 2008 UTC (15 years, 11 months ago) by dpavlin
File size: 1362 byte(s)
removed obsolete pictures interface
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 my $toggleedit = new_action(
39 class => 'ToggleEdit',
40 # moniker => 'toggle-edit',
41 );
42
43 my $label = $self->current_user->editing ? _("Disable editing") : _("Enable editing");
44
45 warn "## $label\n";
46
47 form {
48 outs_raw( $toggleedit->button(
49 label => $label,
50 submit => $toggleedit,
51 ));
52 }
53
54 };
55
56 template 'raw_pic' => sub {
57 my $filename = get('filename') or die "no filename?";
58 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 1;

  ViewVC Help
Powered by ViewVC 1.1.26