[Patches] [PATCH] Bug 7276 : Follow up, adding a sub to clear the cache

koha-patchbot at kohaaloha.com koha-patchbot at kohaaloha.com
Wed Dec 7 11:10:02 NZDT 2011


From: Chris Cormack <chrisc at catalyst.net.nz>
Date: Wed, 7 Dec 2011 11:07:23 +1300
Subject: [PATCH] Bug 7276 : Follow up, adding a sub to clear the cache

---
 C4/SQLHelper.pm |   18 ++++++++++++++++++
 1 files changed, 18 insertions(+), 0 deletions(-)

diff --git a/C4/SQLHelper.pm b/C4/SQLHelper.pm
index 900e40d..c721586 100644
--- a/C4/SQLHelper.pm
+++ b/C4/SQLHelper.pm
@@ -54,6 +54,7 @@ BEGIN {
 	SearchInTable
 	UpdateInTable
 	GetPrimaryKeys
+        clear_columns_cache
 );
 	%EXPORT_TAGS = ( all =>[qw( InsertInTable DeleteInTable SearchInTable UpdateInTable GetPrimaryKeys)]
 				);
@@ -252,6 +253,23 @@ sub GetPrimaryKeys($) {
 	return  grep { $hash_columns->{$_}->{'Key'} =~/PRI/i}  keys %$hash_columns;
 }
 
+
+=head2 clear_columns_cache
+                            
+  C4::SQLHelper->clear_columns_cache();
+                
+cleans the internal cache of sysprefs. Please call this method if
+you update a tables structure. Otherwise, your new changes
+will not be seen by this process.
+    
+=cut
+
+sub clear_columns_cache {               
+    %$hashref = ();
+}
+
+
+
 =head2 _get_columns
 
     _get_columns($tablename)
-- 
1.7.5.4


More information about the Patches mailing list