X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fgl.pl;h=dc9238a34877afa0a45f45269cb4431ba1a916f5;hb=860bcda0f04f99d1f832b518011eb278520f1afe;hp=4417615e1b25a1d8e33e2fd718ed02e572918725;hpb=c7f9bb36eb122b2d79f5aa8c4d080279705ddc7e;p=kivitendo-erp.git
diff --git a/bin/mozilla/gl.pl b/bin/mozilla/gl.pl
index 4417615e1..dc9238a34 100644
--- a/bin/mozilla/gl.pl
+++ b/bin/mozilla/gl.pl
@@ -31,15 +31,15 @@
#
#======================================================================
-
use SL::GL;
use SL::PE;
require "$form->{path}/arap.pl";
+require "bin/mozilla/common.pl";
1;
-# end of main
+# end of main
# this is for our long dates
# $locale->text('January')
@@ -69,144 +69,192 @@ require "$form->{path}/arap.pl";
# $locale->text('Nov')
# $locale->text('Dec')
-
sub add {
+ $lxdebug->enter_sub();
$form->{title} = "Add";
-
- $form->{callback} = "$form->{script}?action=add&path=$form->{path}&login=$form->{login}&password=$form->{password}" unless $form->{callback};
+
+ $form->{callback} =
+ "$form->{script}?action=add&path=$form->{path}&login=$form->{login}&password=$form->{password}"
+ unless $form->{callback};
# we use this only to set a default date
GL->transaction(\%myconfig, \%$form);
- map { $chart .= "" } @{ $form->{chart} };
- map { $tax .= qq|