my $content;

if ($S->have_perm('story_admin')) {
$content .= qq\|
|dot| <A CLASS="light" HREF="|rootdir|/?op=admin;tool=story">New Story</a><BR>\|;
}
if ($S->have_perm('story_list')) {
$content .= qq\|
|dot| <A CLASS="light" HREF="|rootdir|/?op=admin;tool=storylist">Story List</a><BR>\|;
}
if ($S->have_perm('edit_polls')) {
$content .= qq\|
|dot| <A CLASS="light" HREF="|rootdir|/?op=admin;tool=editpoll">New Poll</a><BR>\|;
}
if ($S->have_perm('list_polls')) {
$content .= qq\|
|dot| <A CLASS="light" HREF="|rootdir|/?op=admin;tool=listpolls">Poll List</a><BR>\|;
}
if ($S->have_perm('edit_vars')) {
$content .= qq\|
|dot| <A CLASS="light" HREF="|rootdir|/?op=admin;tool=vars">Site Controls</a><BR>\|;
}
if ($S->have_perm('edit_blocks')) {
$content .= qq\|
|dot| <A CLASS="light" HREF="|rootdir|/?op=admin;tool=blocks">Blocks</a><BR>\|;
}
if ($S->have_perm('edit_topics')) {
$content .= qq\|
|dot| <A CLASS="light" HREF="|rootdir|/?op=admin;tool=topics">Topics</a><BR>\|;
}
if ($S->have_perm('edit_sections')) {
$content .= qq\|
|dot| <A CLASS="light" HREF="|rootdir|/?op=admin;tool=sections">Sections</a><BR>\|;
}
if ($S->have_perm('edit_special')) {
$content .= qq\|
|dot| <A CLASS="light" HREF="|rootdir|/?op=admin;tool=special">Special Pages</a><BR>\|;
}
if ($S->have_perm('edit_boxes')) {
$content .= qq\|
|dot| <A CLASS="light" HREF="|rootdir|/?op=admin;tool=boxes">Boxes</a><BR>\|;
}
if ($S->have_perm('edit_templates')) {
$content .= qq\|
|dot| <A CLASS="light" HREF="|rootdir|/?op=admin;tool=optemplates">Templates</a><BR>\|;
}
if ($S->have_perm('edit_groups')) {
$content .= qq\|
|dot| <A CLASS="light" HREF="|rootdir|/?op=admin;tool=groups">Groups</a><BR>\|;
}
if ($S->have_perm('rdf_admin')) {
$content .= qq\|
|dot| <A CLASS="light" HREF="|rootdir|/?op=admin;tool=rdf">RDF Feeds</a><BR>\|;
}
if ($S->have_perm('cron_admin')) {
$content .= qq\|
|dot| <A CLASS="light" HREF="|rootdir|/?op=admin;tool=cron">Cron</a><BR>\|;
}
if ($S->have_perm('edit_user')) {
$content .= qq{
<FORM NAME="uedit" METHOD="GET" ACTION="|rootdir|/">
Edit User:<BR>
<INPUT TYPE="hidden" NAME="op" VALUE="user">
<SMALL><INPUT TYPE="text" NAME="nick" VALUE="" SIZE=10>
<INPUT TYPE="SUBMIT" NAME="tool" VALUE="prefs">
<INPUT TYPE="SUBMIT" NAME="tool" VALUE="info">
</small></form>};

$content .= qq{ |BOX,user_email_lookup| };
}

return '' unless $content;

return { content=> $content };

Post A Comment