Changeset 250
- Timestamp:
- 06/09/09 14:46:46 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/objects.pm
r249 r250 86 86 my ($self, $for, $base) = @_; 87 87 $base ||= $self->base; 88 if ($base->{_cache}{initial_fields}) {89 return $base->{_cache}{initial_fields}90 }91 88 my $sth = $base->db->prepare( 92 89 q{SELECT column_name FROM information_schema.columns … … 103 100 } 104 101 my %fields = map { $_ => $_ } @res; 105 $base->{_cache}{initial_fields} = { %fields };106 102 \%fields 107 103 }
Note: See TracChangeset
for help on using the changeset viewer.