#===================================================================== # SQL-Ledger, Accounting # Copyright (c) 2001 # # Author: Dieter Simader # Email: dsimader@sql-ledger.org # Web: http://www.sql-ledger.org # # # 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 { $form->{title} = $locale->text('Add ' . ucfirst $form->{item}); $form->{callback} = "$form->{script}?action=add&item=$form->{item}&path=$form->{path}&login=$form->{login}&password=$form->{password}" unless $form->{callback}; $form->{unit} = ($form->{item} eq 'service') ? $locale->text('hr') : $locale->text('ea'); &link_part; &display_form; } sub search { $form->{title} = (ucfirst $form->{searchitems})."s"; $form->{title} = $locale->text($form->{title}); # $locale->text('Parts') # $locale->text('Services') unless ($form->{searchitems} eq 'service') { $onhand = qq| |.$locale->text('On Hand').qq| |.$locale->text('Short').qq| |; $makemodel = qq|
|
|.$locale->text('From').qq| | |.$locale->text('to').qq| | |.$locale->text('Closed').qq| |
---|
|
|