1 <% '',$cgi->redirect(popurl(2). "search/inventory_item.html?$browse_opts") %>
4 # Shamelessly copied from misc/cust_attachment.cgi.
6 my $browse_opts = join(';', map { $_.'='.$cgi->param($_) }
10 my $move_agentnum = $cgi->param('move_agentnum') or
11 die "No agent selected";
13 map { /^itemnum(\d+)$/; $1; } grep /^itemnum\d+$/, $cgi->param ) {
14 my $item = qsearchs('inventory_item', { 'itemnum' => $itemnum });
15 # die "Can't move assigned inventory item $itemnum" if $item->svcnum;
17 $item->agentnum($move_agentnum);
18 $error = $item->replace;