package HTML::Mason::Commands;
use strict;
use vars qw($m $r);
my $_escape = \&HTML::Mason::Parser::_escape_perl_expression;
HTML::Mason::Component::FileBased->new
(
'code'=>sub {
my %ARGS;
if (@_ % 2 == 0) { %ARGS = @_ } else { die "Odd number of parameters passed to component expecting name/value pairs" }
my $widget = (!exists $ARGS{'widget'} ? die "no value sent for required parameter 'widget'" : $ARGS{'widget'});
my $object = (!exists $ARGS{'object'} ? die "no value sent for required parameter 'object'" : $ARGS{'object'});
my $vals = (!exists $ARGS{'vals'} ? die "no value sent for required parameter 'vals'" : $ARGS{'vals'});
my $width = (!exists $ARGS{'width'} ? die "no value sent for required parameter 'width'" : $ARGS{'width'});
my $indent = (!exists $ARGS{'indent'} ? FIELD_INDENT : $ARGS{'indent'});
my $disp = (!exists $ARGS{'disp'} ? '' : $ARGS{'disp'});
my $useTable = (!exists $ARGS{'useTable'} ? 1 : $ARGS{'useTable'});
my $readOnly = (!exists $ARGS{'readOnly'} ? 0 : $ARGS{'readOnly'});
my $req = (!exists $ARGS{'req'} ? 0 : $ARGS{'req'});
my $size = (!exists $ARGS{'size'} ? undef : $ARGS{'size'});
my $js = (!exists $ARGS{'js'} ? undef : $ARGS{'js'});
my $sel_id = (!exists $ARGS{'sel_id'} ? undef : $ARGS{'sel_id'});
my $_out = $m->current_sink;
$m->debug_hook($m->current_comp->path) if (%DB::);
my $sub_widget = "$widget.$object";
my $name = get_state_data($sub_widget, 'form_name');
$sel_id = get_state_data($sub_widget, 'selected_id') unless defined $sel_id;
$_out->('('" value="1">
');
$m->comp('/widgets/profile/select.mc',
name => $name,
value => $sel_id,
options => $vals,
useTable => $useTable,
width => $width,
indent => $indent,
disp => $disp,
size => $size,
req => $req,
readOnly => $readOnly,
js => $js);
$_out->('
');
$_out->('
');
return undef;
},
'create_time'=>1001666047,
'declared_args'=> {
'$size' => {
'default' => ' undef'
},
'$readOnly' => {
'default' => ' 0'
},
'$disp' => {
'default' => ' \'\''
},
'$useTable' => {
'default' => ' 1'
},
'$object' => {
'default' => undef
},
'$vals' => {
'default' => undef
},
'$js' => {
'default' => ' undef'
},
'$widget' => {
'default' => undef
},
'$indent' => {
'default' => ' FIELD_INDENT'
},
'$req' => {
'default' => ' 0'
},
'$width' => {
'default' => undef
},
'$sel_id' => {
'default' => ' undef'
}
},
'object_size'=>3051,
'parser_version'=>0.8
)
;