Revision cd16e602
Von Sven Schöling vor mehr als 16 Jahren hinzugefügt
| bin/mozilla/ic.pl | ||
|---|---|---|
| 30 | 30 |
# Inventory Control module |
| 31 | 31 |
# |
| 32 | 32 |
#====================================================================== |
| 33 |
#$locale->text('ea');
|
|
| 34 | 33 |
|
| 35 | 34 |
use POSIX qw(strftime); |
| 36 | 35 |
use List::Util qw(max); |
| ... | ... | |
| 60 | 59 |
# type=submit $locale->text('Edit Part')
|
| 61 | 60 |
# type=submit $locale->text('Edit Service')
|
| 62 | 61 |
# type=submit $locale->text('Edit Assembly')
|
| 62 |
# $locale->text('Parts')
|
|
| 63 |
# $locale->text('Services')
|
|
| 64 |
# $locale->text('Inventory quantity must be zero before you can set this part obsolete!')
|
|
| 65 |
# $locale->text('Inventory quantity must be zero before you can set this assembly obsolete!')
|
|
| 66 |
# $locale->text('Part Number missing!')
|
|
| 67 |
# $locale->text('Service Number missing!')
|
|
| 68 |
# $locale->text('Assembly Number missing!')
|
|
| 69 |
# $locale->text('ea');
|
|
| 63 | 70 |
|
| 64 | 71 |
# end of main |
| 65 | 72 |
|
| ... | ... | |
| 70 | 77 |
|
| 71 | 78 |
$form->{title} = $locale->text('Add ' . ucfirst $form->{item});
|
| 72 | 79 |
|
| 73 |
$form->{callback} =
|
|
| 74 |
"$form->{script}?action=add&item=$form->{item}"
|
|
| 80 |
$form->{callback} = "$form->{script}?action=add&item=$form->{item}"
|
|
| 75 | 81 |
unless $form->{callback};
|
| 76 | 82 |
|
| 77 | 83 |
$form->{"unit_changeable"} = 1;
|
| ... | ... | |
| 88 | 94 |
|
| 89 | 95 |
$auth->assert('part_service_assembly_edit');
|
| 90 | 96 |
|
| 91 |
# switch for backward sorting |
|
| 92 |
$form->{revers} = 0;
|
|
| 93 |
|
|
| 94 |
# memory for which table was sort at last time |
|
| 95 |
$form->{lastsort} = "";
|
|
| 96 |
|
|
| 97 |
# counter for added entries to top100 |
|
| 98 |
$form->{ndxs_counter} = 0;
|
|
| 99 |
|
|
| 100 |
# $locale->text('Parts')
|
|
| 101 |
# $locale->text('Services')
|
|
| 97 |
$form->{revers} = 0; # switch for backward sorting
|
|
| 98 |
$form->{lastsort} = ""; # memory for which table was sort at last time
|
|
| 99 |
$form->{ndxs_counter} = 0; # counter for added entries to top100
|
|
| 102 | 100 |
|
| 103 | 101 |
my $is_service = $form->{searchitems} eq 'service';
|
| 104 | 102 |
my $is_assembly = $form->{searchitems} eq 'assembly';
|
| ... | ... | |
| 1886 | 1884 |
$form->error($locale->text('Description must not be empty!')) unless $form->{description};
|
| 1887 | 1885 |
$form->error($locale->text('Partnumber must not be set to empty!')) if $form->{id} && !$form->{partnumber};
|
| 1888 | 1886 |
|
| 1889 |
# expand dynamic strings |
|
| 1890 |
# $locale->text('Inventory quantity must be zero before you can set this part obsolete!')
|
|
| 1891 |
# $locale->text('Inventory quantity must be zero before you can set this assembly obsolete!')
|
|
| 1892 |
# $locale->text('Part Number missing!')
|
|
| 1893 |
# $locale->text('Service Number missing!')
|
|
| 1894 |
# $locale->text('Assembly Number missing!')
|
|
| 1895 |
|
|
| 1896 | 1887 |
# save part |
| 1897 | 1888 |
$lxdebug->message($LXDebug::DEBUG1, "ic.pl: sellprice in save = $form->{sellprice}\n");
|
| 1898 | 1889 |
if (IC->save(\%myconfig, \%$form) == 3) {
|
Auch abrufbar als: Unified diff
Minimale Kosmetik