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

remove Tie::CPHash

Browse source
This commit is contained in:
Graham Knop 2010-08-24 16:19:41 -05:00
parent ca7321f068
commit 29d1908e15
9 changed files with 2 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

1
lib/WebGUI/Operation/ActiveSessions.pm
View file

@ -15,7 +15,6 @@ use WebGUI::AdminConsole;
use WebGUI::International;
use WebGUI::Paginator;
use WebGUI::SQL;
use Tie::CPHash;
=head1 NAME

2
lib/WebGUI/Operation/DatabaseLink.pm
View file

@ -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";

3
lib/WebGUI/Operation/LDAPLink.pm
View file

@ -11,7 +11,6 @@ package WebGUI::Operation::LDAPLink;
#-------------------------------------------------------------------
use strict;
use Tie::CPHash;
use Tie::IxHash;
use WebGUI::AdminConsole;
use WebGUI::LDAPLink;
@ -139,7 +138,6 @@ sub www_copyLDAPLink {
my $session = shift;
return $session->privilege->insufficient unless canView($session);
my (%db);
tie %db, 'Tie::CPHash';
%db = $session->db->quickHash("select * from ldapLink where ldapLinkId=".$session->db->quote($session->form->process("llid")));
$db{ldapLinkId} = "new";
$db{ldapLinkName} = "Copy of ".$db{ldapLinkName};
@ -186,7 +184,6 @@ sub www_editLDAPLink {
my ($output, %db, $f);
tie %db, 'Tie::CPHash';
%db = $session->db->quickHash("select * from ldapLink where ldapLinkId=".$session->db->quote($session->form->process("llid")));
my $i18n = WebGUI::International->new($session,"AuthLDAP");

2
lib/WebGUI/Operation/LoginHistory.pm
View file

@ -15,7 +15,6 @@ use WebGUI::AdminConsole;
use WebGUI::International;
use WebGUI::Paginator;
use WebGUI::SQL;
use Tie::CPHash;
=head1 NAME
@ -54,7 +53,6 @@ sub www_viewLoginHistory {
return $session->privilege->adminOnly() unless canView($session);
my ($output, $p, @row, $i, $sth, %data);
my $i18n = WebGUI::International->new($session);
tie %data, 'Tie::CPHash';
$sth = $session->db->read("select * from users,userLoginLog where users.userId=userLoginLog.userId order by userLoginLog.timeStamp desc");
while (%data = $sth->hash) {
$data{username} = $i18n->get('unknown user') if ($data{userId} eq "0");