X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Foe.pl;h=7832b2e3962126801bac56940394ff1fd3a5e7d6;hb=1d1f31407ee1a66af5a0db0d10350bc29a371653;hp=c1ecf19588c40d61b2a577734b9756c0226f0f76;hpb=13412f21e0093c7940597934cba407cb2fd27505;p=kivitendo-erp.git diff --git a/bin/mozilla/oe.pl b/bin/mozilla/oe.pl index c1ecf1958..7832b2e39 100644 --- a/bin/mozilla/oe.pl +++ b/bin/mozilla/oe.pl @@ -297,14 +297,14 @@ sub setup_oe_action_bar { my $form = $::form; my $has_active_periodic_invoice; - if ($params{obj}) { + if ($params{oe_obj}) { $has_active_periodic_invoice = - $params{obj}->is_type('sales_order') - && $params{obj}->periodic_invoices_config - && $params{obj}->periodic_invoices_config->active - && ( !$params{obj}->periodic_invoices_config->end_date - || ($params{obj}->periodic_invoices_config->end_date > DateTime->today_local)) - && $params{obj}->periodic_invoices_config->get_previous_billed_period_start_date; + $params{oe_obj}->is_type('sales_order') + && $params{oe_obj}->periodic_invoices_config + && $params{oe_obj}->periodic_invoices_config->active + && ( !$params{oe_obj}->periodic_invoices_config->end_date + || ($params{oe_obj}->periodic_invoices_config->end_date > DateTime->today_local)) + && $params{oe_obj}->periodic_invoices_config->get_previous_billed_period_start_date; } my $allow_invoice = $params{is_req_quo} @@ -622,7 +622,11 @@ sub form_header { is_pur_ord => scalar($form->{type} =~ /purchase_order$/), ); - setup_oe_action_bar(%type_check_vars); + setup_oe_action_bar( + %type_check_vars, + oe_obj => $TMPL_VAR->{oe_obj}, + vc_obj => $TMPL_VAR->{vc_obj}, + ); $form->header; if ($form->{CFDD_shipto} && $form->{CFDD_shipto_id} ) { @@ -1031,7 +1035,7 @@ sub orders { $form->{l_open} = $form->{l_closed} = "Y" if ($form->{open} && $form->{closed}); $form->{l_delivered} = "Y" if ($form->{delivered} && $form->{notdelivered}); $form->{l_periodic_invoices} = "Y" if ($form->{periodic_invoices_active} && $form->{periodic_invoices_inactive}); - $form->{l_edit_exp} = "Y" if $::instance_conf->get_feature_experimental && (any { $form->{type} eq $_ } qw(sales_order purchase_order)); + $form->{l_edit_exp} = "Y" if $::instance_conf->get_feature_experimental && (any { $form->{type} eq $_ } qw(sales_order purchase_order sales_quotation request_quotation)); map { $form->{"l_${_}"} = 'Y' } qw(order_probability expected_billing_date expected_netamount) if $form->{l_order_probability_expected_billing_date}; my $attachment_basename; @@ -1261,7 +1265,7 @@ sub orders { $row->{$ordnumber}->{link} = $edit_url . "&id=" . E($oe->{id}) . "&callback=${callback}"; - $row->{edit_exp}->{data} = $oe->{ordnumber}; + $row->{edit_exp}->{data} = $oe->{$ordnumber}; $row->{edit_exp}->{link} = build_std_url('script=controller.pl', 'action=Order/edit', "type=$form->{type}", 'id=' . E($oe->{id})); my $row_set = [ $row ];