remove Tie::CPHash

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

View file

@ -20,7 +20,6 @@ use WebGUI::Utility;
use WebGUI::Workflow::Instance;
use JSON ();
use WebGUI::ProfileField;
use Tie::CPHash;
use Scalar::Util qw( weaken );
use Net::CIDR::Lite;
@ -1075,7 +1074,6 @@ sub new {
weaken( $self->{_session} );
unless ($self->{_userId} && $self->{_user}{username}) {
my %user;
tie %user, 'Tie::CPHash';
%user = $session->db->quickHash("select * from users where userId=?",[$userId]);
my %profile
= $session->db->quickHash(