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

fixed bug 761627

Browse source
This commit is contained in:
JT Smith 2003-07-02 01:16:41 +00:00
parent efd8782cd3
commit 99a7cb04a3
1 changed files with 11 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

21
lib/WebGUI/Operation/Statistics.pm
View file

@ -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 = '<h1>Page Statistics</h1>';
unless ($session{setting}{trackPageStatistics}) {
$output .= WebGUI::International::get(802);
@ -124,10 +125,10 @@ sub www_viewPageReport {
} else {
$user = $data->{userId};
}
$page->{$data->{pageId}}{pageTitle} = $data->{pageTitle};
$page->{$data->{pageId}}{users}{$user}++;
$page->{$data->{pageId}}{views}++;
$page->{$data->{pageId}}{interact}++ if ($data->{wobjectId});
$page{$data->{pageId}}{pageTitle} = $data->{pageTitle};
$page{$data->{pageId}}{users}{$user}++;
$page{$data->{pageId}}{views}++;
$page{$data->{pageId}}{interact}++ if ($data->{wobjectId});
}
$sth->finish;
$output .= '<table width="100%" cellpadding="3" cellspacing="0" border="1">
@ -135,15 +136,15 @@ sub www_viewPageReport {
<td class="tableHeader">'.WebGUI::International::get(799).'</td>
<td class="tableHeader">'.WebGUI::International::get(800).'</td>
<td class="tableHeader">'.WebGUI::International::get(801).'</td></tr>';
foreach $pageId (keys %{$page}) {
$output .= '<tr><td class="tableData">'.$page->{$pageId}{pageTitle}.'</td>';
$output .= '<td class="tableData">'.$page->{$pageId}{views}.'</td>';
foreach $pageId (keys %page) {
$output .= '<tr><td class="tableData">'.$page{$pageId}{pageTitle}.'</td>';
$output .= '<td class="tableData">'.$page{$pageId}{views}.'</td>';
$count = 0;
foreach (keys %{$page->{$pageId}{users}}) {
foreach (keys %{$page{$pageId}{users}}) {
$count++;
}
$output .= '<td class="tableData">'.$count.'</td>';
$output .= '<td class="tableData">'.$page->{$pageId}{interact}.'</td></tr>';
$output .= '<td class="tableData">'.$page{$pageId}{interact}.'</td></tr>';
}
$output .= '</table>';
}