Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 2b82180a

Von Moritz Bunkus vor mehr als 10 Jahren hinzugefügt

  • ID 2b82180a2117342c28fdf913fa135ca0a1828aea
  • Vorgänger 3a476fcc
  • Nachfolger 927579ba

RDBO: Manager-Klasse für Vendor

Unterschiede anzeigen:

SL/DB/Vendor.pm
3 3 
use strict;
4 4 

  		




  5
  5
  
    
use SL::DB::MetaSetup::Vendor;


  		




  
  6
  
    
use SL::DB::Manager::Vendor;


  		




  6
  7
  
    
use SL::DB::Helper::TransNumberGenerator;


  		




  7
  8
  
    
use SL::DB::Helper::CustomVariables (


  		




  8
  9
  
    
  module      => 'CT',


  		




  ......




  27
  28
  
    
  },


  		




  28
  29
  
    
);


  		




  29
  30
  
    

  		




  30
  
  
    
__PACKAGE__->meta->make_manager_class;


  		




  31
  31
  
    
__PACKAGE__->meta->initialize;


  		




  32
  32
  
    

  		




  33
  33
  
    
__PACKAGE__->before_save('_before_save_set_vendornumber');


  		




  ......




  39
  39
  
    
  return 1;


  		




  40
  40
  
    
}


  		




  41
  41
  
    

  		




  
  42
  
    
sub displayable_name {


  		




  
  43
  
    
  my $self = shift;


  		




  
  44
  
    

  		




  
  45
  
    
  return join ' ', grep $_, $self->vendornumber, $self->name;


  		




  
  46
  
    
}


  		




  
  47
  
    

  		




  42
  48
  
    
sub is_customer { 0 };


  		




  43
  49
  
    
sub is_vendor   { 1 };


  		




  44
  50
  
    

  		












Auch abrufbar als:  Unified diff