Rose::DB::Object kennt "remarks" nicht; und in Standard-Unstable haben die DB-Spalten...

[mfinanz.git] / SL / Form.pm

diff --git a/SL/Form.pm b/SL/Form.pm
index 55b6f695dc0abd257f3fec7ca6591af8eeee6d34..fad6e8ea68504755175478f06cb7c457832ba5d3 100644 (file)
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -268,7 +268,7 @@ sub new {
   #$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;                                                  
+  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();
@@ -475,7 +475,7 @@ sub info {
 
     print qq|
     <p class="message_ok"><b>$msg</b></p>
-    
+
     <script type="text/javascript">
     <!--
     // If JavaScript is enabled, the whole thing will be reloaded.
@@ -484,7 +484,7 @@ sub info {
     setTimeout("top.frames.location.href='login.pl'",500);
     //-->
     </script>
-    
+
 </body>
     |;
 
@@ -672,14 +672,19 @@ 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>
-    |;
+  # 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>
+               |;
+       }
 
     #Set Calendar
     my $jsscript = "";
@@ -718,7 +723,7 @@ sub header {
   $ajax
   $fokus
   $title_hack
-  
+
   <link rel="stylesheet" href="css/jquery.autocomplete.css" type="text/css" />
 
   <meta name="robots" content="noindex,nofollow" />