Changeset 155


Ignore:
Timestamp:
05/21/09 07:29:17 (15 years ago)
Author:
nanardon
Message:
  • remove factorized code
Location:
LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql
Files:
5 edited

Legend:

Unmodified
Added
Removed

  • LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/Cell.pm

    r147 r155  
    4343sub has_extended_attributes { 1 } 
    4444 
    45 sub _initial_fields { 
    46     my ($self, $for) = @_; 
    47     { 
    48         name => 'name', 
    49     } 
    50 } 
    51  
    52 sub _inline_fields { 
    53     my ($self, $for) = @_; 
    54  
    55     my %fields = ( 
    56         %{ $self->_initial_fields($for) }, 
    57     ); 
    58     \%fields; 
    59 } 
    60  
    6145sub _delayed_fields { 
    6246    my ($self)= @_; 

  • LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/Department.pm

    r147 r155  
    4343sub has_extended_attributes { 1 } 
    4444 
    45 sub _initial_fields { 
    46     my ($self, $for) = @_; 
    47     { 
    48         name => 'name', 
    49     } 
    50 } 
    51  
    52 sub _inline_fields { 
    53     my ($self, $for) = @_; 
    54  
    55     my %fields = ( 
    56         %{ $self->_initial_fields($for) }, 
    57     ); 
    58     \%fields; 
    59 } 
    60  
    6145sub _delayed_fields { 
    6246    my ($self)= @_; 

  • LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/Site.pm

    r133 r155  
    4343sub has_extended_attributes { 1 } 
    4444 
    45 sub _initial_fields { 
    46     my ($self, $for) = @_; 
    47     { 
    48         name => 'name', 
    49     } 
    50 } 
    51  
    52 sub _inline_fields { 
    53     my ($self, $for) = @_; 
    54  
    55     my %fields = ( 
    56         %{ $self->_initial_fields($for) }, 
    57     ); 
    58     \%fields; 
    59 } 
    60  
    6145sub _delayed_fields { 
    6246    my ($self)= @_; 

  • LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/Team.pm

    r147 r155  
    4343sub has_extended_attributes { 1 } 
    4444 
    45 sub _initial_fields { 
    46     my ($self, $for) = @_; 
    47     { 
    48         name => 'name', 
    49     } 
    50 } 
    51  
    52 sub _inline_fields { 
    53     my ($self, $for) = @_; 
    54  
    55     my %fields = ( 
    56         %{ $self->_initial_fields($for) }, 
    57     ); 
    58     \%fields; 
    59 } 
    60  
    6145sub _delayed_fields { 
    6246    my ($self)= @_; 

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

    r154 r155  
    7575 
    7676sub has_extended_attributes { 0 } 
     77 
     78sub _inline_fields { 
     79    my ($self, $for, $base) = @_; 
     80    $self->_initial_fields($for, $base) 
     81} 
    7782 
    7883sub _initial_fields { 
Note: See TracChangeset for help on using the changeset viewer.