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