Revision a9d8dd12
Von Thomas Heck vor etwa 11 Jahren hinzugefügt
| SL/DB/CustomVariable.pm | ||
|---|---|---|
| 7 | 7 |
|
| 8 | 8 |
use SL::DB::MetaSetup::CustomVariable; |
| 9 | 9 |
use SL::DB::CustomVariableValidity; |
| 10 |
use SL::DB::Customer; |
|
| 10 | 11 |
|
| 11 | 12 |
__PACKAGE__->meta->initialize; |
| 12 | 13 |
|
| ... | ... | |
| 20 | 21 |
goto &bool_value if $type eq 'boolean'; |
| 21 | 22 |
goto ×tamp_value if $type eq 'timestamp'; |
| 22 | 23 |
goto &number_value if $type eq 'number'; |
| 24 |
if ( $type eq 'customer' ) {
|
|
| 25 |
if ( defined($_[1]) ) {
|
|
| 26 |
goto &number_value; |
|
| 27 |
} |
|
| 28 |
else {
|
|
| 29 |
my $id = int($self->number_value); |
|
| 30 |
return $id ? SL::DB::Customer->new(id => $id)->load() : 0; |
|
| 31 |
} |
|
| 32 |
} |
|
| 23 | 33 |
goto &text_value; # text and select |
| 24 | 34 |
} |
| 25 | 35 |
|
Auch abrufbar als: Unified diff
SL::DB::CustomVariable::value an Customer angepasst
als getter gibt die Methode ein SL::DB::Customer-Objekt zurück.
als setter wird eine Customer-ID erwartet.