Revision b9f6d2f5
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| bin/mozilla/drafts.pl | ||
|---|---|---|
| 7 | 7 |
# |
| 8 | 8 |
#====================================================================== |
| 9 | 9 |
|
| 10 |
use YAML; |
|
| 11 |
|
|
| 10 | 12 |
use SL::Drafts; |
| 11 | 13 |
|
| 12 | 14 |
require "bin/mozilla/common.pl"; |
| ... | ... | |
| 98 | 100 |
|
| 99 | 101 |
my ($old_form, $id, $description) = Drafts->load(\%myconfig, $form, $form->{id});
|
| 100 | 102 |
if ($old_form) {
|
| 101 |
restore_form($old_form, 1); |
|
| 103 |
$old_form = YAML::Load($old_form); |
|
| 104 |
@{$form}{keys %{ $old_form } } = @{$old_form}{keys %{ $old_form } };
|
|
| 102 | 105 |
$form->{draft_id} = $id;
|
| 103 | 106 |
$form->{draft_description} = $description;
|
| 104 | 107 |
$form->{remove_draft} = 'checked';
|
Auch abrufbar als: Unified diff
Beim Laden von Entwürfen nicht restore_form() benutzen, weil restore_form() erwartet, dass der übergebene String wie von save_form() escapet wurde (Zeilenumbrüche und "!" werden umcodiert). Das ist aber bei Entwürfen nicht der Fall, weil die Ausgabe von YAML::Dump() direkt in der Datenbank gespeichert wird.