kivitendo/SL/MoreCommon.pm @ b262a6e8
| 6b293028 | Moritz Bunkus | package SL::MoreCommon;
|
||
require Exporter;
|
||||
@ISA = qw(Exporter);
|
||||
@EXPORT = qw(save_form restore_form);
|
||||
use YAML;
|
||||
sub save_form {
|
||||
$main::lxdebug->enter_sub();
|
||||
my $old_form = YAML::Dump($main::form);
|
||||
| 20515902 | Moritz Bunkus | $old_form =~ s|!|!:|g;
|
||
| 6b293028 | Moritz Bunkus | $old_form =~ s|\n|!n|g;
|
||
$old_form =~ s|\r|!r|g;
|
||||
$main::lxdebug->leave_sub();
|
||||
return $old_form;
|
||||
}
|
||||
sub restore_form {
|
||||
$main::lxdebug->enter_sub();
|
||||
my ($old_form, $no_delete) = @_;
|
||||
my $form = $main::form;
|
||||
map { delete $form->{$_}; } keys %{$form} unless ($no_delete);
|
||||
$old_form =~ s|!r|\r|g;
|
||||
$old_form =~ s|!n|\n|g;
|
||||
| 805bd930 | Moritz Bunkus | $old_form =~ s|![!:]|!|g;
|
||
| 6b293028 | Moritz Bunkus | |||
my $new_form = YAML::Load($old_form);
|
||||
map { $form->{$_} = $new_form->{$_}; } keys %{$new_form};
|
||||
$main::lxdebug->leave_sub();
|
||||
}
|
||||
1;
|