X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/kivitendo-erp.git/blobdiff_plain/24ab7ec0bfb052edce7a3c7a6e37c151f9cd6a04..19c89dfd42c7766b14de78718066270ad09e20de:/SL/DB/EmailJournal.pm

diff --git a/SL/DB/EmailJournal.pm b/SL/DB/EmailJournal.pm
index 6875b5249..5f3a51da8 100644
--- a/SL/DB/EmailJournal.pm
+++ b/SL/DB/EmailJournal.pm
@@ -4,6 +4,7 @@ use strict;
 
 use SL::DB::MetaSetup::EmailJournal;
 use SL::DB::Manager::EmailJournal;
+use SL::DB::Helper::AttrSorted;
 
 __PACKAGE__->meta->add_relationship(
   attachments  => {
@@ -15,4 +16,44 @@ __PACKAGE__->meta->add_relationship(
 
 __PACKAGE__->meta->initialize;
 
+__PACKAGE__->attr_sorted('attachments');
+
+sub compare_to {
+  my ($self, $other) = @_;
+
+  return -1 if  $self->sent_on && !$other->sent_on;
+  return  1 if !$self->sent_on &&  $other->sent_on;
+
+  my $result = 0;
+  $result    = $other->sent_on <=> $self->sent_on;
+  return $result || ($self->id <=> $other->id);
+}
+
 1;
+
+__END__
+
+=pod
+
+=encoding utf8
+
+=head1 NAME
+
+SL::DB::EmailJournal - RDBO model for email journal
+
+=head1 SYNOPSIS
+
+This is a standard Rose::DB::Object based model and can be used as one.
+
+=head1 METHODS
+
+=over 4
+
+=item C<compare_to $self, $other>
+
+Compares C<$self> with C<$other> and returns the newer entry.
+
+=back
+
+=cut
+