X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/19064edf6bd7859e831fdf37cd465f7f933be6f3..ba52ee60:/bin/mozilla/is.pl?ds=sidebyside diff --git a/bin/mozilla/is.pl b/bin/mozilla/is.pl index d67aac59d..a83e4bcc7 100644 --- a/bin/mozilla/is.pl +++ b/bin/mozilla/is.pl @@ -378,6 +378,7 @@ sub form_header { shiptoname shiptostreet shiptozipcode shiptocity shiptocountry shiptocontact shiptophone shiptofax shiptoemail shiptodepartment_1 shiptodepartment_2 shiptocp_gender message email subject cc bcc taxaccounts cursor_fokus convert_from_do_ids convert_from_oe_ids + show_details ), @custom_hiddens, map { $_.'_rate', $_.'_description', $_.'_taxnumber' } split / /, $form->{taxaccounts}]; @@ -817,6 +818,7 @@ sub use_as_new { $form->{rowcount}--; $form->{invdate} = $form->current_date(\%myconfig); $form->{duedate} = $form->get_duedate(\%myconfig, $form->{invdate}) || $form->{invdate}; + $form->{employee_id} = SL::DB::Manager::Employee->current->id; # remember pricegroups for "use as new" IS->get_pricegroups_for_parts(\%myconfig, \%$form); @@ -1021,6 +1023,10 @@ sub yes { $main::lxdebug->leave_sub(); } +sub post_and_e_mail { + e_mail(); +}; + sub e_mail { $main::lxdebug->enter_sub();