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

adding listings caching to Matrix

Browse source
This commit is contained in:
Yung Han Khoe 2009-05-13 07:43:43 +00:00
parent 59c559354f
commit c4cd3c0940
3 changed files with 57 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

44
lib/WebGUI/Asset/Wobject/Matrix.pm
View file

@ -260,6 +260,14 @@ sub definition {
label => $i18n->get("statistics cache timeout label"),
hoverHelp => $i18n->get("statistics cache timeout description")
},
listingsCacheTimeout => {
tab => "display",
fieldType => "interval",
defaultValue => 3600,
uiLevel => 8,
label => $i18n->get("listings cache timeout label"),
hoverHelp => $i18n->get("listings cache timeout description")
},
);
push(@{$definition}, {
assetName=>$i18n->get('assetName'),
@ -470,16 +478,30 @@ The criterium by which the listings should be sorted.
sub getListings {
my $self = shift;
my $session = $self->session;
my $sort = shift || $session->scratch->get('matrixSort') || $self->get('defaultSort');
my $self = shift;
my $session = $self->session;
my $sort = shift || $session->scratch->get('matrixSort') || $self->get('defaultSort');
my $versionTag = WebGUI::VersionTag->getWorking($session, 1);
my ($listings, $listingsEncoded);
my $sortDirection = ' desc';
if ($sort eq 'title'){
$sortDirection = ' asc';
my $noCache =
$session->var->isAdminOn
|| $self->get("listingsCacheTimeout") <= 10
|| ($versionTag && $versionTag->getId eq $self->get("tagId"));
unless ($noCache) {
$listingsEncoded = WebGUI::Cache->new($session,"matrixListings_".$self->getId)->get;
}
my $sql = "
if ($listingsEncoded){
$listings = JSON->new->decode($listingsEncoded);
}
else{
my $sortDirection = ' desc';
if ($sort eq 'title'){
$sortDirection = ' asc';
}
my $sql = "
select
assetData.title,
assetData.url,
@ -500,8 +522,14 @@ assetData.revisionDate
and status='approved'
order by ".$sort.$sortDirection;
return $session->db->buildArrayRefOfHashRefs($sql,[$self->getId]);
$listings = $session->db->buildArrayRefOfHashRefs($sql,[$self->getId]);
$listingsEncoded = JSON->new->encode($listings);
WebGUI::Cache->new($session,"matrixListings_".$self->getId)->set(
$listingsEncoded,$self->get("listingsCacheTimeout")
);
}
return $listings;
}
#-------------------------------------------------------------------

10
lib/WebGUI/i18n/English/Asset_Matrix.pm
View file

@ -448,6 +448,16 @@ to increase performance. How long should we cache them?|,
lastUpdated => 0,
},
'listings cache timeout label' => {
message => q|Listings Cache Timeout|,
lastUpdated => 0,
},
'listings cache timeout description' => {
message => q|The complete list of Matrix listings can be cached for some time to increase performance. How long should we cache it?|,
lastUpdated => 0,
},
'rating timeout description' => {
message => q|Set a timeout so that users are prevented from rating a given listing too often.|,
lastUpdated => 1135271460,