Parent Directory | Revision Log | Patch
revision 84 by dpavlin, Thu Jul 10 17:19:40 2008 UTC | revision 85 by dpavlin, Thu Jul 10 17:27:39 2008 UTC | |
---|---|---|
# | Line 133 sub add_button { | Line 133 sub add_button { |
133 | sub remove_button { | sub remove_button { |
134 | my ( $self, $name ) = @_; | my ( $self, $name ) = @_; |
135 | delete( $self->callback->{$name} ); | delete( $self->callback->{$name} ); |
136 | my @new_order = grep { !/\Q$name\E/ } @{ $self->callback_order }; | |
137 | warn "# remove_button $name new order = ",dump( @new_order ); | |
138 | $self->callback_order( \@new_order ); | |
139 | } | } |
140 | ||
141 | sub render_buttons { | sub render_buttons { |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |