From 3c28eab67faddeb0500ab74f307bbbdf50f9d1d3 Mon Sep 17 00:00:00 2001 From: "G. Richardson" Date: Sun, 7 Aug 2016 23:10:07 +0200 Subject: [PATCH] =?utf8?q?Part=20Methode=20last=5Fmodification=20f=C3=BCr?= =?utf8?q?=20mtime=20Check?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- SL/DB/Part.pm | 5 +++++ 1 file changed, 5 insertions(+) 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; -- 2.20.1