Changeset 1909 for trunk/LATMOS-Accounts/lib
- Timestamp:
- 01/04/17 02:39:08 (8 years ago)
- Location:
- trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql.pm
r1907 r1909 192 192 sub _derefObject { 193 193 my ($self, $otype, $oalias) = @_; 194 $oalias or return; 194 195 if (my ($aliasotype, $aliasoname, $aliasattr) = $oalias =~ m/^([^\/]+)\.([^\.]+)\.(.*)$/) { 195 196 my $attribute = $self->attribute($aliasotype, $aliasattr) or do { -
trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/objects.pm
r1908 r1909 730 730 my $refname = sprintf('%s.%s.%s', $self->type, $self->id, $attr); 731 731 my $attrref = "oalias=$refname"; 732 warn "$ref, $refname"; 732 733 733 foreach my $alias ($self->base->search_objects($ref, $attrref)) { 734 734 my $oalias = $self->base->GetAlias($ref, $alias) or next; 735 warn $oalias;736 735 $oalias->_update_aliases_cache; 737 736 $oalias->_update_aliases_ptr;
Note: See TracChangeset
for help on using the changeset viewer.