diff options
Diffstat (limited to 'httemplate/misc/inventory_item-move.cgi')
-rw-r--r-- | httemplate/misc/inventory_item-move.cgi | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/httemplate/misc/inventory_item-move.cgi b/httemplate/misc/inventory_item-move.cgi new file mode 100644 index 0000000..4d53beb --- /dev/null +++ b/httemplate/misc/inventory_item-move.cgi @@ -0,0 +1,23 @@ +<% '',$cgi->redirect(popurl(2). "search/inventory_item.html?$browse_opts") %> +<%init> + +# Shamelessly copied from misc/cust_attachment.cgi. + +my $browse_opts = join(';', map { $_.'='.$cgi->param($_) } + qw( classnum avail ) + ); + +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 }); +# die "Can't move assigned inventory item $itemnum" if $item->svcnum; + my $error; + $item->agentnum($move_agentnum); + $error = $item->replace; + die $error if $error; +} + +</%init> + |