X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=vhost%2Fwebpac2.cgi;h=fd76b657b4f95a9c989e24be91b19ed7cc75a209;hb=270b0142ec5a98e84ecb5beaf1a020130ab9e013;hp=19dae1a085e70036da95d250bd0f17e6f3b448ed;hpb=23109b6227b31fe7880f7a2c836a68b0d3868368;p=webpac2 diff --git a/vhost/webpac2.cgi b/vhost/webpac2.cgi index 19dae1a..fd76b65 100755 --- a/vhost/webpac2.cgi +++ b/vhost/webpac2.cgi @@ -11,6 +11,9 @@ use Data::Page; use Data::Dump qw/dump/; use SWISH::API; use JSON; +use Text::Unaccent::PurePerl qw/unac_string/; +use HTML::FillInForm::Lite; +use Encode; my $range_around = 5; my @entries_per_page = ( 30, 50, 100, 500 ); @@ -136,6 +139,7 @@ my $inputs_available = 0; foreach ( @{ $db->{input} } ) { my $input = $_->{name} || die "no name in ",dump( $_ ); + next unless defined $stats->{input}->{$input}; # skip inputs without data if ( ! $only_input->{'-labels'}->{$input} ) { push @{ $only_input->{'-values'} }, $input; $only_input->{'-labels'}->{$input} = $_->{description} || $input; @@ -150,6 +154,15 @@ push @style, "../../$path/$path.css" if -e "$dir/$path/$path.css"; dump_yaml( 'style', \@style ); sub search_form { + + my $form_html = "$dir/$path/$path-search.html"; + if ( -e $form_html ) { + my $html = read_file( $form_html ); + my $q = CGI->new(); + my $h = HTML::FillInForm::Lite->new(); + return $h->fill(\$html, $q); + } + qq||, start_form( -action => self_url( query => 0 ) ), checkbox_group( @@ -190,6 +203,8 @@ print if ( my $search = param('search') ) { + $search = unac_string( Encode::decode('utf-8',$search) ); + print qq| #