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 $disp_field = (!exists $ARGS{'disp_field'} ? die "no value sent for required parameter 'disp_field'" : $ARGS{'disp_field'}); my $_out = $m->current_sink; $m->debug_hook($m->current_comp->path) if (%DB::); my $crit_field = get_state_data($widget, 'crit_field'); $_out->('
![]() |
'); $m->out ("By $disp_field: ") if ($disp_field); $_out->(' | '); $m->comp('/widgets/profile/text.mc', 'name' => $widget.'|value', 'value' => $crit_field, 'size' => 32, 'maxlength' => 100, 'disp' => '', useTable => 0); $_out->(' |