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") ? '' : ""; #--- Arguments ---# $_out->(' '); $_out->(' '); #--- Initialization ---# $_out->(' '); if ($use_form_tag) { $_out->('
'); } $_out->('
SEARCH
'); $_out->( $spacerRow ); $_out->(' '); $m->comp("substr.html", widget => $widget, object => $object, disp_field => $disp_field); $m->comp("alpha.html", widget => $widget, object => $object, disp_field => $disp_field); $_out->('
'); #--- Log History ---# if ($use_form_tag) { $_out->('
'); } return undef; }, 'create_time'=>1001666173, 'declared_args'=> { '$use_form_tag' => { 'default' => undef }, '$widget' => { 'default' => undef }, '$disp_field' => { 'default' => undef }, '$object' => { 'default' => undef } }, 'object_size'=>2730, 'parser_version'=>0.8 ) ;