Revision 36d7ceb2
Von Tamino Steinert vor mehr als 1 Jahr hinzugefügt
| SL/Presenter/EmailJournal.pm | ||
|---|---|---|
|
use SL::DB::EmailJournalAttachment;
|
||
|
|
||
|
use Exporter qw(import);
|
||
|
our @EXPORT_OK = qw(email_journal entry_status attachment_preview);
|
||
|
our @EXPORT_OK = qw(show email_journal entry_status attachment_preview);
|
||
|
|
||
|
use Carp;
|
||
|
|
||
|
sub show {goto &email_journal};
|
||
|
|
||
|
sub email_journal {
|
||
|
my ($email_journal_entry, %params) = @_;
|
||
|
|
||
| ... | ... | |
|
|
||
|
my $journal_entry = SL::DB::Manager::EmailJournal->get_first();
|
||
|
my $html = SL::Presenter::EmailJournal::email_journal($journal_entry, display => 'inline');
|
||
|
# or
|
||
|
my $html = $journal_entry->presenter->show();
|
||
|
|
||
|
# pp $html
|
||
|
# <a href="controller.pl?action=EmailJournal/show&id=1">IDEV Daten fuer webdav/idev/2017-KW-26.csv erzeugt</a>
|
||
| ... | ... | |
|
|
||
|
=over 4
|
||
|
|
||
|
=item C<show $object %params>
|
||
|
|
||
|
Alias for C<email_journal $object %params>.
|
||
|
|
||
|
=item C<email_journal $object, %params>
|
||
|
|
||
|
Returns a rendered version (actually an instance of
|
||
Auch abrufbar als: Unified diff
S:Presenter:Record: Alias Funktion "show" in verwendeten Objekten