X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FMoreCommon.pm;h=b0b64d155ab7d8ca17b03748f84b65bd44a69caa;hb=c9b8ad08645675a40f96bdeaa23b1d0e62d772e6;hp=196702c221a57ce914bafc182ba45b69cc3171a5;hpb=6b293028a4c1f27bcb07c665a4f43f5362debf1f;p=kivitendo-erp.git diff --git a/SL/MoreCommon.pm b/SL/MoreCommon.pm index 196702c22..b0b64d155 100644 --- a/SL/MoreCommon.pm +++ b/SL/MoreCommon.pm @@ -11,7 +11,7 @@ sub save_form { $main::lxdebug->enter_sub(); my $old_form = YAML::Dump($main::form); - $old_form =~ s|!|!!|g; + $old_form =~ s|!|!:|g; $old_form =~ s|\n|!n|g; $old_form =~ s|\r|!r|g; @@ -31,7 +31,7 @@ sub restore_form { $old_form =~ s|!r|\r|g; $old_form =~ s|!n|\n|g; - $old_form =~ s|!!|!|g; + $old_form =~ s|![!:]|!|g; my $new_form = YAML::Load($old_form); map { $form->{$_} = $new_form->{$_}; } keys %{$new_form};