Revision 273b5e04
Von Moritz Bunkus vor etwa 10 Jahren hinzugefügt
| SL/Presenter/CustomerVendor.pm | ||
|---|---|---|
| 40 | 40 |
my ($self, $name, $value, %params) = @_; |
| 41 | 41 |
|
| 42 | 42 |
croak 'Unknown "type" parameter' unless $params{type} =~ m{^(?:customer|vendor)$};
|
| 43 |
croak 'Unknown value class' if $value && (ref($value) !~ m{^SL::DB::(?:Customer|Vendor)$});
|
|
| 43 |
croak 'Unknown value class' if $value && ref($value) && (ref($value) !~ m{^SL::DB::(?:Customer|Vendor)$});
|
|
| 44 | 44 |
|
| 45 | 45 |
if ($value && !ref $value) {
|
| 46 | 46 |
my $class = $params{type} eq 'customer' ? 'SL::DB::Manager::Customer' : 'SL::DB::Manager::Vendor';
|
Auch abrufbar als: Unified diff
CustomerVendorPicker: ref($value) nur prüfen, wenn es tatsächlich ein Objekt ist
…und nicht schlicht die ID eines Objektes.