Parent Directory | Revision Log | Patch
revision 738 by dpavlin, Sat Dec 6 15:29:10 2008 UTC | revision 746 by dpavlin, Sun Dec 7 01:33:37 2008 UTC | |
---|---|---|
# | Line 136 sub params_form { | Line 136 sub params_form { |
136 | ||
137 | my @checkboxes; | my @checkboxes; |
138 | ||
my $skip_prefix; | ||
if ( $self->class->can('action') ) { | ||
my $action = eval $self->class . '->action'; | ||
$skip_prefix->{$_}++ foreach eval $self->class .'->action_order'; | ||
warn "# skip_prefix = ", $self->dump( $skip_prefix ); | ||
} | ||
139 | my $label_width = 1; # minimum | my $label_width = 1; # minimum |
140 | ||
141 | foreach my $name ( | foreach my $name ( |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |