Merge branch 'master' of ssh://lx-office.linet-services.de/~/lx-office-erp

[kivitendo-erp.git] / SL / Form.pm
diff --git a/SL/Form.pm b/SL/Form.pm

index 4360c07..7b7746d 100644 (file)
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -643,7 +643,7 @@ sub header {
    push @header, "<link rel='shortcut icon' href='$self->{favicon}' type='image/x-icon'>" if -f $self->{favicon};
    push @header, '<script type="text/javascript" src="js/jquery.js"></script>',
                  '<script type="text/javascript" src="js/common.js"></script>',
-                '<style type="text/css">\@import url(js/jscalendar/calendar-win2k-1.css);</style>',
+                '<style type="text/css">@import url(js/jscalendar/calendar-win2k-1.css);</style>',
                  '<script type="text/javascript" src="js/jscalendar/calendar.js"></script>',
                  '<script type="text/javascript" src="js/jscalendar/lang/calendar-de.js"></script>',
                  '<script type="text/javascript" src="js/jscalendar/calendar-setup.js"></script>',
@@ -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
@@ -3504,9 +3518,7 @@ Points of interest for a beginner are:
  
  =head1 SPECIAL FUNCTIONS
  
-=over 4
-
-=item _store_value()
+=head2 C<_store_value()>
  
  parses a complex var name, and stores it in the form.
  
@@ -3561,7 +3573,7 @@ supported key structures are:
  
    filter.status[]  => $form->{status}->[ val1, val2, ... ]
  
-=item update_business PARAMS
+=head2 C<update_business> PARAMS
  
  PARAMS (not named):
   \%config,     - config hashref
@@ -3573,7 +3585,7 @@ handles business (thats customer/vendor types) sequences.
  special behaviour for empty strings in customerinitnumber field:
  will in this case not increase the value, and return undef.
  
-=item redirect_header $url
+=head2 C<redirect_header> $url
  
  Generates a HTTP redirection header for the new C<$url>. Constructs an
  absolute URL including scheme, host name and port. If C<$url> is a
@@ -3587,6 +3599,45 @@ Examples:
    print $::form->redirect_header('oe.pl?action=edit&id=1234');
    print $::form->redirect_header('http://www.lx-office.org/');
  
+=head2 C<header>
+
+Generates a general purpose http/html header and includes most of the scripts
+ans stylesheets needed.
+
+Only one header will be generated. If the method was already called in this
+request it will not output anything and return undef. Also if no
+HTTP_USER_AGENT is found, no header is generated.
+
+Although header does not accept parameters itself, it will honor special
+hashkeys of its Form instance:
+
+=over 4
+
+=item refresh_time
+
+=item refresh_url
+
+If one of these is set, a http-equiv refresh is generated. Missing parameters
+default to 3 seconds and the refering url.
+
+=item stylesheet
+
+=item stylesheets
+
+If these are arrayrefs the contents will be inlined into the header.
+
+=item landscape
+
+If true, a css snippet will be generated that sets the page in landscape mode.
+
+=item favicon
+
+Used to override the default favicon.
+
+=item title
+
+A html page title will be generated from this
+
  =back
  
  =cut