--- trunk/vhost/webpac2.cgi 2009/04/21 21:06:31 1132 +++ trunk/vhost/webpac2.cgi 2009/04/21 23:17:21 1135 @@ -12,7 +12,8 @@ print header; sub dump_yaml { - print qq|
|, YAML::Dump( @_ ), qq||; + my $name = shift; + print qq|
# $name\n|, YAML::Dump( @_ ), qq||; } my $path = $ENV{PATH_INFO}; @@ -40,7 +41,7 @@ start_form, radio_group( -name => 'attr', - -values => [ 'issn', 'naslov' ], + -values => [ @attr ], # -linebreak => 0, ), textfield( -name => 'search' ), @@ -51,7 +52,7 @@ if ( my $search = param('search') ) { - print qq|