From 17a8e2bbdba1c715abdb106a0819cf913cdf6fb6 Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Wed, 6 May 2009 08:33:58 +0000
Subject: [PATCH] =?utf8?q?Variablen=20zwischenspeichern=20und=20wiederhers?=
 =?utf8?q?tellen,=20sofern=20sie=20existieren,=20auch=20wenn=20sie=20undef?=
 =?utf8?q?iniert=20sind.=20Bugfix=20f=C3=BCr=20diesen=20Fall:=20Angebot=20?=
 =?utf8?q?mit=20einem=20Kunden,=20der=20beim=20Kunden=20eine=20Sprache=20h?=
 =?utf8?q?interlegt=20hat.=20Angebot=20hat=20explizit=20keine=20Sprache=20?=
 =?utf8?q?ausgew=C3=A4hlt=20und=20wurde=20gespeichert.=20Wenn=20man=20das?=
 =?utf8?q?=20Angebot=20aufruft,=20wurde=20ohne=20diese=20=C3=84nderung=20n?=
 =?utf8?q?un=20wieder=20die=20beim=20Kunden=20hinterlegte=20Sprache=20ausg?=
 =?utf8?q?ew=C3=A4hlt.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

Bugfix für 744.
---
 SL/Form.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/SL/Form.pm b/SL/Form.pm
index 525d7329e..2d4d5e432 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -3383,7 +3383,7 @@ sub backup_vars {
   my $self = shift;
   my @vars = @_;
 
-  map { $self->{_VAR_BACKUP}->{$_} = $self->{$_} if $self->{$_} } @vars;
+  map { $self->{_VAR_BACKUP}->{$_} = $self->{$_} if exists $self->{$_} } @vars;
 
   $main::lxdebug->leave_sub();
 }
@@ -3394,7 +3394,7 @@ sub restore_vars {
   my $self = shift;
   my @vars = @_;
 
-  map { $self->{$_} = $self->{_VAR_BACKUP}->{$_} if $self->{_VAR_BACKUP}->{$_} } @vars;
+  map { $self->{$_} = $self->{_VAR_BACKUP}->{$_} if exists $self->{_VAR_BACKUP}->{$_} } @vars;
 
   $main::lxdebug->leave_sub();
 }
-- 
2.20.1