Parent Directory | Revision Log
very crude brain dump of various changes: - introduce command ACL in Arh::DefaultACL which allmost all modes use - rewrite most templates and implement crude hack Arch::Web::Material to render special type of form to add singe material - version bump [0.02]
1 | dpavlin | 13 | package Arh::Web::Material; |
2 | |||
3 | use strict; | ||
4 | use warnings; | ||
5 | |||
6 | use base qw/Jifty::Web::Form::Field::Select/; | ||
7 | |||
8 | use Data::Dump qw/dump/; | ||
9 | |||
10 | sub render_wrapper_end { | ||
11 | my $self = shift; | ||
12 | |||
13 | # warn "## _stored_hints = ",dump( $self->{_stored_hints} ); | ||
14 | |||
15 | Jifty->web->out( | ||
16 | $self->action->button( | ||
17 | label => 'Add', | ||
18 | submit => $self->action, | ||
19 | arguments => { | ||
20 | foobar => 42, | ||
21 | %{ $self->{_stored_hints} }, | ||
22 | } | ||
23 | ) | ||
24 | ); | ||
25 | |||
26 | $self->SUPER::render_wrapper_end(); | ||
27 | |||
28 | ''; | ||
29 | } | ||
30 | |||
31 | sub hints { | ||
32 | my ( $self, $hash ) = @_; | ||
33 | return unless $hash; | ||
34 | $self->{_stored_hints} = $hash; | ||
35 | # warn "## hints = ",dump( $hash ); | ||
36 | return; | ||
37 | } | ||
38 | |||
39 | sub render_hints { '' } | ||
40 | |||
41 | 1; |
ViewVC Help | |
Powered by ViewVC 1.1.26 |