X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/805bd93013dc4ec6d0f5504ea25b7cf58359fda2..b9f6d2f5eb8fed1feae2554af76a4f1bebce3e87:/bin/mozilla/drafts.pl

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';