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

first round of changes for the new session system

Browse source
This commit is contained in:
JT Smith 2005-12-31 21:54:06 +00:00
parent da95226072
commit d4b7f2ce59
128 changed files with 2442 additions and 1478 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lib/WebGUI/Macro/AOIRank.pm
View file

@ -11,8 +11,6 @@ package WebGUI::Macro::AOIRank;
#-------------------------------------------------------------------
use strict;
use WebGUI::Session;
use WebGUI::SQL;
=head1 NAME
@ -37,16 +35,15 @@ Define which value, by it's ranking, will be displayed. The highest ranking is
#-------------------------------------------------------------------
sub process {
my (@param, $temp);
@param = @_;
my $key = $param[0];
my $rank = $param[1] || 1; # 1 is highest rank
my $session = shift;
my $key = shift;
my $rank = shift || 1; # 1 is highest rank
$rank--; # Rank is zero based
my $sql = "select value from passiveProfileAOI a, metaData_properties f
where a.fieldId=f.fieldId
and userId=".quote($session{user}{userId})."
and fieldName=".quote($key)." order by a.count desc";
my @values = WebGUI::SQL->buildArray($sql);
and userId=".$session->db->$session->db->quote($session->user->userId)."
and fieldName=".$session->db->$session->db->quote($key)." order by a.count desc";
my @values = $session->db->buildArray($sql);
return $values[$rank];
}