53 |
form { |
form { |
54 |
my $action = new_action( class => $op . 'Code', arguments => { $code ? $code->as_hash : undef } ); |
my $action = new_action( class => $op . 'Code', arguments => { $code ? $code->as_hash : undef } ); |
55 |
render_param( $action => 'name' ); |
render_param( $action => 'name' ); |
56 |
render_param( $action => 'source', cols => 80, rows => 25, language => 'perl', render_as => codepress->{render_as} ); |
render_param( $action => 'source', cols => 80, rows => 35, language => 'perl', render_as => codepress->{render_as} ); |
57 |
#render_action( $action => [ 'source' => { cols => 80, rows => 30 }, ] ); |
#render_action( $action => [ 'source' => { cols => 80, rows => 30 }, ] ); |
58 |
form_submit( label => _($op) ); |
form_submit( label => _($op) ); |
59 |
# IE problem http://support.microsoft.com/kb/281197 |
# IE problem http://support.microsoft.com/kb/281197 |