Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 7c667c90

Von Sven Schöling vor mehr als 10 Jahren hinzugefügt

warnings: uninitialized in eq

Unterschiede anzeigen:

SL/DB/Customer.pm
35 35 
sub _before_save_set_customernumber {
36 36 
  my ($self) = @_;
37 37 

  		




  38
  
  
    
  $self->create_trans_number if $self->customernumber eq '';


  		




  
  38
  
    
  $self->create_trans_number if !defined $self->customernumber || $self->customernumber eq '';


  		




  39
  39
  
    
  return 1;


  		




  40
  40
  
    
}


  		




  41
  41
  
    

  		












  

    
      SL/DB/Vendor.pm
    
  





  35
  35
  
    
sub _before_save_set_vendornumber {


  		




  36
  36
  
    
  my ($self) = @_;


  		




  37
  37
  
    

  		




  38
  
  
    
  $self->create_trans_number if $self->vendornumber eq '';


  		




  
  38
  
    
  $self->create_trans_number if !defined $self->vendornumber || $self->vendornumber eq '';


  		




  39
  39
  
    
  return 1;


  		




  40
  40
  
    
}


  		




  41
  41
  
    

  		












Auch abrufbar als:  Unified diff