Revision d63305ba
Von Jan Büren vor mehr als 6 Jahren hinzugefügt
| SL/DB/EmailJournal.pm | ||
|---|---|---|
| 18 | 18 |
|
| 19 | 19 |
__PACKAGE__->attr_sorted('attachments');
|
| 20 | 20 |
|
| 21 |
sub compare_to {
|
|
| 22 |
my ($self, $other) = @_; |
|
| 23 |
|
|
| 24 |
return -1 if $self->sent_on && !$other->sent_on; |
|
| 25 |
return 1 if !$self->sent_on && $other->sent_on; |
|
| 26 |
|
|
| 27 |
my $result = 0; |
|
| 28 |
$result = $other->sent_on <=> $self->sent_on; |
|
| 29 |
return $result || ($self->id <=> $other->id); |
|
| 30 |
} |
|
| 31 |
|
|
| 21 | 32 |
1; |
| 33 |
|
|
| 34 |
__END__ |
|
| 35 |
|
|
| 36 |
=pod |
|
| 37 |
|
|
| 38 |
=encoding utf8 |
|
| 39 |
|
|
| 40 |
=head1 NAME |
|
| 41 |
|
|
| 42 |
SL::DB::EmailJournal - RDBO model for email journal |
|
| 43 |
|
|
| 44 |
=head1 SYNOPSIS |
|
| 45 |
|
|
| 46 |
This is a standard Rose::DB::Object based model and can be used as one. |
|
| 47 |
|
|
| 48 |
=head1 METHODS |
|
| 49 |
|
|
| 50 |
=over 4 |
|
| 51 |
|
|
| 52 |
=item C<compare_to $self, $other> |
|
| 53 |
|
|
| 54 |
Compares C<$self> with C<$other> and returns the newer entry. |
|
| 55 |
|
|
| 56 |
=back |
|
| 57 |
|
|
| 58 |
=cut |
|
| 59 |
|
|
Auch abrufbar als: Unified diff
Verknüpfte Belege um die Verknüpfung 'E-Mail Journal' erweitert.
Falls das E-Mail-Journal aktiviert ist wird zusätzlich zu der
archivierten E-Mail auch die Verknüpfung vom Beleg zu der E-Mail mitgespeichert
und ist im Beleg zusätzlich direkt anwählbar.
Etwas mehr Details im POD vom Mailer.pm, die Implementierung orientiert
sich überwiegend an der Erweiterung der Verknüpfung von Letter.pm, bzw. dem ShopConnector.