X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=inline;f=bin%2Fmozilla%2Fbp.pl;h=10acafdaa079005eb069856c80df4b768f83835f;hb=08c340d2caca21066fd8797e29f07facfde7a07c;hp=8054af52bd18bdd6324828bd2a77f452547eedec;hpb=8c7e44938a661e035f62840e1e177353240ace5d;p=kivitendo-erp.git diff --git a/bin/mozilla/bp.pl b/bin/mozilla/bp.pl index 8054af52b..10acafdaa 100644 --- a/bin/mozilla/bp.pl +++ b/bin/mozilla/bp.pl @@ -33,14 +33,19 @@ use SL::BP; use Data::Dumper; +use List::Util qw(first); 1; require "bin/mozilla/common.pl"; +use strict; + # end of main sub assert_bp_access { + my $form = $main::form; + my %access_map = ( 'invoice' => 'invoice_edit', 'sales_order' => 'sales_order_edit', @@ -52,23 +57,29 @@ sub assert_bp_access { ); if ($form->{type} && $access_map{$form->{type}}) { - $auth->assert($access_map{$form->{type}}); + $main::auth->assert($access_map{$form->{type}}); } elsif ($form->{type} eq 'packing_list') { - $lxdebug->message(0, "1"); - if (!$auth->assert('sales_order_edit', 1)) { - $lxdebug->message(0, "2"); - $auth->assert('invoice_edit') ; + $main::lxdebug->message(0, "1"); + if (!$main::auth->assert('sales_order_edit', 1)) { + $main::lxdebug->message(0, "2"); + $main::auth->assert('invoice_edit') ; } - $lxdebug->message(0, "3"); + $main::lxdebug->message(0, "3"); } else { - $auth->assert('DOES_NOT_EXIST'); + $main::auth->assert('DOES_NOT_EXIST'); } } sub search { - $lxdebug->enter_sub(); + $main::lxdebug->enter_sub(); + + my $form = $main::form; + my %myconfig = %main::myconfig; + my $locale = $main::locale; + + my ($name, $account, $onload); assert_bp_access(); @@ -95,7 +106,7 @@ sub search { # $locale->text('Customer') # $locale->text('Vendor') - %label = ( + my %label = ( invoice => { title => 'Sales Invoices', name => 'Customer', l_invnumber => 'Y' }, packing_list => @@ -160,7 +171,7 @@ sub search { $account .= qq|