remove Tie::CPHash
This commit is contained in:
parent
ca7321f068
commit
29d1908e15
9 changed files with 2 additions and 17 deletions
|
|
@ -11,7 +11,6 @@ package WebGUI::Operation::DatabaseLink;
|
|||
#-------------------------------------------------------------------
|
||||
|
||||
use strict;
|
||||
use Tie::CPHash;
|
||||
use WebGUI::AdminConsole;
|
||||
use WebGUI::DatabaseLink;
|
||||
use WebGUI::Exception;
|
||||
|
|
@ -157,7 +156,6 @@ sub www_editDatabaseLink {
|
|||
my $session = shift;
|
||||
return $session->privilege->insufficient unless canView($session);
|
||||
my ($output, %db, $f);
|
||||
tie %db, 'Tie::CPHash';
|
||||
if ($session->form->process("dlid") eq "new") {
|
||||
# Default values are SELECT, DESCRIBE and SHOW
|
||||
$db{allowedKeywords} = "select\ndescribe\nshow";
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue