a ton of $session fixes (thanks to Colin), and a new $session checker, that supposedly, shouldn't be needed now. It can be backed out, however, easily.

This commit is contained in:
Matthew Wilson 2006-01-16 22:45:21 +00:00
parent 5fadc70eac
commit 09483e18c5
208 changed files with 505 additions and 533 deletions

View file

@ -54,7 +54,7 @@ The assetId to add.
=cut
sub add {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return unless ($session->setting->get("passiveProfilingEnabled"));
my $assetId = shift;
my $sql = "insert into passiveProfileLog (passiveProfileLogId, userId, sessionId, assetId, dateOfEntry)
@ -84,7 +84,7 @@ The assetId of the page you want to log.
=cut
sub addPage {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return unless ($session->setting->get("passiveProfilingEnabled"));
my $pageId = shift;
my @wids = $session->db->buildArray("select assetId from asset where parentId=".$session->db->quote($pageId));
@ -112,7 +112,7 @@ A hashRef with userId and assetId.
=cut
sub summarizeAOI {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $data = shift;
my $sql = "
select f.fieldName,