trailing whitespaces entfernt

diff --git a/SL/AP.pm b/SL/AP.pm
index 4d651e4..f254734 100644 (file)
--- 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 aac6f73..0ad05c4 100644 (file)
--- 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 7e35d97..7650938 100644 (file)
--- 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 d3ddccc..eb467c5 100644 (file)
--- 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 9693bc2..a66b64d 100644 (file)
--- 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 e465224..1dde56f 100644 (file)
--- 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 41cb9f3..905f38b 100644 (file)
--- 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<get_is_changeable>
 

diff --git a/SL/Presenter/Part.pm b/SL/Presenter/Part.pm
index 9533e1d..1fbce1e 100644 (file)
--- 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 7e4d519..4e0c3fc 100644 (file)
--- 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 9bc0791..51521a3 100644 (file)
--- 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;