From: Sven Schöling <s.schoeling@linet-services.de>
Date: Wed, 28 Oct 2009 16:12:01 +0000 (+0100)
Subject: bugs die durch strict aufgedeckt wurden.
X-Git-Tag: release-2.6.1beta1~144
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=134120bca7ac33d80c09afb5cabe25a1c1a73e8f;p=kivitendo-erp.git

bugs die durch strict aufgedeckt wurden.
---

diff --git a/SL/AP.pm b/SL/AP.pm
index f5dd45ece..7b5a46150 100644
--- a/SL/AP.pm
+++ b/SL/AP.pm
@@ -475,7 +475,7 @@ sub ap_transactions {
   }
 
   my @a = qw(transdate invnumber name);
-  push @a, "employee" if $self->{l_employee};
+  push @a, "employee" if $form->{l_employee};
   my $sortdir   = !defined $form->{sortdir} ? 'ASC' : $form->{sortdir} ? 'ASC' : 'DESC';
   my $sortorder = join(', ', map { "$_ $sortdir" } @a);
 
diff --git a/bin/mozilla/licenses.pl b/bin/mozilla/licenses.pl
index 591608b45..6fe4f764e 100644
--- a/bin/mozilla/licenses.pl
+++ b/bin/mozilla/licenses.pl
@@ -71,7 +71,7 @@ sub form_footer {
   my $form     = $main::form;
 
   my @items = qw(old_callback previousform);
-  push(@items, @{ $form->{"hidden"} });
+  push @items, @{ $form->{"hidden"} } if ref $form->{hidden} eq 'ARRAY';
   map({
       print("<input type=hidden name=$_ value=\"" . quot($form->{$_}) . "\">\n"
       );