X-Git-Url: http://mj.ucw.cz/gitweb/?a=blobdiff_plain;f=PciIds%2FHtml%2FNotifications.pm;h=c8cc15c0dd4f73d53fe46f2d5feb8a3ae419978e;hb=3f07a9b2db92ac05004cfad21b250f24a5940656;hp=4e440b7ea208b76f104d70a62afb052cbdac579a;hpb=d14718cb3192765fb35f43c560e9bee5d8bba3d7;p=pciids.git diff --git a/PciIds/Html/Notifications.pm b/PciIds/Html/Notifications.pm index 4e440b7..c8cc15c 100644 --- a/PciIds/Html/Notifications.pm +++ b/PciIds/Html/Notifications.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::Notifications; use strict; use warnings; @@ -10,8 +28,8 @@ use Apache2::Const qw(:common :http); sub genNotifForm( $$$$$$ ) { my( $req, $args, $tables, $auth, $error, $data ) = @_; my $addr = PciIds::Address::new( $req->uri() ); - genHtmlHead( $req, $addr->pretty().' - notifications', undef ); - genCustomHead( $req, $args, $addr, $addr->pretty()." - notifications", [ $addr->canAddItem() ? [ 'New item', 'newitem' ] : (), $addr->canDiscuss ? [ 'Discuss', 'newhistory' ] : (), [ 'Help', 'help', 'notifications' ] ], [ logItem( $auth ), [ 'Profile', 'profile' ] ] ); + genHtmlHead( $req, 'Notifications', undef ); + genCustomHead( $req, $args, $addr, "Notifications", [ $addr->canAddItem() ? [ 'New item', 'newitem' ] : (), $addr->canDiscuss ? [ 'Discuss', 'newhistory' ] : (), [ 'Help', 'help', 'notifications' ], [ '', 'jump' ] ], [ logItem( $auth ), [ 'Profile', 'profile' ] ] ); print "
$error
\n" if( defined $error ); my $uri = $addr->get(); my $notifs = $tables->notificationsUser( $auth->{'authid'} ); @@ -46,7 +64,7 @@ sub genNotifForm( $$$$$$ ) { } print "\n"; } - genHtmlTail(); + genHtmlFooter( 1, $req, $args ); return OK; }