X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fgl.pl;h=f56a9a75488fa7188249df6551233f209e83d376;hb=ee56f1b20ab915671ded297f593c0e2e245bad70;hp=f17680865a5f9a68b81af25e8f580ed53e796e1a;hpb=134ecd713fae927536c69259fbd3489f0925fc3f;p=kivitendo-erp.git
diff --git a/bin/mozilla/gl.pl b/bin/mozilla/gl.pl
index f17680865..f56a9a754 100644
--- a/bin/mozilla/gl.pl
+++ b/bin/mozilla/gl.pl
@@ -24,22 +24,30 @@
# GNU General Public License for more details.
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
-# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
+# MA 02110-1335, USA.
#======================================================================
#
# Genereal Ledger
#
#======================================================================
-use SL::GL;
-use SL::PE;
+use utf8;
+use strict;
-require "$form->{path}/arap.pl";
-require "bin/mozilla/common.pl";
+use POSIX qw(strftime);
+use List::Util qw(sum);
-1;
+use SL::FU;
+use SL::GL;
+use SL::IS;
+use SL::ReportGenerator;
+use SL::DBUtils qw(selectrow_query selectall_hashref_query);
+use SL::Webdav;
+use SL::Locale::String qw(t8);
-# end of main
+require "bin/mozilla/common.pl";
+require "bin/mozilla/reportgenerator.pl";
# this is for our long dates
# $locale->text('January')
@@ -70,92 +78,55 @@ require "bin/mozilla/common.pl";
# $locale->text('Dec')
sub add {
- $lxdebug->enter_sub();
+ $main::lxdebug->enter_sub();
+
+ $main::auth->assert('gl_transactions');
+
+ my $form = $main::form;
+ my %myconfig = %main::myconfig;
$form->{title} = "Add";
- $form->{callback} =
- "$form->{script}?action=add&path=$form->{path}&login=$form->{login}&password=$form->{password}"
- unless $form->{callback};
+ $form->{callback} = "gl.pl?action=add" unless $form->{callback};
# we use this only to set a default date
+ # yep. aber er holt hier auch schon ALL_CHARTS. Aufwand / Nutzen? jb
GL->transaction(\%myconfig, \%$form);
- map {
- $chart .=
- ""
- } @{ $form->{chart} };
- map {
- $tax .=
- qq|"
- } @{ $form->{chart} };
+ $main::auth->assert('gl_transactions');
- map {
- $tax .=
- qq|