| … | |
… | |
| 190 | $nr = $items if $nr > $items; |
190 | $nr = $items if $nr > $items; |
| 191 | |
191 | |
| 192 | if ($nr > 0) { |
192 | if ($nr > 0) { |
| 193 | $obj->decrease ($nr); |
193 | $obj->decrease ($nr); |
| 194 | |
194 | |
| 195 | my $out = cf::object::new ($output_arch); |
195 | my $out = cf::object::generate ($output_arch, $self); |
| 196 | $out->nrof ($nr); |
196 | $out->nrof ($nr); |
| 197 | $out->insert_at ($self, $self); |
197 | $out->insert_at ($self, $self); |
| 198 | |
198 | |
| 199 | if ($nr >= $mitems) { |
199 | if ($nr >= $mitems) { |
| 200 | $who->{$tag . '_ts'} = time; |
200 | $who->{$tag . '_ts'} = time; |
