diff --git a/lib/WebGUI/Asset/File.pm b/lib/WebGUI/Asset/File.pm index c4374b2bc..5c181e97e 100644 --- a/lib/WebGUI/Asset/File.pm +++ b/lib/WebGUI/Asset/File.pm @@ -449,7 +449,7 @@ Extends the master method to clear the view cache. override purgeCache => sub { my $self = shift; - $self->session->cache->delete("view_".$self->getId); + $self->session->cache->remove("view_".$self->getId); super(); }; diff --git a/lib/WebGUI/Asset/Post.pm b/lib/WebGUI/Asset/Post.pm index 9cb885c08..80b7e6ff2 100644 --- a/lib/WebGUI/Asset/Post.pm +++ b/lib/WebGUI/Asset/Post.pm @@ -1175,7 +1175,7 @@ Extend the base class to handle caching. override purgeCache => sub { my $self = shift; - $self->session->cache->delete("view_".$self->getThread->getId) if ($self->getThread); + $self->session->cache->remove("view_".$self->getThread->getId) if ($self->getThread); super(); }; diff --git a/lib/WebGUI/Asset/Shortcut.pm b/lib/WebGUI/Asset/Shortcut.pm index 812f6d370..9fc0ea56a 100644 --- a/lib/WebGUI/Asset/Shortcut.pm +++ b/lib/WebGUI/Asset/Shortcut.pm @@ -879,7 +879,7 @@ Delete any cached overrides. sub uncacheOverrides { my $self = shift; - $self->session->cache->delete($self->_overridesCacheTag); + $self->session->cache->remove($self->_overridesCacheTag); } #------------------------------------------------------------------- diff --git a/lib/WebGUI/Asset/Sku/Product.pm b/lib/WebGUI/Asset/Sku/Product.pm index e5fec5b86..2e3344c1d 100644 --- a/lib/WebGUI/Asset/Sku/Product.pm +++ b/lib/WebGUI/Asset/Sku/Product.pm @@ -769,7 +769,7 @@ Extends the base class to handle cleaning up the cache for this asset. override purgeCache => sub { my $self = shift; - $self->session->cache->delete("view_".$self->getId); + $self->session->cache->remove("view_".$self->getId); super(); }; diff --git a/lib/WebGUI/Asset/Snippet.pm b/lib/WebGUI/Asset/Snippet.pm index 8d4ca57b6..1948a6424 100644 --- a/lib/WebGUI/Asset/Snippet.pm +++ b/lib/WebGUI/Asset/Snippet.pm @@ -205,10 +205,10 @@ override purgeCache => sub { my $self = shift; my $cache = $self->session->cache; eval { - $cache->delete("view__".$self->getId); - $cache->delete("view_1_".$self->getId); - $cache->delete("view__".$self->getId . '_ssl'); - $cache->delete("view_1_".$self->getId . '_ssl'); + $cache->remove("view__".$self->getId); + $cache->remove("view_1_".$self->getId); + $cache->remove("view__".$self->getId . '_ssl'); + $cache->remove("view_1_".$self->getId . '_ssl'); }; super(); }; diff --git a/lib/WebGUI/Asset/Wobject/Article.pm b/lib/WebGUI/Asset/Wobject/Article.pm index 355dfe652..d744b7635 100644 --- a/lib/WebGUI/Asset/Wobject/Article.pm +++ b/lib/WebGUI/Asset/Wobject/Article.pm @@ -290,7 +290,7 @@ See WebGUI::Asset::purgeCache() for details. override purgeCache => sub { my $self = shift; - $self->session->cache->delete("view_".$self->getId); + $self->session->cache->remove("view_".$self->getId); super(); }; diff --git a/lib/WebGUI/Asset/Wobject/Collaboration.pm b/lib/WebGUI/Asset/Wobject/Collaboration.pm index f6d48e4e5..656d265b1 100644 --- a/lib/WebGUI/Asset/Wobject/Collaboration.pm +++ b/lib/WebGUI/Asset/Wobject/Collaboration.pm @@ -1436,8 +1436,8 @@ override purgeCache => sub { my $self = shift; my $cache = $self->session->cache; eval { - $cache->delete("view_".$self->getId); - $cache->delete($self->_visitorCacheKey); + $cache->remove("view_".$self->getId); + $cache->remove($self->_visitorCacheKey); }; super(); }; diff --git a/lib/WebGUI/Asset/Wobject/Folder.pm b/lib/WebGUI/Asset/Wobject/Folder.pm index e176e9732..baa2102e3 100644 --- a/lib/WebGUI/Asset/Wobject/Folder.pm +++ b/lib/WebGUI/Asset/Wobject/Folder.pm @@ -190,7 +190,7 @@ See WebGUI::Asset::purgeCache() for details. override purgeCache => sub { my $self = shift; - $self->session->cache->delete("view_".$self->getId); + $self->session->cache->remove("view_".$self->getId); super(); }; diff --git a/lib/WebGUI/Asset/Wobject/HttpProxy.pm b/lib/WebGUI/Asset/Wobject/HttpProxy.pm index 7affd50e9..032d84541 100644 --- a/lib/WebGUI/Asset/Wobject/HttpProxy.pm +++ b/lib/WebGUI/Asset/Wobject/HttpProxy.pm @@ -270,8 +270,8 @@ override purgeCache => sub { my $self = shift; my $cache = $self->session->cache; eval { - $cache->delete($self->proxiedUrl."_URL"); - $cache->delete($self->proxiedUrl."_HEADER"); + $cache->remove($self->proxiedUrl."_URL"); + $cache->remove($self->proxiedUrl."_HEADER"); }; super(); }; diff --git a/lib/WebGUI/Asset/Wobject/MessageBoard.pm b/lib/WebGUI/Asset/Wobject/MessageBoard.pm index a7f188da8..a241a7191 100644 --- a/lib/WebGUI/Asset/Wobject/MessageBoard.pm +++ b/lib/WebGUI/Asset/Wobject/MessageBoard.pm @@ -72,7 +72,7 @@ See WebGUI::Asset::purgeCache() for details. override purgeCache => sub { my $self = shift; - $self->session->cache->delete("view_".$self->getId); + $self->session->cache->remove("view_".$self->getId); super(); }; diff --git a/lib/WebGUI/Asset/Wobject/MultiSearch.pm b/lib/WebGUI/Asset/Wobject/MultiSearch.pm index ff88000e1..1c342d421 100644 --- a/lib/WebGUI/Asset/Wobject/MultiSearch.pm +++ b/lib/WebGUI/Asset/Wobject/MultiSearch.pm @@ -82,7 +82,7 @@ See WebGUI::Asset::purgeCache() for details. override purgeCache => sub { my $self = shift; - eval{$self->session->cache->delete("view_".$self->getId)}; + eval{$self->session->cache->remove("view_".$self->getId)}; super(); }; diff --git a/lib/WebGUI/Asset/Wobject/SQLReport.pm b/lib/WebGUI/Asset/Wobject/SQLReport.pm index 114cd3546..63d42eb5a 100644 --- a/lib/WebGUI/Asset/Wobject/SQLReport.pm +++ b/lib/WebGUI/Asset/Wobject/SQLReport.pm @@ -559,7 +559,7 @@ See WebGUI::Asset::purgeCache() for details. override purgeCache => sub { my $self = shift; - eval{$self->session->cache->delete("view_".$self->getId)}; + $self->session->cache->remove("view_".$self->getId); super(); }; diff --git a/lib/WebGUI/Asset/Wobject/SyndicatedContent.pm b/lib/WebGUI/Asset/Wobject/SyndicatedContent.pm index f552dceb4..161de15a0 100644 --- a/lib/WebGUI/Asset/Wobject/SyndicatedContent.pm +++ b/lib/WebGUI/Asset/Wobject/SyndicatedContent.pm @@ -319,7 +319,7 @@ See WebGUI::Asset::purgeCache() for details. override purgeCache => sub { my $self = shift; - $self->session->cache->delete("view_".$self->getId); + $self->session->cache->remove("view_".$self->getId); super(); }; diff --git a/lib/WebGUI/Group.pm b/lib/WebGUI/Group.pm index d387d3673..14a7f39e3 100644 --- a/lib/WebGUI/Group.pm +++ b/lib/WebGUI/Group.pm @@ -126,7 +126,7 @@ not be added to any group. Groups may not be added to themselves. sub addGroups { my $self = shift; my $groups = shift; - $self->session->cache->delete($self->getId); + $self->session->cache->remove($self->getId); GROUP: foreach my $gid (@{$groups}) { next if ($gid eq '1'); next if ($gid eq $self->getId); @@ -233,7 +233,7 @@ sub clearCaches { my $groups = $self->getAllGroupsFor(); my $cache = $self->session->cache; foreach my $group ( $self->getId, @{ $groups } ) { - $cache->delete($group); + $cache->remove($group); } my $stow = $self->session->stow; $stow->delete("groupObj"); diff --git a/lib/WebGUI/Session/Scratch.pm b/lib/WebGUI/Session/Scratch.pm index 6b9405394..28e29555b 100644 --- a/lib/WebGUI/Session/Scratch.pm +++ b/lib/WebGUI/Session/Scratch.pm @@ -84,7 +84,7 @@ sub deleteAll { delete $self->{_data}; my $session = $self->session; my $id = $session->getId; - $session->cache->delete("sessionscratch_".$id); + $session->cache->remove("sessionscratch_".$id); $session->db->write("delete from userSessionScratch where sessionId=?", [$id]); } diff --git a/lib/WebGUI/Session/Var.pm b/lib/WebGUI/Session/Var.pm index 73a058172..ffcf60f68 100644 --- a/lib/WebGUI/Session/Var.pm +++ b/lib/WebGUI/Session/Var.pm @@ -71,7 +71,7 @@ sub end { my $self = shift; my $session = $self->session; my $id = $self->getId; - $session->cache->delete($id); + $session->cache->remove($id); $session->scratch->deleteAll; $session->db->write("delete from userSession where sessionId=?",[$id]); delete $session->{_user}; diff --git a/lib/WebGUI/User.pm b/lib/WebGUI/User.pm index 73c7b318c..ecf85a14e 100644 --- a/lib/WebGUI/User.pm +++ b/lib/WebGUI/User.pm @@ -1332,7 +1332,7 @@ Deletes this user object out of the cache. sub uncache { my $self = shift; - $self->session->cache->delete($self->userId); + $self->session->cache->remove($self->userId); } #----------------------------------------------------------------------------