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

cache: s/flush/clear/

Browse source
This commit is contained in:
Doug Bell 2010-04-19 18:58:04 -05:00
parent bd80af6b60
commit 5c36973aa0
4 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lib/WebGUI/AssetLineage.pm
View file

@ -152,7 +152,7 @@ sub cascadeLineage {
[$newLineage, length($oldLineage) + 1, $oldLineage . '%']
);
if ($records > 20) {
$self->session->cache->flush;
$self->session->cache->clear;
}
else {
my $descendants = $self->session->db->read("SELECT assetId FROM asset WHERE lineage LIKE ?", [$newLineage . '%']);

2
lib/WebGUI/Operation/Cache.pm
View file

@ -92,7 +92,7 @@ sub www_flushCache {
return $session->privilege->adminOnly unless canView($session);
# Flush the cache
$session->cache->flush;
$session->cache->clear;
return www_manageCache($session);
}

2
lib/WebGUI/Operation/Settings.pm
View file

@ -736,7 +736,7 @@ sub www_saveSettings {
$session->db->write(
"UPDATE userProfileData SET showMessageOnLoginSeen=0"
);
$session->cache->flush;
$session->cache->clear;
}
return www_editSettings($session, { errors => \@errors, message => $i18n->get("editSettings done") });

4
lib/WebGUI/Session/Scratch.pm
View file

@ -107,7 +107,7 @@ sub deleteName {
return undef unless ($name);
delete $self->{_data}{$name};
my $session = $self->session;
$session->cache->flush;
$session->cache->clear;
$session->db->write("delete from userSessionScratch where name=?", [$name]);
}
@ -134,7 +134,7 @@ sub deleteNameByValue {
return undef unless ($name and defined $value);
delete $self->{_data}{$name} if ($self->{_data}{$name} eq $value);
my $session = $self->session;
$session->cache->flush;
$session->cache->clear;
$session->db->write("delete from userSessionScratch where name=? and value=?", [$name,$value]);
}