|
Lines 186-192
sub status_alias {
Link Here
|
| 186 |
# We need a way of accepting implied undef, so we can nullify |
186 |
# We need a way of accepting implied undef, so we can nullify |
| 187 |
# the status_alias column, when called from $self->status |
187 |
# the status_alias column, when called from $self->status |
| 188 |
my $val = $newval eq "-1" ? undef : $newval; |
188 |
my $val = $newval eq "-1" ? undef : $newval; |
| 189 |
my $newval = $self->SUPER::status_alias($newval); |
189 |
my $newval = $self->SUPER::status_alias($val); |
| 190 |
if ($newval) { |
190 |
if ($newval) { |
| 191 |
return $newval; |
191 |
return $newval; |
| 192 |
} else { |
192 |
} else { |
| 193 |
- |
|
|