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 $_out = $m->current_sink; $m->debug_hook($m->current_comp->path) if (%DB::); my $url = $r->uri; my $let = get_state_data($widget, 'crit_letter') || ''; $_out->('
'); for my $i ("A" .. "Z") { if ($let eq $i) { $_out->(''); $_out->( $i ); $_out->(' | '); } else { $_out->(''); $_out->( $i ); $_out->(' | '); } } if ($let eq '%') { $_out->('[All] '); } else { $_out->('[All] '); } $_out->('
'); #--- END HTML ---# $_out->(' '); #--- Arguments ---# $_out->(' '); $_out->(' '); #--- Initialization ---# $_out->(' '); $_out->(' '); #--- Log History ---# $_out->(' '); return undef; }, 'create_time'=>1001666047, 'declared_args'=> { '$widget' => { 'default' => undef } }, 'object_size'=>1589, 'parser_version'=>0.8 ) ;