oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

added per page wobject privileges

Browse source
This commit is contained in:
JT Smith 2004-01-04 19:22:15 +00:00
parent 759dfd2f6b
commit aee1eda4fa
9 changed files with 100 additions and 497 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lib/WebGUI/Privilege.pm
View file

@ -128,7 +128,7 @@ The unique identifier for the wobject that you wish to check the privileges on.
sub canEditWobject {
my (%wobject);
tie %wobject, 'Tie::CPHash';
return canEditPage() if ($session{setting}{wobjectPrivileges} != 1 || $_[0] eq "new");
return canEditPage() if ($session{page}{wobjectPrivileges} != 1 || $_[0] eq "new");
%wobject = WebGUI::SQL->quickHash("select ownerId,groupIdEdit from wobject where wobjectId=".quote($_[0]));
if ($session{user}{userId} == $wobject{ownerId}) {
return 1;
@ -196,7 +196,7 @@ The unique identifier for the wobject that you wish to check the privileges on.
sub canViewWobject {
my (%wobject);
tie %wobject, 'Tie::CPHash';
return canViewPage() unless ($session{setting}{wobjectPrivileges} == 1);
return canViewPage() unless ($session{page}{wobjectPrivileges} == 1);
%wobject = WebGUI::SQL->quickHash("select ownerId,groupIdView,startDate,endDate from wobject where wobjectId=".quote($_[0]));
if ($wobject{startDate} < time() && $wobject{endDate} > time()) {
if ($session{user}{userId} == $wobject{ownerId}) {