Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 63cb5b41

Von Moritz Bunkus vor etwa 4 Jahren hinzugefügt

  • ID 63cb5b41d9b06d0b7f522ef154dd9f57ea428bae
  • Vorgänger 53db54a8
  • Nachfolger 2ae70bd4

Mandantenkonfiguration: Adress-Feld in einzelne Bestandteile aufgeteilt

Unterschiede anzeigen:

SL/DB/Default.pm
2 2 

  		




  3
  3
  
    
use strict;


  		




  4
  4
  
    

  		




  
  5
  
    
use Carp;


  		




  5
  6
  
    
use SL::DB::MetaSetup::Default;


  		




  6
  7
  
    

  		




  7
  8
  
    
__PACKAGE__->meta->initialize;


  		




  ......




  21
  22
  
    
  return SL::DB::Manager::Default->get_all(limit => 1)->[0];


  		




  22
  23
  
    
}


  		




  23
  24
  
    

  		




  
  25
  
    
sub address {


  		




  
  26
  
    
  # Compatibility function: back in the day there was only a single


  		




  
  27
  
    
  # address field.


  		




  
  28
  
    
  my $self = shift;


  		




  
  29
  
    

  		




  
  30
  
    
  croak("SL::DB::Default::address is a read-only accessor") if @_;


  		




  
  31
  
    

  		




  
  32
  
    
  my $zipcode_city = join ' ', grep { $_ } ($self->address_zipcode, $self->address_city);


  		




  
  33
  
    

  		




  
  34
  
    
  return join "\n", grep { $_ } ($self->address_street1, $self->address_street2, $zipcode_city, $self->address_country);


  		




  
  35
  
    
}


  		




  
  36
  
    

  		




  24
  37
  
    
1;


  		












Auch abrufbar als:  Unified diff