From ed42de15a13ad4cea92e7f744c8741c7a868bd7c Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Tue, 7 Nov 2006 11:08:20 +0000
Subject: [PATCH] Hilfsfunktionen fuer die Frontendmodule.

---
 bin/mozilla/common.pl | 46 +++++++++++++++++++++++++++++++++++++++++++
 locale/de/common      | 10 ++++++++++
 2 files changed, 56 insertions(+)
 create mode 100644 bin/mozilla/common.pl
 create mode 100644 locale/de/common

diff --git a/bin/mozilla/common.pl b/bin/mozilla/common.pl
new file mode 100644
index 000000000..429a1ec6b
--- /dev/null
+++ b/bin/mozilla/common.pl
@@ -0,0 +1,46 @@
+#=====================================================================
+# LX-Office ERP
+# Copyright (C) 2004
+# Based on SQL-Ledger Version 2.1.9
+# Web http://www.lx-office.org
+######################################################################
+#
+# Stuff that can be used from other modules
+#
+######################################################################
+
+use Data::Dumper;
+
+sub save_form {
+  $lxdebug->enter_sub();
+
+  my (@names, @values);
+  foreach my $key (keys(%{$form})) {
+    push(@names, "\$form->{\"$key\"}");
+    push(@values, $form->{$key});
+  }
+  my $dumper = Data::Dumper->new(\@values, \@names);
+  $dumper->Indent(0);
+  my $old_form = $dumper->Dump();
+
+  $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);
+  eval($old_form);
+
+  $lxdebug->leave_sub();
+}
+
+sub H {
+  return $form->quote_html($_[0]);
+}
+
+1;
diff --git a/locale/de/common b/locale/de/common
new file mode 100644
index 000000000..5fd108e7a
--- /dev/null
+++ b/locale/de/common
@@ -0,0 +1,10 @@
+$self{texts} = {
+};
+
+$self{subs} = {
+  'H'                           => 'H',
+  'restore_form'                => 'restore_form',
+  'save_form'                   => 'save_form',
+};
+
+1;
-- 
2.20.1