Arh/Web/Material.pm

package Arh::Web::Material;

use strict;
use warnings;

use base qw/Jifty::Web::Form::Field::Select/;

use Data::Dump qw/dump/;

sub render_wrapper_end {
        my $self = shift;

#       warn "## _stored_hints = ",dump( $self->{_stored_hints} );

        Jifty->web->out(
                $self->action->button(
                        label => 'Add',
                        submit => $self->action,
                        arguments => {
                                foobar => 42,
                                %{ $self->{_stored_hints} },
                        }
                )
        );

        $self->SUPER::render_wrapper_end();

        '';
}

sub hints {
        my ( $self, $hash ) = @_;
        return unless $hash;
        $self->{_stored_hints} = $hash;
#       warn "## hints = ",dump( $hash );
        return;
}

sub render_hints { '' }

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