bin/mozilla/common.pl

   1 #=====================================================================
   2 # LX-Office ERP
   3 # Copyright (C) 2004
   4 # Based on SQL-Ledger Version 2.1.9
   5 # Web http://www.lx-office.org
   6 ######################################################################
   7 #
   8 # Stuff that can be used from other modules
   9 #
  10 ######################################################################
  11
  12 use Data::Dumper;
  13
  14 sub save_form {
  15   $lxdebug->enter_sub();
  16
  17   my (@names, @values);
  18   foreach my $key (keys(%{$form})) {
  19     push(@names, "\$form->{\"$key\"}");
  20     push(@values, $form->{$key});
  21   }
  22   my $dumper = Data::Dumper->new(\@values, \@names);
  23   $dumper->Indent(0);
  24   my $old_form = $dumper->Dump();
  25
  26   $lxdebug->leave_sub();
  27
  28   return $old_form;
  29 }
  30
  31 sub restore_form {
  32   $lxdebug->enter_sub();
  33
  34   my ($old_form, $no_delete) = @_;
  35
  36   map({ delete($form->{$_}); } keys(%{$form})) unless ($no_delete);
  37   eval($old_form);
  38
  39   $lxdebug->leave_sub();
  40 }
  41
  42 sub H {
  43   return $form->quote_html($_[0]);
  44 }
  45
  46 1;