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

remove WebGUI::Utility::isIn

Browse source
This commit is contained in:
Graham Knop 2010-09-07 12:33:15 -05:00
parent 0e754a51e4
commit 6aa26c2e44
61 changed files with 126 additions and 148 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lib/WebGUI/DatabaseLink.pm
View file

@ -106,10 +106,10 @@ sub checkPrivileges {
}
# Check if all required privs are present.
return 1 if (isIn('ALL PRIVILEGES', @privileges));
return 1 if ('ALL PRIVILEGES' ~~ @privileges);
foreach (@{ $requestedPrivileges }) {
return 0 unless (isIn(uc($_), @privileges));
return 0 unless (uc($_) ~~ @privileges);
}
return 1;
@ -386,7 +386,7 @@ sub queryIsAllowed {
my ($firstWord) = $query =~ /(\w+)/;
$firstWord = lc $firstWord;
return isIn($firstWord, split(/\s+/, lc $self->{_databaseLink}{allowedKeywords})) ? 1 : 0;
return $firstWord ~~ [split(/\s+/, lc $self->{_databaseLink}{allowedKeywords})] ? 1 : 0;
}
#-------------------------------------------------------------------