1 <% '',$cgi->redirect(popurl(2). "search/inventory_item.html?$browse_opts") %>
3 die "access denied" unless $FS::CurrentUser::CurrentUser->access_right(
4 [ 'Edit inventory', 'Edit global inventory' ]
8 my $browse_opts = join(';', map { $_.'='.$cgi->param($_) }
14 if ( $cgi->param('move') ) {
15 $move_agentnum = $cgi->param('move_agentnum') or
16 die "No agent selected";
17 } elsif ( $cgi->param('delete') ) {
18 # don't need it in this case
20 die "No action selected";
23 foreach my $itemnum ( grep /^\d+$/, $cgi->param('itemnum') )
25 my $item = FS::inventory_item->by_key($itemnum) or next;
27 # die "Can't move assigned inventory item $itemnum" if $item->svcnum;
29 if ( $cgi->param('move') ) {
30 $item->agentnum($move_agentnum);
31 $error = $item->replace;
32 } elsif ( $cgi->param('delete') ) {
33 $error = $item->delete;