httemplate/misc/inventory_item-move.cgi

   1 <% '',$cgi->redirect(popurl(2). "search/inventory_item.html?$browse_opts") %>
   2 <%init>
   3 die "access denied" unless $FS::CurrentUser::CurrentUser->access_right(
   4     [ 'Edit inventory', 'Edit global inventory' ]
   5   );
   6
   7
   8 my $browse_opts = join(';', map { $_.'='.$cgi->param($_) }
   9     qw( classnum avail )
  10     );
  11
  12
  13 my $move_agentnum;
  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
  19 } else {
  20   die "No action selected";
  21 }
  22
  23 foreach my $itemnum ( grep /^\d+$/, $cgi->param('itemnum') )
  24 {
  25   my $item = FS::inventory_item->by_key($itemnum) or next;
  26 #  UI disallows this
  27 #  die "Can't move assigned inventory item $itemnum" if $item->svcnum;
  28   my $error;
  29   if ( $cgi->param('move') ) {
  30     $item->agentnum($move_agentnum);
  31     $error = $item->replace;
  32   } elsif ( $cgi->param('delete') ) {
  33     $error = $item->delete;
  34   }
  35   die $error if $error;
  36 }
  37
  38 </%init>
  39