Revision 05c6840d
Von Moritz Bunkus vor fast 14 Jahren hinzugefügt
| bin/mozilla/gl.pl | ||
|---|---|---|
| 31 | 31 |
# |
| 32 | 32 |
#====================================================================== |
| 33 | 33 |
|
| 34 |
use utf8; |
|
| 35 |
use strict; |
|
| 36 |
|
|
| 34 | 37 |
use POSIX qw(strftime); |
| 35 | 38 |
use List::Util qw(sum); |
| 36 | 39 |
|
| ... | ... | |
| 44 | 47 |
require "bin/mozilla/drafts.pl"; |
| 45 | 48 |
require "bin/mozilla/reportgenerator.pl"; |
| 46 | 49 |
|
| 47 |
use strict; |
|
| 48 |
|
|
| 49 | 50 |
# this is for our long dates |
| 50 | 51 |
# $locale->text('January')
|
| 51 | 52 |
# $locale->text('February')
|
| ... | ... | |
| 817 | 818 |
my %charts = (); |
| 818 | 819 |
my $taxchart_init; |
| 819 | 820 |
foreach my $item (@{ $form->{ALL_CHARTS} }) {
|
| 820 |
if ($item->{charttype} eq 'H'){ #falls ?berschrift
|
|
| 821 |
next; #?berspringen (Bug 1150)
|
|
| 821 |
if ($item->{charttype} eq 'H'){ #falls überschrift
|
|
| 822 |
next; #überspringen (Bug 1150)
|
|
| 822 | 823 |
} |
| 823 | 824 |
my $key = $item->{accno} . "--" . $item->{tax_id};
|
| 824 | 825 |
$taxchart_init = $item->{tax_id} unless (@chart_values);
|
| ... | ... | |
| 1333 | 1334 |
print qq|<input class=submit type=submit name=action value="| . $locale->text('Storno') . qq|">|;
|
| 1334 | 1335 |
} |
| 1335 | 1336 |
|
| 1336 |
# L?schen und ?ndern von Buchungen nicht mehr m?glich (GoB) nur am selben Tag m?glich
|
|
| 1337 |
# Löschen und Ändern von Buchungen nicht mehr möglich (GoB) nur am selben Tag möglich
|
|
| 1337 | 1338 |
if (!$form->{locked} && $radieren) {
|
| 1338 | 1339 |
print qq| |
| 1339 | 1340 |
<input class=submit type=submit name=action value="| . $locale->text('Post') . qq|" accesskey="b">
|
Auch abrufbar als: Unified diff
Dateiencodings auf UTF-8 geändert
Fix für Bug 1375.