From b9f6d2f5eb8fed1feae2554af76a4f1bebce3e87 Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Wed, 30 May 2007 15:12:06 +0000
Subject: [PATCH 1/1] =?utf8?q?Beim=20Laden=20von=20Entw=C3=BCrfen=20nicht?=
 =?utf8?q?=20restore=5Fform()=20benutzen,=20weil=20restore=5Fform()=20erwa?=
 =?utf8?q?rtet,=20dass=20der=20=C3=BCbergebene=20String=20wie=20von=20save?=
 =?utf8?q?=5Fform()=20escapet=20wurde=20(Zeilenumbr=C3=BCche=20und=20"!"?=
 =?utf8?q?=20werden=20umcodiert).=20Das=20ist=20aber=20bei=20Entw=C3=BCrfe?=
 =?utf8?q?n=20nicht=20der=20Fall,=20weil=20die=20Ausgabe=20von=20YAML::Dum?=
 =?utf8?q?p()=20direkt=20in=20der=20Datenbank=20gespeichert=20wird.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 bin/mozilla/drafts.pl | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/bin/mozilla/drafts.pl b/bin/mozilla/drafts.pl
index 18af531f2..b575715ce 100644
--- a/bin/mozilla/drafts.pl
+++ b/bin/mozilla/drafts.pl
@@ -7,6 +7,8 @@
 #
 #======================================================================
 
+use YAML;
+
 use SL::Drafts;
 
 require "bin/mozilla/common.pl";
@@ -98,7 +100,8 @@ sub load_draft {
 
   my ($old_form, $id, $description) = Drafts->load(\%myconfig, $form, $form->{id});
   if ($old_form) {
-    restore_form($old_form, 1);
+    $old_form = YAML::Load($old_form);
+    @{$form}{keys %{ $old_form } } = @{$old_form}{keys %{ $old_form } };
     $form->{draft_id} = $id;
     $form->{draft_description} = $description;
     $form->{remove_draft} = 'checked';
-- 
2.20.1