Revision 36d7ceb2
Von Tamino Steinert vor mehr als 1 Jahr hinzugefügt
| SL/Presenter/Letter.pm | ||
|---|---|---|
|
use SL::Presenter::Tag qw(link_tag);
|
||
|
|
||
|
use Exporter qw(import);
|
||
|
our @EXPORT_OK = qw(letter);
|
||
|
our @EXPORT_OK = qw(show letter);
|
||
|
|
||
|
use Carp;
|
||
|
|
||
|
sub show {goto &letter};
|
||
|
|
||
|
sub letter {
|
||
|
my ($letter, %params) = @_;
|
||
|
|
||
| ... | ... | |
|
|
||
|
my $letter = SL::DB::Manager::Letter->get_first(where => [ … ]);
|
||
|
my $html = SL::Presenter::Letter::letter($letter, display => 'inline');
|
||
|
# or
|
||
|
my $html = $letter->presenter->show();
|
||
|
|
||
|
=head1 FUNCTIONS
|
||
|
|
||
|
=over 4
|
||
|
|
||
|
=item C<show $object>
|
||
|
|
||
|
Alias for C<letter $object %params>.
|
||
|
|
||
|
=item C<letter $object, %params>
|
||
|
|
||
|
Returns a rendered version (actually an instance of
|
||
Auch abrufbar als: Unified diff
S:Presenter:Record: Alias Funktion "show" in verwendeten Objekten