X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/d735aab3fc2987d555c63ce0dc8e24626ca30654..0a50b37c:/bin/mozilla/ic.pl diff --git a/bin/mozilla/ic.pl b/bin/mozilla/ic.pl index 332873544..6cb9e9cd8 100644 --- a/bin/mozilla/ic.pl +++ b/bin/mozilla/ic.pl @@ -38,7 +38,7 @@ use List::MoreUtils qw(any); use SL::AM; use SL::CVar; use SL::IC; -use SL::Helper::Flash; +use SL::Helper::Flash qw(flash); use SL::HTML::Util; use SL::ReportGenerator; @@ -51,7 +51,6 @@ use strict; our ($form, $locale, %myconfig, $lxdebug, $auth); require "bin/mozilla/io.pl"; -require "bin/mozilla/invoice_io.pl"; require "bin/mozilla/common.pl"; require "bin/mozilla/reportgenerator.pl"; @@ -116,9 +115,7 @@ sub search { $form->header; $form->get_lists('partsgroup' => 'ALL_PARTSGROUPS'); - print $form->parse_html_template('ic/search', { %is_xyz, - dateformat => $myconfig{dateformat}, - limit => $myconfig{vclimit}, }); + print $form->parse_html_template('ic/search', { %is_xyz, }); $lxdebug->leave_sub(); } #end search() @@ -1849,7 +1846,7 @@ sub update { if ($rows > 1) { $form->{makemodel_rows}--; select_item(mode => 'IC', pre_entered_qty => $form->parse_amount(\%myconfig, $form->{"qty_$i"})); - ::end_of_request(); + $::dispatcher->end_request; } else { map { $form->{item_list}[$i]{$_} =~ s/\"/"/g } qw(partnumber description unit partsgroup); @@ -2118,6 +2115,27 @@ sub ajax_autocomplete { $main::lxdebug->leave_sub(); } +sub display_form { + $::lxdebug->enter_sub; + + $auth->assert('part_service_assembly_edit'); + + relink_accounts(); + + $::form->language_payment(\%::myconfig); + + Common::webdav_folder($::form); + + form_header(); + price_row($::form->{price_rows}); + makemodel_row(++$::form->{makemodel_rows}) if $::form->{item} =~ /^(part|service)$/; + assembly_row(++$::form->{assembly_rows}) if $::form->{item} eq 'assembly'; + + form_footer(); + + $::lxdebug->leave_sub; +} + sub back_to_record { _check_io_auth();