From 5c36973aa0fa8ca9732fcd7f1c6bf6c75e6f62f6 Mon Sep 17 00:00:00 2001
From: Doug Bell <doug@plainblack.com>
Date: Mon, 19 Apr 2010 18:58:04 -0500
Subject: [PATCH] cache: s/flush/clear/

---
 lib/WebGUI/AssetLineage.pm       | 2 +-
 lib/WebGUI/Operation/Cache.pm    | 2 +-
 lib/WebGUI/Operation/Settings.pm | 2 +-
 lib/WebGUI/Session/Scratch.pm    | 4 ++--
 4 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/lib/WebGUI/AssetLineage.pm b/lib/WebGUI/AssetLineage.pm
index 59ef0bec5..7d4441a69 100644
--- a/lib/WebGUI/AssetLineage.pm
+++ b/lib/WebGUI/AssetLineage.pm
@@ -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 . '%']);
diff --git a/lib/WebGUI/Operation/Cache.pm b/lib/WebGUI/Operation/Cache.pm
index 1f231d1e1..11171fc44 100644
--- a/lib/WebGUI/Operation/Cache.pm
+++ b/lib/WebGUI/Operation/Cache.pm
@@ -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);
 }
diff --git a/lib/WebGUI/Operation/Settings.pm b/lib/WebGUI/Operation/Settings.pm
index 3961ff061..7656fd906 100644
--- a/lib/WebGUI/Operation/Settings.pm
+++ b/lib/WebGUI/Operation/Settings.pm
@@ -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") });
diff --git a/lib/WebGUI/Session/Scratch.pm b/lib/WebGUI/Session/Scratch.pm
index 28e29555b..01e71df91 100644
--- a/lib/WebGUI/Session/Scratch.pm
+++ b/lib/WebGUI/Session/Scratch.pm
@@ -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]);
 }