Revision 4d4ca4a5
Von Bernd Bleßmann vor fast 4 Jahren hinzugefügt
| SL/Presenter/FileObject.pm | ||
|---|---|---|
|
|
||
|
use strict;
|
||
|
|
||
|
use SL::Presenter::Tag qw(link_tag);
|
||
|
use SL::Presenter::EscapedText qw(escape is_escaped);
|
||
|
|
||
|
use Exporter qw(import);
|
||
| ... | ... | |
|
sub file_object {
|
||
|
my ($file_object, %params) = @_;
|
||
|
|
||
|
my $link_start = '<a href="controller.pl?action=File/download&id=' . $file_object->id;
|
||
|
$link_start .= '&version=' . $file_object->version if $file_object->version;
|
||
|
$link_start .= '">';
|
||
|
|
||
|
my $link_end = '</a>';
|
||
|
|
||
|
my $text = join '', (
|
||
|
$params{no_link} ? '' : $link_start,
|
||
|
escape($file_object->file_name),
|
||
|
$params{no_link} ? '' : $link_end,
|
||
|
);
|
||
|
my $text = escape($file_object->file_name);
|
||
|
if (! delete $params{no_link}) {
|
||
|
my $href = 'controller.pl?action=File/download&id=' . $file_object->id;
|
||
|
$href .= '&version=' . $file_object->version if $file_object->version;
|
||
|
$text = link_tag($href, $text, %params);
|
||
|
}
|
||
|
|
||
|
is_escaped($text);
|
||
|
}
|
||
| ... | ... | |
|
=head1 SYNOPSIS
|
||
|
|
||
|
my $file_object = SL::File->get(id => 1);
|
||
|
my $html = SL::Presenter::File::file_object($file_object, no_link => 1);
|
||
|
my $html = SL::Presenter::FileObject::file_object($file_object, no_link => 1);
|
||
|
|
||
|
=head1 FUNCTIONS
|
||
|
|
||
Auch abrufbar als: Unified diff
SL::Presenter::FileObject: link_tag verwenden