CVar: Shipto-CVars beim Clonen mit clonen

[mfinanz.git] / SL / DBUtils.pm

diff --git a/SL/DBUtils.pm b/SL/DBUtils.pm
index 689340ac2299224b8e6ec2c6ec14fff0c5f78e42..e8cd304eed043bd509481ac821e5e56980c491e5 100644 (file)
--- a/SL/DBUtils.pm
+++ b/SL/DBUtils.pm
@@ -1,5 +1,7 @@
 package SL::DBUtils;
 
 package SL::DBUtils;
 

+use SL::Util qw(trim);
+

 require Exporter;
 our @ISA = qw(Exporter);
 
 require Exporter;
 our @ISA = qw(Exporter);
 


@@ -30,7 +32,9 @@ sub conv_b {
 
 sub conv_date {
   my ($value) = @_;
 
 sub conv_date {
   my ($value) = @_;

-  return (defined($value) && "$value" ne "") ? $value : undef;
+  return undef if !defined $value;
+  $value = trim($value);
+  return $value eq "" ? undef : $value;

 }
 
 sub conv_dateq {
 }
 
 sub conv_dateq {


@@ -222,11 +226,11 @@ sub selectall_as_map {
   my %hash;
   if ('' eq ref $value_col) {
     while (my $ref = $sth->fetchrow_hashref()) {
   my %hash;
   if ('' eq ref $value_col) {
     while (my $ref = $sth->fetchrow_hashref()) {

-      $hash{$ref->{$key_col}} = $ref->{$value_col};
+      $hash{$ref->{$key_col} // ''} = $ref->{$value_col};

     }
   } else {
     while (my $ref = $sth->fetchrow_hashref()) {
     }
   } else {
     while (my $ref = $sth->fetchrow_hashref()) {

-      $hash{$ref->{$key_col}} = { map { $_ => $ref->{$_} } @{ $value_col } };
+      $hash{$ref->{$key_col} // ''} = { map { $_ => $ref->{$_} } @{ $value_col } };

     }
   }
 
     }
   }
 


@@ -389,7 +393,7 @@ __END__
 
 =head1 NAME
 
 
 =head1 NAME
 

-SL::DBUTils.pm: All about Databaseconections in Lx
+SL::DBUTils.pm: All about database connections in kivitendo

 
 =head1 SYNOPSIS
 
 
 =head1 SYNOPSIS
 


@@ -422,7 +426,7 @@ Using DBUtils most database procedures can be reduced to defining the query, exe
 
 DBUtils relies heavily on two parameters which have to be passed to almost every function: $form and $dbh.
   - $form is used for error handling only. It can be omitted in theory, but should not.
 
 DBUtils relies heavily on two parameters which have to be passed to almost every function: $form and $dbh.
   - $form is used for error handling only. It can be omitted in theory, but should not.

-  - $dbh is a handle to the databe, as returned by the DBI::connect routine. If you don't have an active connectiong, you can query $form->get_standard_dbh() to get a generic no_auto connection. Don't forget to commit in this case!
+  - $dbh is a handle to the database, as returned by the DBI::connect routine. If you don't have an active connection, you can query $form->get_standard_dbh() to get a generic no_auto connection. Don't forget to commit in this case!

 
 
 Every function here should accomplish the follwing things:
 
 
 Every function here should accomplish the follwing things: