#=====================================================================
# SQL-Ledger, Accounting
# Copyright (c) 2001
#
# Author: Dieter Simader
# Email: dsimader@sql-ledger.org
# Web: http://www.sql-ledger.org
#
# Contributors:
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
#======================================================================
#
# Inventory Control module
#
#======================================================================
use SL::IC;
require "$form->{path}/io.pl";
1;
# end of main
sub add {
%label = ( part => 'Part',
service => 'Service',
assembly => 'Assembly',
labor => 'Labor/Overhead' );
# $locale->text('Add Part')
# $locale->text('Add Service')
# $locale->text('Add Assembly')
# $locale->text('Add Labor/Overhead')
$label = "Add $label{$form->{item}}";
$form->{title} = $locale->text($label);
$form->{callback} = "$form->{script}?action=add&item=$form->{item}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}" unless $form->{callback};
$form->{orphaned} = 1;
if ($form->{previousform}) {
$form->{callback} = "";
}
&link_part;
&display_form;
}
sub search {
$form->get_partsgroup(\%myconfig, { all => 0, searchitems => $form->{searchitems}});
IC->get_warehouses(\%myconfig, \%$form) unless $form->{searchitems} =~ /(service|labor)/;
if (@{ $form->{all_partsgroup} }) {
$partsgroup = qq|