X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/215356761a7aa1afd6d77be3aa1997bac9cf6d0e..83e061c063b3f6b9f34ee0c9b7ff5575362be9a4:/bin/mozilla/ic.pl diff --git a/bin/mozilla/ic.pl b/bin/mozilla/ic.pl index daba6887e..e9b13a327 100644 --- a/bin/mozilla/ic.pl +++ b/bin/mozilla/ic.pl @@ -152,62 +152,15 @@ sub choice { $form->header; - print qq| - - -

{script}> - - {searchitems}> - - - - |; - - print qq| - - - - - - - - - -

\| . $locale->text('Part Number') . qq\|	\| . $locale->text('Part Description') . qq\|

-
|; - - print qq| - -{login}> -{password}> - - - - - - - - - - - - - - - - - - - - - - - - - -{ndxs_counter}> - -{extras}>|; + push @custom_hiddens, qw(login password searchitems title bom titel revers lastsort sort ndxs_counter extras); + push @custom_hiddens, qw(itemstatus l_linetotal l_partnumber l_description l_onhand l_unit l_sellprice l_linetotalsellprice); + my @HIDDENS = ( + +{ name => 'row', value => $j }, + +{ name => 'nextsub', value => 'item_selected' }, + +{ name => 'test', value => 'item_selected' }, + +{ name => 'lastndx', value => $lastndx }, + map(+{ name => $_, value => $form->{$_} }, @custom_hiddens), + ); my ($partnumber, $description, $unit, $sellprice, $soldtotal); # if choice set data @@ -253,15 +206,8 @@ sub choice { } #rof } #fi - print $totop100; - - print qq| - -

+ print $form->parse_html_template('ic/choice', +{ HIDDENS => \@HIDDENS, totop100 => $totop100 }); - - |; $lxdebug->leave_sub(); } #end choice @@ -420,7 +366,7 @@ sub addtop100 { $form->{top100} = "top100"; $form->{l_soldtotal} = "Y"; - $form->{soldtotal} = "soldtotal"; +# $form->{soldtotal} = "soldtotal"; $form->{sort} = "soldtotal"; $form->{l_qty} = "N"; $form->{l_linetotal} = "";