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

fix: SQLReport now throws fatal if can't find DatabaseLink

Browse source 
DatabaseLink now warns if can't find DatabaseLink
This commit is contained in:
Doug Bell 2006-10-27 20:42:59 +00:00
parent 4ed1ffe3c7
commit 50e7645322
3 changed files with 16 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lib/WebGUI/DatabaseLink.pm
View file

@ -219,9 +219,9 @@ is reserved for the WebGUI database.
=cut
sub new {
my ($class, $databaseLinkId, %databaseLink);
tie %databaseLink, 'Tie::CPHash';
$class = shift;
my ($class, $databaseLinkId, %databaseLink);
tie %databaseLink, 'Tie::CPHash';
$class = shift;
my $session = shift;
$databaseLinkId = shift;
unless ($databaseLinkId eq "") {
@ -238,8 +238,13 @@ sub new {
%databaseLink = $session->db->quickHash("select * from databaseLink where databaseLinkId=".$session->db->quote($databaseLinkId));
}
}
return undef unless defined($databaseLink{databaseLinkId});
unless (defined($databaseLink{databaseLinkId}))
{
$session->errorHandler->warn("Could not find database link '".$databaseLinkId."'");
return undef;
}
bless {_session=>$session, _databaseLink => \%databaseLink }, $class;
}