-my $move_agentnum = $cgi->param('move_agentnum') or
- die "No agent selected";
-foreach my $itemnum (
- map { /^itemnum(\d+)$/; $1; } grep /^itemnum\d+$/, $cgi->param ) {
- my $item = qsearchs('inventory_item', { 'itemnum' => $itemnum });
+
+my $move_agentnum;
+if ( $cgi->param('move') ) {
+ $move_agentnum = $cgi->param('move_agentnum') or
+ die "No agent selected";
+} elsif ( $cgi->param('delete') ) {
+ # don't need it in this case
+} else {
+ die "No action selected";
+}
+
+foreach my $itemnum ( grep /^\d+$/, $cgi->param('itemnum') )
+{
+ my $item = FS::inventory_item->by_key($itemnum) or next;
+# UI disallows this