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

Add tests for database defined groups to Group.t

Browse source 
Clear cache on set of databaseLinkId or dbQuery in WebGUI::Group.pm.
Fix typos, missing module use lines and extra variables in WebGUI::User.pm.
This commit is contained in:
Colin Kuskie 2006-04-03 18:07:09 +00:00
parent 03c79ce1d0
commit c802e4ddad
3 changed files with 28 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lib/WebGUI/User.pm
View file

@ -17,6 +17,7 @@ package WebGUI::User;
use strict;
use WebGUI::Cache;
use WebGUI::Group;
use WebGUI::DatabaseLink;
=head1 NAME
@ -309,11 +310,11 @@ sub isInGroup {
}
}
### Check external database
if ($group->get("dbQuery") && $group->get("databaseLinkId")) {
if ($group->get("dbQuery") && defined $group->get("databaseLinkId")) {
# skip if not logged in and query contains a User macro
unless ($group->get("dbQuery") =~ /\^User/i && $uid eq '1') {
my $dbLink = WebGUI::DatabaseLink->new($self->session,$group->get("databaseLinkId"));
my $dbh = $dbLink->dbh;
my $dbh = $dbLink->db;
if (defined $dbh) {
if ($group->get("dbQuery") =~ /select 1/i) {
my $query = $group->get("dbQuery");