Changed link list so users couldn't see edit icons unless they had the privileges to edit the link.

This commit is contained in:
JT Smith 2003-04-12 19:37:56 +00:00
parent f6fbd49a0c
commit 92746b3373
2 changed files with 8 additions and 1 deletions

View file

@ -192,6 +192,7 @@ sub www_view {
my (%var, @linkloop, $controls, $link, $sth);
$var{"addlink.url"} = WebGUI::URL::page('func=editLink&lid=new&wid='.$_[0]->get("wobjectId"));
$var{"addlink.label"} = WebGUI::International::get(13,$_[0]->get("namespace"));
$var{canEdit} = WebGUI::Privilege::canEditPage();
$sth = WebGUI::SQL->read("select * from LinkList_link where wobjectId=".$_[0]->get("wobjectId")."
order by sequenceNumber");
while ($link = $sth->hashRef) {