Changeset 570 for LATMOS-Accounts
- Timestamp:
- 01/05/10 08:13:33 (15 years ago)
- Location:
- LATMOS-Accounts/lib/LATMOS/Accounts/Bases
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql.pm
r568 r570 98 98 $self->log(LA_DEBUG, 'DB::COMMIT'); 99 99 } 100 $self->{__cache} = undef; 100 101 $self->db->commit; 101 102 } … … 109 110 $self->log(LA_DEBUG, 'DB::ROLLBACK'); 110 111 } 112 $self->{__cache} = undef; 111 113 $self->db->rollback; 112 114 } -
LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/objects.pm
r568 r570 91 91 sub _inline_fields { 92 92 my ($self, $for, $base) = @_; 93 if ($base->{__cache}{$self->object_table}) { 94 return %{$base->{__cache}{$self->object_table}}; 95 } 93 96 my @res; 94 97 my $sth = $base->db->prepare( … … 105 108 } 106 109 my %fields = map { $_ => $_ } @res; 110 $base->{__cache}{$self->object_table} = \%fields; 107 111 %fields 108 112 } … … 122 126 my @attr; 123 127 if ($class->has_extended_attributes) { 128 if ($base->{__cache}{_extended_field}{$class}) { 129 return map { $_ => $_ } 130 @{$base->{__cache}{_extended_field}{$class}}; 131 } 124 132 my $sth = $base->db->prepare_cached( 125 133 sprintf( … … 132 140 push(@attr, $res->{canonical}); 133 141 } 142 $base->{__cache}{_extended_field}{$class} = \@attr; 134 143 return map { $_ => $_ } @attr; 135 144 } else {
Note: See TracChangeset
for help on using the changeset viewer.