diff --git a/lib/WebGUI/Operation/Statistics.pm b/lib/WebGUI/Operation/Statistics.pm index 08360335b..20923cb28 100644 --- a/lib/WebGUI/Operation/Statistics.pm +++ b/lib/WebGUI/Operation/Statistics.pm @@ -111,7 +111,8 @@ sub www_viewLoginHistory { #------------------------------------------------------------------- sub www_viewPageReport { return WebGUI::Privilege::adminOnly() unless (WebGUI::Privilege::isInGroup(3)); - my ($output, $count, $user, $data, $sth, $page, $pageId); + my ($output, $count, $user, $data, $sth, %page, $pageId); + tie %page, "Tie::IxHash"; $output = '
| '.WebGUI::International::get(799).' | '.WebGUI::International::get(800).' | '.WebGUI::International::get(801).' | '; - foreach $pageId (keys %{$page}) { - $output .= '|
| '.$page->{$pageId}{pageTitle}.' | '; - $output .= ''.$page->{$pageId}{views}.' | '; + foreach $pageId (keys %page) { + $output .= '||
| '.$page{$pageId}{pageTitle}.' | '; + $output .= ''.$page{$pageId}{views}.' | '; $count = 0; - foreach (keys %{$page->{$pageId}{users}}) { + foreach (keys %{$page{$pageId}{users}}) { $count++; } $output .= ''.$count.' | '; - $output .= ''.$page->{$pageId}{interact}.' | '.$page{$pageId}{interact}.' | '; } $output .= '