| … | |
… | |
| 234 | my $cnt; |
234 | my $cnt; |
| 235 | for ($who->inv) { |
235 | for ($who->inv) { |
| 236 | if ($_->name () =~ /^(bag|package|carton) T: \Q$arguments\E F: (\S+)$/) { |
236 | if ($_->name () =~ /^(bag|package|carton) T: \Q$arguments\E F: (\S+)$/) { |
| 237 | $_->name ("$1 F: $2 T: $arguments"); |
237 | $_->name ("$1 F: $2 T: $arguments"); |
| 238 | $storage->insert ($_, 2, 2); |
238 | $storage->insert ($_, 2, 2); |
| 239 | $who->esrv_del_item ($_->count); |
|
|
| 240 | $cnt++; |
239 | $cnt++; |
| 241 | } |
240 | } |
| 242 | } |
241 | } |
| 243 | |
242 | |
| 244 | if ($cnt) { |
243 | if ($cnt) { |
