… | … | ||
---|---|---|---|
12 | my ($self) = @_; | 12 | my ($self) = @_; |
13 | 13 | ||
14 | my $desc = | 14 | my $desc = |
15 | $self->{nrof} < 2 | 15 | $self->{nrof} < 2 |
16 | ? $self->{name} | 16 | ? $self->{name} |
17 | : "$self->{nrof} × $self->{name_pl}"; | 17 | : "$self->{nrof} $self->{name_pl}"; |
18 | 18 | ||
19 | $self->{flags} & F_OPEN | 19 | $self->{flags} & F_OPEN |
20 | and $desc .= " (open)"; | 20 | and $desc .= " (open)"; |
21 | $self->{flags} & F_APPLIED | 21 | $self->{flags} & F_APPLIED |
22 | and $desc .= " (applied)"; | 22 | and $desc .= " (applied)"; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |