Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision e1bf173b

Von Sven Schöling vor etwa 13 Jahren hinzugefügt

  • ID e1bf173bae820584e8bafdc01ebe2e7d7537a59c
  • Vorgänger 41ce2d95
  • Nachfolger 1b65e282

CVars als Object Mixin.

Conflicts:

SL/DB/Customer.pm
        SL/DB/Part.pm
        SL/DB/Vendor.pm

Unterschiede anzeigen:

SL/DB/CustomVariable.pm
10 10 
# Creates get_all, get_all_count, get_all_iterator, delete_all and update_all.
11 11 
__PACKAGE__->meta->make_manager_class;
12 12 

  		




  
  13
  
    
sub value {


  		




  
  14
  
    
  my $self = $_[0];


  		




  
  15
  
    
  my $type = $self->config->type;


  		




  
  16
  
    

  		




  
  17
  
    
  goto &bool_value      if $type eq 'boolean';


  		




  
  18
  
    
  goto &timestamp_value if $type eq 'timestamp';


  		




  
  19
  
    
  goto &number_value    if $type eq 'number';


  		




  
  20
  
    
  goto &text_value; # text and select


  		




  
  21
  
    
}


  		




  
  22
  
    

  		




  13
  23
  
    
1;


  		












Auch abrufbar als:  Unified diff