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

4
lib/WebGUI/Asset/Sku/Product.pm
View file

@ -11,7 +11,6 @@ package WebGUI::Asset::Sku::Product;
#-------------------------------------------------------------------
use strict;
use Tie::CPHash;
use Tie::IxHash;
use WebGUI::HTMLForm;
use WebGUI::Storage;
@ -1660,8 +1659,7 @@ sub view {
my $out = $cache->get( $cacheKey );
return $out if $out;
}
my (%data, $segment, %var, @featureloop, @benefitloop, @specificationloop, @accessoryloop, @relatedloop);
tie %data, 'Tie::CPHash';
my ($segment, %var, @featureloop, @benefitloop, @specificationloop, @accessoryloop, @relatedloop);
my $brochure = $self->get("brochure");
my $manual = $self->get("manual");
my $warranty = $self->get("warranty");

3
lib/WebGUI/DatabaseLink.pm
View file

@ -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 = (

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

1
lib/WebGUI/Session/Style.pm
View file

@ -16,7 +16,6 @@ package WebGUI::Session::Style;
use strict;
use Tie::CPHash;
use Scalar::Util qw( weaken );
use WebGUI::International;
use WebGUI::Macro;

2
lib/WebGUI/User.pm
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(

1
sbin/testEnvironment.pl
View file

@ -84,7 +84,6 @@ checkModule("Net::SMTP", 2.31 );
checkModule("MIME::Tools", 5.427 );
checkModule("Net::POP3", 2.29 );
checkModule("Tie::IxHash", 1.21 );
checkModule("Tie::CPHash", 1.04 );
checkModule("XML::Simple", 2.18 );
checkModule("DateTime", 0.4501 );
checkModule("Time::HiRes", 1.9719 );