Changeset 243

Timestamp:

06/07/09 17:54:41 (15 years ago)

Author:

nanardon

Message:

• cache schema to limit useless db access

File:

• LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/objects.pm (modified) (2 diffs)

LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/objects.pm

@@ -86 +86 @@
     my ($self, $for, $base) = @_;
     $base ||= $self->base;
-    my $sth = $base->db->prepare_cached(
+    if ($base->{_cache}{initial_fields}) {
+        return $base->{_cache}{initial_fields}
+    }
+    my $sth = $base->db->prepare(
         q{SELECT column_name FROM information_schema.columns
           WHERE table_name = ?}
@@ -100 +103 @@
     }
     my %fields = map { $_ => $_ } @res;
+    $base->{_cache}{initial_fields} = { %fields };
     \%fields
 }