Projekte: alte Suchmaske entfernt

[kivitendo-erp.git] / SL / DB / Object.pm

diff --git a/SL/DB/Object.pm b/SL/DB/Object.pm
index 06596dd..f2f12c0 100755 (executable)
--- a/SL/DB/Object.pm
+++ b/SL/DB/Object.pm
@@ -22,6 +22,12 @@ my @rose_reserved_methods = qw(
   not_found save update import
 );
 
+my %db_to_presenter_mapping = (
+  Customer        => 'CustomerVendor',
+  PurchaseInvoice => 'Invoice',
+  Vendor          => 'CustomerVendor',
+);
+
 sub new {
   my $class = shift;
   my $self  = $class->SUPER::new();
@@ -240,16 +246,26 @@ sub clone_and_reset {
 }
 
 sub presenter {
-  my ($class_or_self) = @_;
-
-  if (ref $class_or_self) {
-    my $class = ref $class_or_self;
-    $class =~ s{^SL::DB::}{SL::Presenter::};
-    return SL::DB::Helper::Presenter->new($class, $class_or_self);
-  } else {
-    $class_or_self =~ s{^SL::DB::}{SL::Presenter::};
-    return $class_or_self;
-  }
+  my ($self) = @_;
+
+  my $class =  ref $self;
+  $class    =~ s{^SL::DB::}{};
+  $class    =  "SL::Presenter::" . ($db_to_presenter_mapping{$class} // $class);
+
+  return SL::DB::Helper::Presenter->new($class, $self);
+}
+
+sub as_debug_info {
+  my ($self) = @_;
+
+  return {
+    map {
+      my $column_name = $_->name;
+      my $value       = $self->$column_name;
+      $value          = !defined($value) ? undef : "${value}";
+      ($_ => $value)
+    } $self->meta->columns
+  };
 }
 
 1;
@@ -383,6 +399,12 @@ with the same name as the class of the involking object.
 For the full documentation about its capabilites see
 L<SL::DB::Helper::Presenter>
 
+=item C<as_debug_info>
+
+Returns a hash containing solely the essentials for dumping it with
+L<LXDebug/dump>. The returned hash consists of the column names with
+associated column values in stringified form.
+
 =back
 
 =head1 AUTHOR