Revision acd55c9d
Von Bernd Bleßmann vor mehr als 1 Jahr hinzugefügt
| SL/DB/Shipto.pm | ||
|---|---|---|
| 50 | 50 |
# todo: consider cvars |
| 51 | 51 |
my @fields_to_consider = grep { !m{^ (?: itime | mtime | shipto_id | trans_id | shiptocp_gender | module ) $}x } map {$_->name} $self->meta->columns;
|
| 52 | 52 |
|
| 53 |
return all { trim($self->$_) eq '' } @fields_to_consider;
|
|
| 53 |
return all { (trim($self->$_)||'') eq '' } @fields_to_consider;
|
|
| 54 | 54 |
} |
| 55 | 55 |
|
| 56 | 56 |
sub detach {
|
Auch abrufbar als: Unified diff
S:D:Shipto: undef-Warnung vermeiden