Revision 7bca34b6
Von Tamino Steinert vor mehr als 1 Jahr hinzugefügt
| SL/Presenter/ALL.pm | ||
|---|---|---|
|
use SL::Presenter::DatePeriod;
|
||
|
use SL::Presenter::DeliveryOrder;
|
||
|
use SL::Presenter::Dunning;
|
||
|
use SL::Presenter::EmailJournal;
|
||
|
use SL::Presenter::EscapedText;
|
||
|
use SL::Presenter::FileObject;
|
||
|
use SL::Presenter::Invoice;
|
||
| ... | ... | |
|
date_period => 'SL::Presenter::DatePeriod',
|
||
|
delivery_order => 'SL::Presenter::DeliveryOrder',
|
||
|
dunning => 'SL::Presenter::Dunning',
|
||
|
email_journal => 'SL::Presenter::EmailJournal',
|
||
|
escaped_text => 'SL::Presenter::EscapedText',
|
||
|
file_object => 'SL::Presenter::FileObject',
|
||
|
invoice => 'SL::Presenter::Invoice',
|
||
| SL/Presenter/EmailJournal.pm | ||
|---|---|---|
|
|
||
|
use SL::Presenter::EscapedText qw(escape is_escaped);
|
||
|
use SL::Presenter::Tag qw(link_tag);
|
||
|
use SL::Locale::String qw(t8);
|
||
|
|
||
|
use Exporter qw(import);
|
||
|
our @EXPORT_OK = qw(email_journal);
|
||
|
our @EXPORT_OK = qw(email_journal entry_status);
|
||
|
|
||
|
use Carp;
|
||
|
|
||
| ... | ... | |
|
is_escaped($text);
|
||
|
}
|
||
|
|
||
|
sub entry_status {
|
||
|
my ($email_journal_entry, %params) = @_;
|
||
|
|
||
|
my %status_to_text = (
|
||
|
sent => t8('sent'),
|
||
|
send_failed => t8('send failed'),
|
||
|
imported => t8('imported'),
|
||
|
);
|
||
|
|
||
|
my $status = $email_journal_entry->status;
|
||
|
my $text = $status_to_text{$status} || $status;
|
||
|
|
||
|
return $text;
|
||
|
}
|
||
|
|
||
|
1;
|
||
|
|
||
|
__END__
|
||
Auch abrufbar als: Unified diff
Presenter: EmailJournal: Funktion zum Anzeigen des Status