Das DBUpdate für Oesterreich lief nicht auf Postgres > 8.1. Fixed.

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

index 2236a94ee616ba5b61509bd54b7dff8a933d1b21..a926b3cdd9c63433bc768afb1eeba4322e8210fb 100644 (file)
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -380,6 +380,12 @@ sub header {
    my ($stylesheet, $favicon);
  
    if ($ENV{HTTP_USER_AGENT}) {
+    my $doctype;
+
+    if ($ENV{'HTTP_USER_AGENT'} =~ m/MSIE\s+\d/) {
+      # Only set the DOCTYPE for Internet Explorer. Other browsers have problems displaying the menu otherwise.
+      $doctype = qq|<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">\n|;
+    }
  
      my $stylesheets = "$self->{stylesheet} $self->{stylesheets}";
  
@@ -433,8 +439,7 @@ sub header {
      }
      print qq|Content-Type: text/html; charset=${db_charset};
  
-<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
-<html>
+${doctype}<html>
  <head>
    <title>$self->{titlebar}</title>
    $stylesheet
@@ -586,6 +591,7 @@ sub parse_html_template2 {
                                   'EVAL_PERL'   => 0,
                                   'ABSOLUTE'    => 1,
                                   'CACHE_SIZE'  => 0,
+                                 'PLUGIN_BASE' => 'SL::Template::Plugin',
                                 }) || die;
  
    map { $additional_params->{$_} ||= $self->{$_} } keys %{ $self };
@@ -1865,11 +1871,12 @@ $main::lxdebug->enter_sub();
  sub _get_customers {
    $main::lxdebug->enter_sub();
  
-  my ($self, $dbh, $key) = @_;
+  my ($self, $dbh, $key, $limit) = @_;
  
    $key = "all_customers" unless ($key);
+  $limit_clause = "LIMIT $limit" if $limit;
  
-  my $query = qq|SELECT * FROM customer WHERE NOT obsolete ORDER BY name|;
+  my $query = qq|SELECT * FROM customer WHERE NOT obsolete ORDER BY name $limit_clause|;
  
    $self->{$key} = selectall_hashref_query($self, $dbh, $query);
  
@@ -1985,11 +1992,19 @@ sub get_lists {
    }
    
    if($params{"customers"}) {
-    $self->_get_customers($dbh, $params{"customers"});
+    if (ref $params{"customers"} eq 'HASH') {
+      $self->_get_customers($dbh, $params{"customers"}{key}, $params{"customers"}{limit});
+    } else {
+      $self->_get_customers($dbh, $params{"customers"});
+    }
    }
    
    if($params{"vendors"}) {
-    $self->_get_vendors($dbh, $params{"vendors"});
+    if (ref $params{"vendors"} eq 'HASH') {
+      $self->_get_vendors($dbh, $params{"vendors"}{key}, $params{"vendors"}{limit});
+    } else {
+      $self->_get_vendors($dbh, $params{"vendors"});
+    }
    }
    
    if($params{"payments"}) {