Revision 321730c8
Von Moritz Bunkus vor fast 14 Jahren hinzugefügt
| SL/DB/Object.pm | ||
|---|---|---|
| 61 | 61 |
|
| 62 | 62 |
while (my ($attribute, $value) = each %attributes) {
|
| 63 | 63 |
my $type = lc($types{$attribute} || 'text');
|
| 64 |
$value = $type eq 'boolean' ? ($value ? 't' : 'f') |
|
| 65 |
: $text_column_types{$type} ? $value
|
|
| 66 |
: ($value || undef); |
|
| 64 |
$value = $type eq 'boolean' ? ($value ? 't' : 'f') |
|
| 65 |
: $text_column_types{$type} ? $value
|
|
| 66 |
: defined($value) && ($value eq '') ? undef |
|
| 67 |
: $value; |
|
| 67 | 68 |
$self->$attribute($value); |
| 68 | 69 |
} |
| 69 | 70 |
|
Auch abrufbar als: Unified diff
assign_attributes: nur leeren String und undef bei Zahlenspaletn auf NULL mappen, Wert 0 aber nicht