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

100% coverage on t/Macro/SQL.t. Refactor DatabaseLink.

Browse source
This commit is contained in:
Colin Kuskie 2009-11-08 22:55:57 -08:00
parent dbf86bb850
commit 1c20f132eb
2 changed files with 17 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lib/WebGUI/DatabaseLink.pm
View file

@ -337,11 +337,10 @@ is reserved for the WebGUI database.
=cut
sub new {
my ($class, $databaseLinkId, %databaseLink);
tie %databaseLink, 'Tie::CPHash';
$class = shift;
my $session = shift;
$databaseLinkId = shift;
my $class = shift;
my $session = shift;
my $databaseLinkId = shift;
tie my %databaseLink, 'Tie::CPHash';
unless ($databaseLinkId eq "") {
if ($databaseLinkId eq "0") {
%databaseLink = (