remove Tie::CPHash
This commit is contained in:
parent
ca7321f068
commit
29d1908e15
9 changed files with 2 additions and 17 deletions
|
|
@ -16,7 +16,6 @@ package WebGUI::DatabaseLink;
|
|||
|
||||
|
||||
use strict;
|
||||
use Tie::CPHash;
|
||||
use WebGUI::SQL;
|
||||
use WebGUI::International;
|
||||
use WebGUI::Utility;
|
||||
|
|
@ -339,7 +338,7 @@ sub new {
|
|||
my $class = shift;
|
||||
my $session = shift;
|
||||
my $databaseLinkId = shift;
|
||||
tie my %databaseLink, 'Tie::CPHash';
|
||||
my %databaseLink;
|
||||
unless ($databaseLinkId eq "") {
|
||||
if ($databaseLinkId eq "0") {
|
||||
%databaseLink = (
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue