httemplate/misc/inventory_item-move.cgi

   1 <% '',$cgi->redirect(popurl(2). "search/inventory_item.html?$browse_opts") %>
   2 <%init>
   3
   4 # Shamelessly copied from misc/cust_attachment.cgi.
   5
   6 my $browse_opts = join(';', map { $_.'='.$cgi->param($_) }
   7     qw( classnum avail )
   8     );
   9
  10 my $move_agentnum = $cgi->param('move_agentnum') or
  11   die "No agent selected";
  12 foreach my $itemnum (
  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;
  16   my $error;
  17   $item->agentnum($move_agentnum);
  18   $error = $item->replace;
  19   die $error if $error;
  20 }
  21
  22 </%init>
  23