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

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