File Source for adminnav.php

<?php
/**
* Zikula Application Framework
*
* @copyright (c) 2002, Zikula Development Team
* @link http://www.zikula.org
* @version $Id: adminnav.php 24342 2008-06-06 12:03:14Z markwest $
* @license GNU/GPL - http://www.gnu.org/copyleft/gpl.html
* @author Mark West
* @package Zikula_System_Modules
* @subpackage Admin
*/
/**
* initialise block
*/
function Admin_adminnavblock_init()
{
// Security
pnSecAddSchema('Admin:adminnavblock:', 'Block title::');
}
/**
* get information on block
*/
function Admin_adminnavblock_info()
{
// Values
return array('text_type' => 'Admin',
'module' => 'Admin',
'text_type_long' => 'Show admin categories and modules',
'allow_multiple' => false,
'form_content' => false,
'form_refresh' => false,
'show_preview' => true);
}
/**
* display block
*/
function Admin_adminnavblock_display($blockinfo)
{
// Security check
if (!SecurityUtil::checkPermission('Admin:adminnavblock',
"$blockinfo[title]::",
ACCESS_ADMIN)) {
return;
}
// Get variables from content block
$vars = pnBlockVarsFromContent($blockinfo['content']);
// Call the modules API to get the items
if (pnModAvailable('Admin')) {
$items = pnModAPIFunc('Admin', 'admin', 'getall');
} else {
return;
}
// Check for no items returned
if (empty($items)) {
return;
}
// Create output object
$pnRender = pnRender::getInstance('Admin');
// get admin capable modules
$adminmodules = pnModGetAdminMods();
$adminmodulescount = count($adminmodules);
// Display each item, permissions permitting
$admincategories = array();
foreach ($items as $item) {
if (SecurityUtil::checkPermission('Admin::', "$item[catname]::$item[cid]", ACCESS_READ)) {
$adminlinks = array();
foreach ($adminmodules as $adminmodule) {
// Get all modules in the category
$catid = pnModAPIFunc('Admin',
'admin',
'getmodcategory',
array('mid' => pnModGetIDFromName($adminmodule['name'])));
if (($catid == $item['cid']) || (($catid == false) && ($item['cid'] == pnModGetVar('Admin', 'defaultcategory')))) {
$modinfo = pnModGetInfo(pnModGetIDFromName($adminmodule['name']));
if ($modinfo['type'] != 1) {
$menutexturl = pnModURL($modinfo['name'], 'admin');
$menutexttitle = $modinfo['displayname'];
} else {
$menutexturl = 'admin.php?module=' . DataUtil::formatForDisplay($modinfo['name']);
$menutexttitle = $modinfo['displayname'];
}
$adminlinks[] = array('menutexturl' => $menutexturl,
'menutexttitle' => $menutexttitle);
}
}
$admincategories[] = array('url' => pnModURL('Admin', 'admin', 'adminpanel', array('cid' => $item['cid'])),
'title' => DataUtil::formatForDisplay($item['catname']),
'modules' => $adminlinks);
}
}
$pnRender->assign('admincategories', $admincategories);
// Populate block info and pass to theme
$blockinfo['content'] = $pnRender->fetch('admin_block_adminnav.htm');
return pnBlockThemeBlock($blockinfo);
}

Source for file adminnav.php