projects
/
kivitendo-erp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
ActionBar: Verwendung undefinierter Werte in Tests vermeiden
[kivitendo-erp.git]
/
SL
/
DB
/
CustomVariable.pm
diff --git
a/SL/DB/CustomVariable.pm
b/SL/DB/CustomVariable.pm
index
46428fe
..
26ff748
100644
(file)
--- a/
SL/DB/CustomVariable.pm
+++ b/
SL/DB/CustomVariable.pm
@@
-4,6
+4,9
@@
package SL::DB::CustomVariable;
use strict;
package SL::DB::CustomVariable;
use strict;
+
+use List::MoreUtils qw(any);
+
use SL::DB::MetaSetup::CustomVariable;
__PACKAGE__->meta->initialize;
use SL::DB::MetaSetup::CustomVariable;
__PACKAGE__->meta->initialize;
@@
-36,7
+39,9
@@
sub parse_value {
my $unparsed = delete $self->{__unparsed_value};
if ($type =~ m{^(?:customer|vendor|part|number)}) {
my $unparsed = delete $self->{__unparsed_value};
if ($type =~ m{^(?:customer|vendor|part|number)}) {
- return $self->number_value(defined($unparsed) ? $unparsed * 1 : undef);
+ return $self->number_value(!defined($unparsed) ? undef
+ : (any { ref($unparsed) eq $_ } qw(SL::DB::Customer SL::DB::Vendor SL::DB::Part)) ? $unparsed->id * 1
+ : $unparsed * 1);
}
if ($type =~ m{^(?:bool)}) {
}
if ($type =~ m{^(?:bool)}) {