Revision db7c3a52
Von Sven Schöling vor etwa 13 Jahren hinzugefügt
| SL/CVar.pm | ||
|---|---|---|
| 3 | 3 |
use strict; |
| 4 | 4 |
|
| 5 | 5 |
use List::Util qw(first); |
| 6 |
use Scalar::Util qw(blessed); |
|
| 6 | 7 |
use Data::Dumper; |
| 7 | 8 |
|
| 8 | 9 |
use SL::DBUtils; |
| ... | ... | |
| 706 | 707 |
return sub { !$invalids{+shift} };
|
| 707 | 708 |
} |
| 708 | 709 |
|
| 710 |
sub parse {
|
|
| 711 |
my ($self, $value, $config) = @_; |
|
| 712 |
|
|
| 713 |
return $::form->parse_amount(\%::myconfig, $value) if $config->{type} eq 'number';
|
|
| 714 |
return DateTime->from_lxoffice($value) if $config->{type} eq 'date';
|
|
| 715 |
return !ref $value ? SL::DB::Manager::Customer->find_by(id => $value * 1) : $value if $config->{type} eq 'customer';
|
|
| 716 |
return $value; |
|
| 717 |
} |
|
| 718 |
|
|
| 709 | 719 |
1; |
| 710 | 720 |
|
| 711 | 721 |
__END__ |
Auch abrufbar als: Unified diff
cvars in aufträgen bei update korrekt parsen und formatieren