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 | 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 |