view release on metacpan or  search on metacpan

CAB/Client/CGIWrapper.pm  view on Meta::CPAN

     div({id=>'section'},
	 #h2('Query'),
	 start_form(-method=>'GET', -id=>'queryForm'),
	 table({class=>'sep'},
	       tbody(
		     Tr(td({id=>'searchLabel'}, "Query:"),
			td({colspan=>3}, textfield(-name=>'q',-size=>64,-id=>'searchText')),
		       ),
		     ##
		     Tr(td({id=>'searchLabel'}, "Analyzer:"),
			td(popup_menu({-name=>'analyzer',
				       -values=>[ @{$wr->{analyzers}} ],
				       -default=>($wr->{analyzers}[0] || 'dta.cab.default')
				      }))),
		     ##
		     Tr(
			td({id=>'searchLabelE'}, "Format:"),
			td(popup_menu({-name=>'format',
				       -values=>[ map {$_->{key}} @{$wr->{fmts}} ],
				       -default=>$wr->{defaultFmt},
				       -labels => { map {($_->{key}=>$_->{label})} @{$wr->{fmts}} },
				      }))),
		     ##
		     Tr(
			td({id=>'searchLabelE'}, "Debug:"),
			td(checkbox(-name=>'debug',
				    -checked=>($wr->{autoClean} || !$wr->{debug} ? 0 : 1),
				    -value=>1,