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