From 12e513005cda066d28dd1ed69439e916906cfbd3 Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Tue, 28 Dec 2010 13:48:46 +0100
Subject: [PATCH] Seitentitel via JavaScript setzen
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

Stammt ursprÃ¼nglich aus
3cf46a171f748ecacb6fa0bf1e1df81c227fb117 ("Teil 1 von: Usability und
Lokalisierung de und de_DE (neu)") und wurde in
50365526 ("Form::header") Ã¼berschrieben.
---
 SL/Form.pm | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
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
-- 
2.20.1

