X-Git-Url: http://mj.ucw.cz/gitweb/?a=blobdiff_plain;f=PciIds%2FHtml%2FHelp.pm;h=90966644a179b63fd667a458907532b6a22e0c10;hb=56225dff5ab7bb300e6080938be559f2e752546a;hp=bd8c70b7330156eab15199b65706335a1a7cc428;hpb=cdd0c847d6567e79c09dae0a47f8d85603089e61;p=pciids.git diff --git a/PciIds/Html/Help.pm b/PciIds/Html/Help.pm index bd8c70b..9096664 100644 --- a/PciIds/Html/Help.pm +++ b/PciIds/Html/Help.pm @@ -1,3 +1,21 @@ +# PciIds web database +# Copyright (C) 2008 Michal Vaner (vorner@ucw.cz) +# +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# he Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program; if not, write to the Free Software +# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + package PciIds::Html::Help; use strict; use warnings; @@ -19,10 +37,10 @@ sub getHelp( $$ ) { genHtmlHead( $req, $head, undef ); my $addr = PciIds::Address::new( $req->uri() ); print "
\n"; - print "

$head".( defined $addr ? " (".$addr->pretty().")" : "" )."

\n"; - genMenu( $req, $addr, $args, $auth, [ [ 'Help index', 'help', 'index' ] ] ); - genPath( $req, $addr, 1 ); + genMenu( $req, $addr, $args, $auth, [ ( $helpname eq 'index' ) ? () : [ 'Help index', 'help', 'index' ] ] ); + print "

$head

The PCI ID Repository

\n"; print "
\n"; + genPath( $req, $addr, 1 ); my $url = setAddrPrefix( $req->uri(), 'read' ).buildExcept( 'help', $args ).'?help='; delete $args->{'help'}; my %repls = ( 'HELP_URL' => $url, 'AC_URL' => setAddrPrefix( $req->uri(), 'mods' ).buildExcept( 'action', $args ).'?action=' ); @@ -31,7 +49,7 @@ sub getHelp( $$ ) { print $line; } close HELP; - genHtmlTail(); + genHtmlFooter( 1, $req, $args ); return OK; }