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 |