Revision 8c7e4493
Von Moritz Bunkus vor mehr als 16 Jahren hinzugefügt
| bin/mozilla/ic.pl | ||
|---|---|---|
| 65 | 65 |
sub add {
|
| 66 | 66 |
$lxdebug->enter_sub(); |
| 67 | 67 |
|
| 68 |
$auth->assert('part_service_assembly_edit');
|
|
| 69 |
|
|
| 68 | 70 |
$form->{title} = $locale->text('Add ' . ucfirst $form->{item});
|
| 69 | 71 |
|
| 70 | 72 |
$form->{callback} =
|
| 71 |
"$form->{script}?action=add&item=$form->{item}&login=$form->{login}&password=$form->{password}"
|
|
| 73 |
"$form->{script}?action=add&item=$form->{item}"
|
|
| 72 | 74 |
unless $form->{callback};
|
| 73 | 75 |
|
| 74 | 76 |
$form->{"unit_changeable"} = 1;
|
| ... | ... | |
| 83 | 85 |
sub search {
|
| 84 | 86 |
$lxdebug->enter_sub(); |
| 85 | 87 |
|
| 88 |
$auth->assert('part_service_assembly_edit');
|
|
| 89 |
|
|
| 86 | 90 |
# switch for backward sorting |
| 87 | 91 |
$form->{revers} = 0;
|
| 88 | 92 |
|
| ... | ... | |
| 116 | 120 |
sub search_update_prices {
|
| 117 | 121 |
$lxdebug->enter_sub(); |
| 118 | 122 |
|
| 123 |
$auth->assert('part_service_assembly_edit');
|
|
| 124 |
|
|
| 119 | 125 |
my $pricegroups = IC->get_pricegroups(\%myconfig, \%$form); |
| 120 | 126 |
|
| 121 | 127 |
$form->header; |
| ... | ... | |
| 128 | 134 |
sub confirm_price_update {
|
| 129 | 135 |
$lxdebug->enter_sub(); |
| 130 | 136 |
|
| 137 |
$auth->assert('part_service_assembly_edit');
|
|
| 138 |
|
|
| 131 | 139 |
$form->{nextsub} = "update_prices";
|
| 132 | 140 |
$form->header; |
| 133 | 141 |
|
| ... | ... | |
| 141 | 149 |
sub update_prices {
|
| 142 | 150 |
$lxdebug->enter_sub(); |
| 143 | 151 |
|
| 152 |
$auth->assert('part_service_assembly_edit');
|
|
| 153 |
|
|
| 144 | 154 |
if (IC->update_prices(\%myconfig, \%$form)) {
|
| 145 | 155 |
$form->redirect($form->{update_count} . $locale->text('prices updated!'));
|
| 146 | 156 |
} else {
|
| ... | ... | |
| 153 | 163 |
sub choice {
|
| 154 | 164 |
$lxdebug->enter_sub(); |
| 155 | 165 |
|
| 166 |
$auth->assert('part_service_assembly_edit');
|
|
| 167 |
|
|
| 156 | 168 |
our ($j, $lastndx); |
| 157 | 169 |
my ($totop100); |
| 158 | 170 |
|
| ... | ... | |
| 160 | 172 |
|
| 161 | 173 |
$form->header; |
| 162 | 174 |
|
| 163 |
push @custom_hiddens, qw(login password searchitems title bom titel revers lastsort sort ndxs_counter extras);
|
|
| 175 |
push @custom_hiddens, qw(searchitems title bom titel revers lastsort sort ndxs_counter extras); |
|
| 164 | 176 |
push @custom_hiddens, qw(itemstatus l_linetotal l_partnumber l_description l_onhand l_unit l_sellprice l_linetotalsellprice); |
| 165 | 177 |
my @HIDDENS = ( |
| 166 | 178 |
+{ name => 'row', value => $j },
|
| ... | ... | |
| 222 | 234 |
sub list {
|
| 223 | 235 |
$lxdebug->enter_sub(); |
| 224 | 236 |
|
| 237 |
$auth->assert('part_service_assembly_edit');
|
|
| 238 |
|
|
| 225 | 239 |
our ($lastndx); |
| 226 | 240 |
our ($partnumber, $description, $unit, $sellprice, $soldtotal); |
| 227 | 241 |
|
| ... | ... | |
| 282 | 296 |
<br> |
| 283 | 297 |
|
| 284 | 298 |
|
| 285 |
<input type=hidden name=login value=$form->{login}>
|
|
| 286 |
<input type=hidden name=password value=$form->{password}>
|
|
| 287 |
|
|
| 288 | 299 |
<input type=hidden name=itemstatus value="$form->{itemstatus}">
|
| 289 | 300 |
<input type=hidden name=l_linetotal value="$form->{l_linetotal}">
|
| 290 | 301 |
<input type=hidden name=l_partnumber value="$form->{l_partnumber}">
|
| ... | ... | |
| 346 | 357 |
sub top100 {
|
| 347 | 358 |
$lxdebug->enter_sub(); |
| 348 | 359 |
|
| 360 |
$auth->assert('part_service_assembly_edit');
|
|
| 361 |
|
|
| 349 | 362 |
if ($form->{ndx}) {
|
| 350 | 363 |
$form->{ndxs_counter}++;
|
| 351 | 364 |
|
| ... | ... | |
| 367 | 380 |
sub addtop100 {
|
| 368 | 381 |
$lxdebug->enter_sub(); |
| 369 | 382 |
|
| 383 |
$auth->assert('part_service_assembly_edit');
|
|
| 384 |
|
|
| 370 | 385 |
my ($revers, $lastsort, $callback, $option, $description, $sameitem, |
| 371 | 386 |
$partnumber, $unit, $sellprice, $soldtotal, $totop100, $onhand, $align); |
| 372 | 387 |
my (@column_index, %column_header, %column_data); |
| ... | ... | |
| 396 | 411 |
} #fi |
| 397 | 412 |
|
| 398 | 413 |
$callback = |
| 399 |
"$form->{script}?action=top100&login=$form->{login}&password=$form->{password}&searchitems=$form->{searchitems}&itemstatus=$form->{itemstatus}&bom=$form->{bom}&l_linetotal=$form->{l_linetotal}&title="
|
|
| 414 |
"$form->{script}?action=top100&searchitems=$form->{searchitems}&itemstatus=$form->{itemstatus}&bom=$form->{bom}&l_linetotal=$form->{l_linetotal}&title="
|
|
| 400 | 415 |
. $form->escape($form->{title}, 1);
|
| 401 | 416 |
|
| 402 | 417 |
# if we have a serialnumber limit search |
| ... | ... | |
| 823 | 838 |
|
| 824 | 839 |
$column_data{invnumber} =
|
| 825 | 840 |
($ref->{module} ne 'oe')
|
| 826 |
? "<td><a href=$ref->{module}.pl?action=edit&type=invoice&id=$ref->{trans_id}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{invnumber}</a></td>"
|
|
| 841 |
? "<td><a href=$ref->{module}.pl?action=edit&type=invoice&id=$ref->{trans_id}&callback=$callback>$ref->{invnumber}</a></td>"
|
|
| 827 | 842 |
: "<td>$ref->{invnumber}</td>";
|
| 828 | 843 |
$column_data{ordnumber} =
|
| 829 | 844 |
($ref->{module} eq 'oe')
|
| 830 |
? "<td><a href=$ref->{module}.pl?action=edit&type=$ref->{type}&id=$ref->{trans_id}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{ordnumber}</a></td>"
|
|
| 845 |
? "<td><a href=$ref->{module}.pl?action=edit&type=$ref->{type}&id=$ref->{trans_id}&callback=$callback>$ref->{ordnumber}</a></td>"
|
|
| 831 | 846 |
: "<td>$ref->{ordnumber}</td>";
|
| 832 | 847 |
$column_data{quonumber} =
|
| 833 | 848 |
($ref->{module} eq 'oe' && !$ref->{ordnumber})
|
| 834 |
? "<td><a href=$ref->{module}.pl?action=edit&type=$ref->{type}&id=$ref->{trans_id}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{quonumber}</a></td>"
|
|
| 849 |
? "<td><a href=$ref->{module}.pl?action=edit&type=$ref->{type}&id=$ref->{trans_id}&callback=$callback>$ref->{quonumber}</a></td>"
|
|
| 835 | 850 |
: "<td>$ref->{quonumber}</td>";
|
| 836 | 851 |
|
| 837 | 852 |
$column_data{name} = "<td>$ref->{name}</td>";
|
| ... | ... | |
| 903 | 918 |
|
| 904 | 919 |
<form method=post action=$form->{script}>
|
| 905 | 920 |
|
| 906 |
<input type=hidden name=login value=$form->{login}>
|
|
| 907 |
<input type=hidden name=password value=$form->{password}>
|
|
| 908 |
|
|
| 909 | 921 |
<input type=hidden name=itemstatus value="$form->{itemstatus}">
|
| 910 | 922 |
<input type=hidden name=l_linetotal value="$form->{l_linetotal}">
|
| 911 | 923 |
<input type=hidden name=l_partnumber value="$form->{l_partnumber}">
|
| ... | ... | |
| 964 | 976 |
# l_partsgroup l_subtotal l_soldtotal l_deliverydate |
| 965 | 977 |
# |
| 966 | 978 |
# hiddens: |
| 967 |
# nextsub login password revers lastsort sort ndxs_counter
|
|
| 979 |
# nextsub revers lastsort sort ndxs_counter |
|
| 968 | 980 |
# |
| 969 | 981 |
sub generate_report {
|
| 970 | 982 |
$lxdebug->enter_sub(); |
| 971 | 983 |
|
| 984 |
$auth->assert('part_service_assembly_edit');
|
|
| 985 |
|
|
| 972 | 986 |
my ($revers, $lastsort, $description); |
| 973 | 987 |
|
| 974 | 988 |
$form->{title} = (ucfirst $form->{searchitems}) . "s";
|
| ... | ... | |
| 1287 | 1301 |
sub parts_subtotal {
|
| 1288 | 1302 |
$lxdebug->enter_sub(); |
| 1289 | 1303 |
|
| 1304 |
$auth->assert('part_service_assembly_edit');
|
|
| 1305 |
|
|
| 1290 | 1306 |
# imports |
| 1291 | 1307 |
our (%column_data, @column_index); |
| 1292 | 1308 |
our ($subtotalonhand, $totalsellprice, $totallastcost, $totallistprice, $subtotalsellprice, $subtotallastcost, $subtotallistprice); |
| ... | ... | |
| 1330 | 1346 |
|
| 1331 | 1347 |
sub edit {
|
| 1332 | 1348 |
$lxdebug->enter_sub(); |
| 1349 |
|
|
| 1350 |
$auth->assert('part_service_assembly_edit');
|
|
| 1351 |
|
|
| 1333 | 1352 |
# show history button |
| 1334 | 1353 |
$form->{javascript} = qq|<script type="text/javascript" src="js/show_history.js"></script>|;
|
| 1335 | 1354 |
#/show hhistory button |
| ... | ... | |
| 1348 | 1367 |
sub link_part {
|
| 1349 | 1368 |
$lxdebug->enter_sub(); |
| 1350 | 1369 |
|
| 1370 |
$auth->assert('part_service_assembly_edit');
|
|
| 1371 |
|
|
| 1351 | 1372 |
IC->create_links("IC", \%myconfig, \%$form);
|
| 1352 | 1373 |
|
| 1353 | 1374 |
# currencies |
| ... | ... | |
| 1437 | 1458 |
sub form_header {
|
| 1438 | 1459 |
$lxdebug->enter_sub(); |
| 1439 | 1460 |
|
| 1461 |
$auth->assert('part_service_assembly_edit');
|
|
| 1462 |
|
|
| 1440 | 1463 |
$form->{eur} = $eur; # config dumps into namespace - yuck
|
| 1441 | 1464 |
$form->{pg_keys} = sub { "$_[0]->{partsgroup}--$_[0]->{id}" };
|
| 1442 | 1465 |
$form->{description_area} = ($form->{rows} = $form->numtextrows($form->{description}, 40)) > 1;
|
| ... | ... | |
| 1472 | 1495 |
sub form_footer {
|
| 1473 | 1496 |
$lxdebug->enter_sub(); |
| 1474 | 1497 |
|
| 1498 |
$auth->assert('part_service_assembly_edit');
|
|
| 1499 |
|
|
| 1475 | 1500 |
if ($form->{item} eq "assembly") {
|
| 1476 | 1501 |
|
| 1477 | 1502 |
print qq| |
| ... | ... | |
| 1490 | 1515 |
} |
| 1491 | 1516 |
|
| 1492 | 1517 |
print qq| |
| 1493 |
<input type=hidden name=login value=$form->{login}>
|
|
| 1494 |
<input type=hidden name=password value=$form->{password}>
|
|
| 1495 | 1518 |
<input type=hidden name=callback value="$form->{callback}">
|
| 1496 | 1519 |
<input type=hidden name=previousform value="$form->{previousform}">
|
| 1497 | 1520 |
<input type=hidden name=taxaccount2 value="$form->{taxaccount2}">
|
| ... | ... | |
| 1730 | 1753 |
|
| 1731 | 1754 |
} else {
|
| 1732 | 1755 |
$href = |
| 1733 |
qq|$form->{script}?action=edit&id=$form->{"id_$i"}&login=$form->{login}&password=$form->{password}&rowcount=$i&previousform=$previousform|;
|
|
| 1756 |
qq|$form->{script}?action=edit&id=$form->{"id_$i"}&rowcount=$i&previousform=$previousform|;
|
|
| 1734 | 1757 |
$column_data{partnumber} =
|
| 1735 | 1758 |
qq|<td><input type=hidden name="partnumber_$i" value="$form->{"partnumber_$i"}"><a href=$href>$form->{"partnumber_$i"}</a></td>|;
|
| 1736 | 1759 |
$column_data{runningnumber} =
|
| ... | ... | |
| 1836 | 1859 |
sub save {
|
| 1837 | 1860 |
$lxdebug->enter_sub(); |
| 1838 | 1861 |
|
| 1862 |
$auth->assert('part_service_assembly_edit');
|
|
| 1863 |
|
|
| 1839 | 1864 |
my ($parts_id, %newform, $previousform, $amount, $callback); |
| 1840 | 1865 |
|
| 1841 | 1866 |
# check if there is a part number - commented out, cause there is an automatic allocation of numbers |
| ... | ... | |
| 1996 | 2021 |
sub save_as_new {
|
| 1997 | 2022 |
$lxdebug->enter_sub(); |
| 1998 | 2023 |
|
| 2024 |
$auth->assert('part_service_assembly_edit');
|
|
| 2025 |
|
|
| 1999 | 2026 |
# saving the history |
| 2000 | 2027 |
if(!exists $form->{addition}) {
|
| 2001 | 2028 |
$form->{snumbers} = qq|partnumber_| . $form->{partnumber};
|
| ... | ... | |
| 2014 | 2041 |
|
| 2015 | 2042 |
sub delete {
|
| 2016 | 2043 |
$lxdebug->enter_sub(); |
| 2044 |
|
|
| 2045 |
$auth->assert('part_service_assembly_edit');
|
|
| 2046 |
|
|
| 2017 | 2047 |
# saving the history |
| 2018 | 2048 |
if(!exists $form->{addition}) {
|
| 2019 | 2049 |
$form->{snumbers} = qq|partnumber_| . $form->{partnumber};
|
| ... | ... | |
| 2033 | 2063 |
sub price_row {
|
| 2034 | 2064 |
$lxdebug->enter_sub(); |
| 2035 | 2065 |
|
| 2066 |
$auth->assert('part_service_assembly_edit');
|
|
| 2067 |
|
|
| 2036 | 2068 |
my ($numrows) = @_; |
| 2037 | 2069 |
|
| 2038 | 2070 |
print qq| |
| ... | ... | |
| 2066 | 2098 |
sub parts_language_selection {
|
| 2067 | 2099 |
$lxdebug->enter_sub(); |
| 2068 | 2100 |
|
| 2101 |
$auth->assert('part_service_assembly_edit');
|
|
| 2102 |
|
|
| 2069 | 2103 |
our ($onload); |
| 2070 | 2104 |
|
| 2071 | 2105 |
my $languages = IC->retrieve_languages(\%myconfig, $form); |
Auch abrufbar als: Unified diff
Umstellung der Benutzerverwaltung von Dateien im Verzeichnis "users" auf die Verwendung einer Authentifizierungsdatenbank.
Es ist erforderlich, die Dateien doc/UPGRADE und doc/INSTALL/index.html zu lesen und die angesprochenen Punkte auszuführen, um nach einem Upgrade weiter arbeiten zu können.