From 6b293028a4c1f27bcb07c665a4f43f5362debf1f Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Thu, 24 May 2007 06:38:25 +0000
Subject: [PATCH] =?utf8?q?Die=20Funtktionen=20save=5Fform()=20und=20restor?=
 =?utf8?q?e=5Fform()=20aus=20common.pl=20in=20ein=20eigenes=20Modul=20verl?=
 =?utf8?q?agert,=20das=20sie=20auch=20automatisch=20in=20den=20Namensraum?=
 =?utf8?q?=20des=20Aufrufers=20exportiert.=20Damit=20k=C3=B6nnen=20sie=20a?=
 =?utf8?q?uch=20von=20den=20Modulen=20in=20SL/=20benutzt=20werden.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 SL/MoreCommon.pm      | 42 ++++++++++++++++++++++++++++++++++++++++++
 bin/mozilla/common.pl | 31 +------------------------------
 2 files changed, 43 insertions(+), 30 deletions(-)
 create mode 100644 SL/MoreCommon.pm

diff --git a/SL/MoreCommon.pm b/SL/MoreCommon.pm
new file mode 100644
index 000000000..196702c22
--- /dev/null
+++ b/SL/MoreCommon.pm
@@ -0,0 +1,42 @@
+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);
+  $old_form =~ s|!|!!|g;
+  $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;
+  $old_form =~ s|!!|!|g;
+
+  my $new_form = YAML::Load($old_form);
+  map { $form->{$_} = $new_form->{$_}; } keys %{$new_form};
+
+  $main::lxdebug->leave_sub();
+}
+
+1;
diff --git a/bin/mozilla/common.pl b/bin/mozilla/common.pl
index 7c8b1e5f1..47de5b044 100644
--- a/bin/mozilla/common.pl
+++ b/bin/mozilla/common.pl
@@ -10,37 +10,8 @@
 ######################################################################
 
 use SL::Form;
-use YAML;
-
 use SL::Common;
-
-sub save_form {
-  $lxdebug->enter_sub();
-
-  my $old_form = YAML::Dump($form);
-  $old_form =~ s|!|!!|g;
-  $old_form =~ s|\n|!n|g;
-  $old_form =~ s|\r|!r|g;
-
-  $lxdebug->leave_sub();
-
-  return $old_form;
-}
-
-sub restore_form {
-  $lxdebug->enter_sub();
-
-  my ($old_form, $no_delete) = @_;
-
-  map({ delete($form->{$_}); } keys(%{$form})) unless ($no_delete);
-  $old_form =~ s|!r|\r|g;
-  $old_form =~ s|!n|\n|g;
-  $old_form =~ s|!!|!|g;
-  my $new_form = YAML::Load($old_form);
-  map({ $form->{$_} = $new_form->{$_}; } keys(%{$new_form}));
-
-  $lxdebug->leave_sub();
-}
+use SL::MoreCommon;
 
 sub build_std_url {
   $lxdebug->enter_sub();
-- 
2.39.5