X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fkopf.pl;h=1b72e46b15276d76587d3a43961873c01304b078;hb=24b6b41bbc19de53e40315124350df14314c6fd6;hp=3e01a31a04935c8626aa1e0266e3c04a46124a28;hpb=b65a230d60e86d2c18a3ab7222379905aea5ecd7;p=kivitendo-erp.git

diff --git a/bin/mozilla/kopf.pl b/bin/mozilla/kopf.pl
index 3e01a31a0..1b72e46b1 100644
--- a/bin/mozilla/kopf.pl
+++ b/bin/mozilla/kopf.pl
@@ -1,12 +1,15 @@
 #!/usr/bin/perl
 #
 
-$| = 1;
+#$| = 1;
 
-use CGI::Carp qw(fatalsToBrowser);
+#use CGI::Carp qw(fatalsToBrowser);
 
 use strict;
 
+sub run {
+  my $session_result = shift;
+
 my $form     = $main::form;
 my $locale   = $main::locale;
 
@@ -108,7 +111,12 @@ print qq|
 
 <table border="0" width="100%" background="image/bg_titel.gif" cellpadding="0" cellspacing="0">
   <tr>
-    <td  style="color:white; font-family:verdana,arial,sans-serif; font-size: 12px;"> &nbsp; [<a href="JavaScript:top.main_window.print()">| . $locale->text('drucken') . qq|</a>]</td>
+    <td  style="color:white; font-family:verdana,arial,sans-serif; font-size: 12px;"> 
+      &nbsp;[<a href="JavaScript:top.main_window.print();" title="| . $locale->text('Hardcopy') . qq|">| . $locale->text('Print') . qq|</a>]
+      &nbsp;[<a HREF="login.pl" target="_blank" "title="| . $locale->text('Open a further Lx-Office Window or Tab') . qq|">| . $locale->text('New Win/Tab') . qq|</a>]
+      &nbsp;[<a href="Javascript:top.main_window.history.back();" title="| . $locale->text('Go one step back') . qq|">| . $locale->text('Back') . qq|</a>] 
+      <!-- is there a better solution for Back? Possibly with the callback variable? -->
+    </td>
     <td align="right" style="vertical-align:middle; color:white; font-family:verdana,arial,sans-serif; font-size: 12px;" nowrap>|
   . $login . $datum . qq| <script>writeclock()</script>&nbsp;
     </td>
@@ -118,4 +126,8 @@ print qq|
 </html>
 |;
 
+}
+
+1;
+
 #