Count of pending events in admin interface

[pciids.git] / PciIds / Html / Admin.pm

diff --git a/PciIds/Html/Admin.pm b/PciIds/Html/Admin.pm
index 056d353004022ab6e5fec1c85cb7a0b5ba4d1698..0f8c1599775d6c4201e9096efeec2840324e5756 100644 (file)
--- a/PciIds/Html/Admin.pm
+++ b/PciIds/Html/Admin.pm
@@ -116,6 +116,7 @@ sub genNewAdminForm( $$$$$ ) {
        my $moreButt = 'admin?limit='.( $limit ? int( $limit * 2 ) : 160 ).buildExcept( 'action', $args );
        $moreButt .= '?global='.$glob if defined $glob;
        genCustomHead( $req, $args, $address, $caption, [ $address->canAddItem() ? [ 'Add item', 'newitem' ] : (), $address->canDiscuss() ? [ 'Discuss', 'newhistory' ] : (), $glob ? [ 'Local', 'admin'.buildExcept( 'action', $args ) ] : [ 'Global', 'admin?global=1'.buildExcept( 'action', $args ) ], [ 'More items', $moreButt ], [ 'Help', 'help', 'admin' ] ], [ [ 'Log out', 'logout' ] ] );
+       print "<p>Pending events: ".$tables->adminCount( $glob ? '' : $address->get() );
        print "<div class='error'>$error</div>\n" if( defined $error );
        print "<form name='admin' id='admin' class='admin' method='POST' action=''>\n";
        my $lastId;