Hilfsfunktionen fuer die Frontendmodule.

diff --git a/bin/mozilla/common.pl b/bin/mozilla/common.pl
new file mode 100644 (file)
index 0000000..429a1ec
--- /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 (file)
index 0000000..5fd108e
--- /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;