X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fgl.pl;h=518e430527f3a325d2d37d1a52e66fd2259dbbdc;hb=3a94f4d2dd9a835d4a7007e1b999ea00b3c4e1cd;hp=e642f7e420594973debe96e77194953cc5837a9e;hpb=a873249c8c3c32006540d8636102c195dd4d9448;p=kivitendo-erp.git diff --git a/bin/mozilla/gl.pl b/bin/mozilla/gl.pl index e642f7e42..518e43052 100644 --- a/bin/mozilla/gl.pl +++ b/bin/mozilla/gl.pl @@ -31,6 +31,9 @@ # #====================================================================== +use utf8; +use strict; + use POSIX qw(strftime); use List::Util qw(sum); @@ -44,8 +47,6 @@ require "bin/mozilla/common.pl"; require "bin/mozilla/drafts.pl"; require "bin/mozilla/reportgenerator.pl"; -use strict; - # this is for our long dates # $locale->text('January') # $locale->text('February') @@ -817,8 +818,8 @@ sub display_rows { my %charts = (); my $taxchart_init; foreach my $item (@{ $form->{ALL_CHARTS} }) { - if ($item->{charttype} eq 'H'){ #falls überschrift - next; #überspringen (Bug 1150) + if ($item->{charttype} eq 'H'){ #falls überschrift + next; #überspringen (Bug 1150) } my $key = $item->{accno} . "--" . $item->{tax_id}; $taxchart_init = $item->{tax_id} unless (@chart_values); @@ -1333,7 +1334,7 @@ $follow_ups_block print qq||; } - # Löschen und Ändern von Buchungen nicht mehr möglich (GoB) nur am selben Tag möglich + # Löschen und Ändern von Buchungen nicht mehr möglich (GoB) nur am selben Tag möglich if (!$form->{locked} && $radieren) { print qq| @@ -1609,7 +1610,7 @@ sub post { remove_draft() if $form->{remove_draft}; - $form->{callback} = build_std_url("action=add", "show_details"); + $form->{callback} = build_std_url("action=add&DONT_LOAD_DRAFT=1", "show_details"); $form->redirect($form->{callback}); $main::lxdebug->leave_sub();