X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/1663057f67e6dc72fd492d52e5a97b659ec90f63..3c28eab67faddeb0500ab74f307bbbdf50f9d1d3:/SL/DB/Part.pm

diff --git a/SL/DB/Part.pm b/SL/DB/Part.pm
index 7fd35d80e..d19ec26e4 100644
--- a/SL/DB/Part.pm
+++ b/SL/DB/Part.pm
@@ -130,6 +130,11 @@ sub new_assortment {
   $class->new(%params, part_type => 'assortment');
 }
 
+sub last_modification {
+  my ($self) = @_;
+  return $self->mtime or $self->itime;
+};
+
 sub orphaned {
   my ($self) = @_;
   die 'not an accessor' if @_ > 1;