From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Tue, 29 May 2007 14:37:36 +0000 (+0000)
Subject: Das Escapen von Ausrufezeichen darf nicht durch zwei Ausrufezeichen geschehen, weil... 
X-Git-Tag: release-2.4.3^2~237
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=2051590296cad6f6037c5dae5f20993d43953c9d;p=kivitendo-erp.git

Das Escapen von Ausrufezeichen darf nicht durch zwei Ausrufezeichen geschehen, weil die Rückwandlung sonst eventuell falsch verläuft.
Beispiel:
abc!nop -> abc!!nop -> abc!\nop
---

diff --git a/SL/MoreCommon.pm b/SL/MoreCommon.pm
index 196702c22..9669cddb3 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};