diff options
author | Yorhel <git@yorhel.nl> | 2008-11-30 15:00:41 +0100 |
---|---|---|
committer | Yorhel <git@yorhel.nl> | 2008-11-30 15:00:41 +0100 |
commit | 3f747b5fce24fad0635be727c431e1fb234c3fa6 (patch) | |
tree | 0e9e9baf1af0daa103a3b83e82c9113831976865 /lib/VNDB/Util/LayoutHTML.pm | |
parent | 29a452e94a5b5a2aabf7d3502c8423deb786dbcb (diff) |
Searchbox
It's not the nicest placing for a search box, but I couldn't think
of anything else...
Diffstat (limited to 'lib/VNDB/Util/LayoutHTML.pm')
-rw-r--r-- | lib/VNDB/Util/LayoutHTML.pm | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/lib/VNDB/Util/LayoutHTML.pm b/lib/VNDB/Util/LayoutHTML.pm index 758ce444..94491e01 100644 --- a/lib/VNDB/Util/LayoutHTML.pm +++ b/lib/VNDB/Util/LayoutHTML.pm @@ -9,7 +9,7 @@ use Exporter 'import'; our @EXPORT = qw|htmlHeader htmlFooter|; -sub htmlHeader { # %options->{ title } +sub htmlHeader { # %options->{ title, js, search } my($self, %o) = @_; # heading @@ -40,7 +40,7 @@ sub htmlHeader { # %options->{ title } sub _menu { - my $self = shift; + my($self, %o) = @_; div id => 'menulist'; @@ -55,6 +55,13 @@ sub _menu { a href => '/t', 'Discussion board'; br; a href => '#', 'FAQ'; br; end; + form action => '/v/all', method => 'get', id => 'search'; + fieldset; + legend 'Search'; + input type => 'text', class => 'text', id => 'sq', name => 'sq', value => $o{search}||'search'; + input type => 'submit', class => 'submit', value => 'Seach'; + end; + end; end; div class => 'menubox'; |