X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/503655261b9f86498c36b634e387938ecd8359a6..12e513005cda066d28dd1ed69439e916906cfbd3:/SL/Form.pm

diff --git a/SL/Form.pm b/SL/Form.pm
index 4360c0740..df071c045 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -654,6 +654,19 @@ sub header {
   push @header, sprintf "<script type='text/javascript'>top.document.title='%s';</script>",
     join ' - ', grep $_, $self->{title}, $self->{login}, $::myconfig{dbname}, $self->{version} if $self->{title};
 
+  # if there is a title, we put some JavaScript in to the page, wich writes a
+  # meaningful title-tag for our frameset.
+  my $title_hack = '';
+  if ($self->{title}) {
+    $title_hack = qq|
+    <script type="text/javascript">
+    <!--
+      // Write a meaningful title-tag for our frameset.
+      top.document.title="| . $self->{"title"} . qq| - | . $self->{"login"} . qq| - | . $::myconfig{dbname} . qq| - V| . $self->{"version"} . qq|";
+    //-->
+    </script>|;
+  }
+
   # output
   print $self->create_http_response(content_type => 'text/html', charset => $db_charset);
   print "<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.01//EN' 'http://www.w3.org/TR/html4/strict.dtd'>\n"
@@ -680,6 +693,7 @@ EOT
 
   </script>
   $extra_code
+  $title_hack
  </head>
 
 EOT
