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 $use_form_tag = (!exists $ARGS{'use_form_tag'} ? die "no value sent for required parameter 'use_form_tag'" : $ARGS{'use_form_tag'});
my $_out = $m->current_sink;
$m->debug_hook($m->current_comp->path) if (%DB::);
my $agent = $m->comp("/widgets/util/detectAgent.mc");
my $spacerRow = ($agent->{browser} eq "Internet Explorer") ? '' : "";
my $advanced_search = get_state_data($widget, 'advanced_search') || 0;
#--- Arguments ---#
$_out->('
');
$_out->('
');
#--- Initialization ---#
$_out->('
');
if ($use_form_tag) {
$_out->('