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