Globale Variablen entfernt/umgewandelt.

[kivitendo-erp.git] / bin / mozilla / kopf.pl

diff --git a/bin/mozilla/kopf.pl b/bin/mozilla/kopf.pl
index 3e01a31..1b72e46 100644 (file)
--- 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;
+
 #