X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/2b6b46fefd21ebee3ddd76b499ddc0f72b893fed..f217d072d76183bc07723dcc29503b732bd2022d:/SL/Presenter/FileObject.pm

diff --git a/SL/Presenter/FileObject.pm b/SL/Presenter/FileObject.pm
index 62671eaeb..8b7f12f49 100644
--- a/SL/Presenter/FileObject.pm
+++ b/SL/Presenter/FileObject.pm
@@ -2,6 +2,7 @@ package SL::Presenter::FileObject;
 
 use strict;
 
+use SL::Presenter::Tag         qw(link_tag);
 use SL::Presenter::EscapedText qw(escape is_escaped);
 
 use Exporter qw(import);
@@ -12,17 +13,13 @@ use Carp;
 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);
 }
@@ -45,7 +42,7 @@ SL::DB::File)
 =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
 
@@ -57,7 +54,8 @@ Returns a rendered version (actually an instance of
 L<SL::Presenter::EscapedText>) of the file object
 C<$file_object>.
 
-C<%params> can include:
+Remaining C<%params> are passed to the function
+C<SL::Presenter::Tag::link_tag>. It can include:
 
 =over 2