Interchange data tag cache

data-tag-cache.patch

From [email protected] Tue Apr  2 12:02:15 2002
Date: Fri, 22 Mar 2002 17:05:37 -0600
From: pbg <[email protected]>
To: [email protected]
Subject: diff

--- X   Fri Mar 22 17:03:55 2002
+++ lib/Vend/Data.pm    Fri Mar 22 17:03:00 2002
@@ -191,7 +191,9 @@
     return '' unless defined $db->test_column($field_name);
        $key = $db->foreign($key, $foreign) if $foreign;
     return '' unless $db->test_record($key);
-       return $db->field($key, $field_name);
+       my $cache = \$::Instance->{data}{$db}{$key}{$field_name};
+    $$cache = $db->field($key, $field_name) unless defined $$cache;
+       return $$cache;
 }
 
 sub database_row {
@@ -296,6 +298,7 @@
        elsif ($append) {
                $value = $db->field($key, $field_name) . $value;
        }
+       $::Instance->{data}{$db}{$key}{$field_name} = $value;
     return $db->set_field($key, $field_name, $value);
 }