mehrere Verbesserungen an Form.pm

  * automatisches Neuladen des gesamten Framesets, um sicher zu gehen, dass z.B. die gewählte Menü-Variante
    nach Speichern in Einstellungen auch verwendet wird.
  * Version wird aus der Datei VERSION gelesen und ist nicht mehr in Form.pl hartkodiert.
    Das VERSION-file sollte Mode 600, besser 400 haben.
  * Javascript schreibt den richtigen Titel-Tag. Damit kann man seine vielen Tabs auch auseinanderhalten.
    Habe zurzeit keine Idee wie das besser gemacht werden kann.
  * "Administrationsbereich" heißt jetzt "Administration". Glücklich bin ich damit trotzdem noch nicht.
  * VERSION-Datei auf 2.6.1-dev geändert, damit man beim Testen auch erkennt womit man arbeitet ;-)
    Könnte auch 2.6.1-unstable heißen.

diff --git a/SL/Form.pm b/SL/Form.pm
index 707540e..55b6f69 100644 (file)
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -265,7 +265,11 @@ sub new {
   $self->{action}  =  lc $self->{action};
   $self->{action}  =~ s/( |-|,|\#)/_/g;
 
-  $self->{version} =  "2.6.1";
+  #$self->{version} =  "2.6.1";                 # Old hardcoded but secure style
+  open VERSION_FILE, "VERSION";                 # New but flexible code reads version from VERSION-file
+  $self->{version} =  <VERSION_FILE>;
+  close VERSION_FILE;                                                  
+  $self->{version}  =~ s/[^0-9A-Za-z\.\_\-]//g; # only allow numbers, letters, points, underscores and dashes. Prevents injecting of malicious code.
 
   $main::lxdebug->leave_sub();
 
@@ -474,7 +478,10 @@ sub info {
     
     <script type="text/javascript">
     <!--
-    setTimeout("parent.frames.main_window.location.href='login.pl?action=company_logo'",1000);
+    // If JavaScript is enabled, the whole thing will be reloaded.
+    // The reason is: When one changes his menu setup (HTML / XUL / CSS ...)
+    // it now loads the correct code into the browser instead of do nothing.
+    setTimeout("top.frames.location.href='login.pl'",500);
     //-->
     </script>
     
@@ -665,6 +672,15 @@ sub header {
     </script>
     | if $self->{"fokus"};
 
+    my $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| - Ver. | . $self->{"version"} . qq|";
+    //-->
+    </script>
+    |;
+
     #Set Calendar
     my $jsscript = "";
     if ($self->{jsscript} == 1) {
@@ -700,9 +716,9 @@ sub header {
   $favicon
   $jsscript
   $ajax
-
   $fokus
-
+  $title_hack
+  
   <link rel="stylesheet" href="css/jquery.autocomplete.css" type="text/css" />
 
   <meta name="robots" content="noindex,nofollow" />

diff --git a/VERSION b/VERSION
index 6a6a3d8..8e41575 100644 (file)
--- a/VERSION
+++ b/VERSION
@@ -1 +1 @@
-2.6.1
+2.6.1-dev

diff --git a/locale/de/all b/locale/de/all
index 3b8685c..7a8e904 100644 (file)
--- a/locale/de/all
+++ b/locale/de/all
@@ -159,7 +159,7 @@ $self->{texts} = {
   'Add unit'                    => 'Einheit hinzufügen',
   'Address'                     => 'Adresse',
   'Administration'              => 'Administration',
-  'Administration area'         => 'Administrationsbereich',
+  'Administration area'         => 'Administration',
   'Advance turnover tax return' => 'Umsatzsteuervoranmeldung',
   'Aktion'                      => 'Aktion',
   'All'                         => 'Alle',