From 2f6a11fb5314d652152e0514bf5e5bf2735dc8fe Mon Sep 17 00:00:00 2001 From: =?utf8?q?Bernd=20Ble=C3=9Fmann?= Date: Mon, 20 Oct 2014 12:28:28 +0200 Subject: [PATCH] trailing whitespaces entfernt --- SL/AP.pm | 2 +- SL/Controller/Buchungsgruppen.pm | 2 +- SL/Controller/CsvImport/BaseMulti.pm | 2 +- SL/DB/Buchungsgruppe.pm | 2 +- SL/DO.pm | 2 +- SL/IR.pm | 6 +++--- SL/InstanceConfiguration.pm | 2 +- SL/Presenter/Part.pm | 2 +- SL/WH.pm | 2 +- bin/mozilla/vk.pl | 4 ++-- 10 files changed, 13 insertions(+), 13 deletions(-) diff --git a/SL/AP.pm b/SL/AP.pm index 4d651e412..f254734ef 100644 --- a/SL/AP.pm +++ b/SL/AP.pm @@ -165,7 +165,7 @@ sub post_transaction { } else { ($form->{id}) = selectrow_query($form, $dbh, qq|SELECT nextval('glid')|); - + $query = qq|INSERT INTO ap (id, invnumber, employee_id,currency_id, taxzone_id) | . qq|VALUES (?, ?, (SELECT e.id FROM employee e WHERE e.login = ?), diff --git a/SL/Controller/Buchungsgruppen.pm b/SL/Controller/Buchungsgruppen.pm index aac6f73ab..0ad05c428 100644 --- a/SL/Controller/Buchungsgruppen.pm +++ b/SL/Controller/Buchungsgruppen.pm @@ -89,7 +89,7 @@ sub action_delete { # constraint, if Buchungsgruppe is connected to a part my $db = $self->{config}->db; - $db->do_transaction(sub { + $db->do_transaction(sub { my $taxzone_charts = SL::DB::Manager::TaxzoneChart->get_all(where => [ buchungsgruppen_id => $self->config->id ]); foreach my $taxzonechart ( @{$taxzone_charts} ) { $taxzonechart->delete }; $self->config->delete(); diff --git a/SL/Controller/CsvImport/BaseMulti.pm b/SL/Controller/CsvImport/BaseMulti.pm index 7e35d9731..7650938e0 100644 --- a/SL/Controller/CsvImport/BaseMulti.pm +++ b/SL/Controller/CsvImport/BaseMulti.pm @@ -151,7 +151,7 @@ sub init_cvar_columns_by { my $ri = $p->{row_ident}; $ccb->{row_ident}->{$ri} = [ map { "cvar_" . $_->name } (@{ $self->cvar_configs_by->{row_ident}->{$ri} }) ]; } - + return $ccb; } diff --git a/SL/DB/Buchungsgruppe.pm b/SL/DB/Buchungsgruppe.pm index d3ddcccb1..eb467c541 100644 --- a/SL/DB/Buchungsgruppe.pm +++ b/SL/DB/Buchungsgruppe.pm @@ -72,7 +72,7 @@ sub taxzonecharts { my ($self) = @_; return SL::DB::Manager::TaxzoneChart->get_all(where => [ buchungsgruppen_id => $self->id ]); } - + sub orphaned { my ($self) = @_; die 'not an accessor' if @_ > 1; diff --git a/SL/DO.pm b/SL/DO.pm index 9693bc219..a66b64d5f 100644 --- a/SL/DO.pm +++ b/SL/DO.pm @@ -421,7 +421,7 @@ sub save { $form->{saved_donumber} = $form->{donumber}; $form->{saved_ordnumber} = $form->{ordnumber}; $form->{saved_cusordnumber} = $form->{cusordnumber}; - + Common::webdav_folder($form); $main::lxdebug->leave_sub(); diff --git a/SL/IR.pm b/SL/IR.pm index e465224b8..1dde56f74 100644 --- a/SL/IR.pm +++ b/SL/IR.pm @@ -1199,8 +1199,8 @@ sub retrieve_item { # also search hits in makemodels, but only cache the results by id and merge later my $mm_query = qq| - SELECT parts_id, model FROM makemodel - LEFT JOIN parts ON parts.id = parts_id + SELECT parts_id, model FROM makemodel + LEFT JOIN parts ON parts.id = parts_id WHERE NOT parts.obsolete AND model ILIKE ? AND (make IS NULL OR make = ?); |; my $mm_results = selectall_hashref_query($::form, $dbh, $mm_query, '%' . $form->{"partnumber_$i"} . '%', $::form->{vendor_id}); @@ -1268,7 +1268,7 @@ sub retrieve_item { WHERE id = p.buchungsgruppen_id) = c1.id) LEFT JOIN chart c2 ON ((SELECT tc.income_accno_id - FROM taxzone_charts tc + FROM taxzone_charts tc WHERE tc.taxzone_id = '$taxzone_id' and tc.buchungsgruppen_id = p.buchungsgruppen_id) = c2.id) LEFT JOIN chart c3 ON ((SELECT tc.expense_accno_id diff --git a/SL/InstanceConfiguration.pm b/SL/InstanceConfiguration.pm index 41cb9f3dd..905f38b0c 100644 --- a/SL/InstanceConfiguration.pm +++ b/SL/InstanceConfiguration.pm @@ -129,7 +129,7 @@ Returns the default method for determining the startdate for the balance report. Valid options: -closed_to start_of_year all_transactions last_ob_or_all_transactions last_ob_or_start_of_year +closed_to start_of_year all_transactions last_ob_or_all_transactions last_ob_or_start_of_year =item C diff --git a/SL/Presenter/Part.pm b/SL/Presenter/Part.pm index 9533e1d6c..1fbce1e06 100644 --- a/SL/Presenter/Part.pm +++ b/SL/Presenter/Part.pm @@ -88,7 +88,7 @@ to the corresponding 'edit' action. =back -=back +=back =over 2 diff --git a/SL/WH.pm b/SL/WH.pm index 7e4d5194b..4e0c3fc56 100644 --- a/SL/WH.pm +++ b/SL/WH.pm @@ -162,7 +162,7 @@ sub transfer_assembly { Common::check_params(\%params, qw(assembly_id dst_warehouse_id login qty unit dst_bin_id chargenumber bestbefore comment)); - my $unit = SL::DB::Manager::Unit->find_by(name => $params{unit}); + my $unit = SL::DB::Manager::Unit->find_by(name => $params{unit}); if ($unit) { my $assembly = SL::DB::Manager::Assembly->get_all( query => [ id => $params{assembly_id} ], diff --git a/bin/mozilla/vk.pl b/bin/mozilla/vk.pl index 9bc079168..51521a3de 100644 --- a/bin/mozilla/vk.pl +++ b/bin/mozilla/vk.pl @@ -300,7 +300,7 @@ sub invoice_transactions { # stored seperately). However, for fxsellprice this method only works when # the tax is not included, because otherwise fxsellprice includes the tax # and there is no simple way to extract the tax rate of the article from - # the big query. + # the big query. # # Using fxsellprice is potentially more accurate (certainly for tax # included), because we can use the same method as is used while the @@ -315,7 +315,7 @@ sub invoice_transactions { # sellprice_total_including_tax = qty * fxsellprice * (1-discount) / price_factor * exchangerate # $ar->{sellprice_total_including_tax} = $form->round_amount( $ar->{qty} * ( $ar->{fxsellprice} * ( 1 - $ar->{discount} ) ) / $ar->{price_factor}, $form->{"decimalplaces"}); - $ar->{sellprice} = $ar->{sellprice} / $ar->{price_factor} / $basefactor; + $ar->{sellprice} = $ar->{sellprice} / $ar->{price_factor} / $basefactor; $ar->{sellprice_total} = $form->round_amount( $ar->{qty} * $ar->{sellprice} / $ar->{price_factor} , $form->{"decimalplaces"}); $ar->{lastcost} = $ar->{lastcost} / $ar->{price_factor} / $basefactor; -- 2.20.1