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->(' |
![]() |