#
#======================================================================
+use YAML;
+
use SL::Drafts;
require "bin/mozilla/common.pl";
delete($form->{action});
$form->{DONT_LOAD_DRAFT} = 1;
- &{ $draft_nextsub }();
+ call_sub($draft_nextsub);
$lxdebug->leave_sub();
}
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';