[Scoop-checkins] scoop/lib/Scoop/Admin Perms.pm

[scoop at lithium.sabren.com]

Update of /cvs/scoop/scoop/lib/Scoop/Admin
In directory lithium.sabren.com:/tmp/cvs-serv1516/lib/Scoop/Admin

Modified Files:
	Perms.pm 
Log Message:
Hulver's fixes for bugs 24, 77, 86, 160, 176, and 185

-janra



Index: Perms.pm
===================================================================
RCS file: /cvs/scoop/scoop/lib/Scoop/Admin/Perms.pm,v
retrieving revision 1.19
retrieving revision 1.20
diff -C2 -d -r1.19 -r1.20
*** Perms.pm	5 Oct 2003 08:56:32 -0000	1.19
--- Perms.pm	28 May 2005 01:56:28 -0000	1.20
***************
*** 173,177 ****
  	# If the hash key is not there for any arg, we don't have access
  	foreach my $perm (@all_check) {
! 		return 0 unless ($userperm->{$perm} == 1);
  	}
  	
--- 173,177 ----
  	# If the hash key is not there for any arg, we don't have access
  	foreach my $perm (@all_check) {
! 		return 0 unless ($userperm->{$perm});
  	}