X-Git-Url: http://mj.ucw.cz/gitweb/?a=blobdiff_plain;f=PciIds%2FHtml%2FHelp.pm;h=586ed66914b373fdd0560fb8eb3b99d4ee7e8a6b;hb=0b0879287bd3344cb7ad1351c7ac077b1dce5046;hp=8c65bad4ba759f86d2a0cf089ed11534bbdff345;hpb=3a3806bc1d431f97f3de2da9267292fa69cb5fbb;p=pciids.git diff --git a/PciIds/Html/Help.pm b/PciIds/Html/Help.pm index 8c65bad..586ed66 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; @@ -18,19 +36,21 @@ sub getHelp( $$ ) { chomp $head; genHtmlHead( $req, $head, undef ); my $addr = PciIds::Address::new( $req->uri() ); - print "

$head (".$addr->pretty().")

\n"; - genMenu( $req, $addr, $args, $auth, undef ); + print "
\n"; + 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=' ); - print "\n" if( $helpname ne 'index' ); + $repls{'AC_URL'} =~ s#mods/\?#mods/PC/?#; while( defined( my $line = ) ) { $line =~ s/\$(\w+_URL)\$/$repls{$1}/g; print $line; } close HELP; - genHtmlTail(); + genHtmlFooter( 1, $req, $args ); return OK; }