Revision 8740c4bf
Von Moritz Bunkus vor etwa 16 Jahren hinzugefügt
| bin/mozilla/gl.pl | ||
|---|---|---|
| 793 | 793 |
my %charts = (); |
| 794 | 794 |
my $taxchart_init; |
| 795 | 795 |
foreach my $item (@{ $form->{ALL_CHARTS} }) {
|
| 796 |
my $key = Q($item->{accno}) . "--" . Q($item->{tax_id});
|
|
| 796 |
my $key = $item->{accno} . "--" . $item->{tax_id};
|
|
| 797 | 797 |
$taxchart_init = $item->{taxkey_id} unless (@chart_values);
|
| 798 | 798 |
push(@chart_values, $key); |
| 799 |
$chart_labels{$key} = H($item->{accno}) . "--" . H($item->{description});
|
|
| 799 |
$chart_labels{$key} = $item->{accno} . "--" . $item->{description};
|
|
| 800 | 800 |
$charts{$item->{accno}} = $item;
|
| 801 | 801 |
} |
| 802 | 802 |
|
| ... | ... | |
| 804 | 804 |
my @taxchart_values = (); |
| 805 | 805 |
my %taxcharts = (); |
| 806 | 806 |
foreach my $item (@{ $form->{ALL_TAXCHARTS} }) {
|
| 807 |
my $key = Q($item->{id}) . "--" . Q($item->{rate});
|
|
| 807 |
my $key = $item->{id} . "--" . $item->{rate};
|
|
| 808 | 808 |
$taxchart_init = $key if ($taxchart_init eq $item->{taxkey});
|
| 809 | 809 |
push(@taxchart_values, $key); |
| 810 |
$taxchart_labels{$key} = H($item->{taxdescription}) . " " .
|
|
| 811 |
H($item->{rate} * 100) . ' %';
|
|
| 810 |
$taxchart_labels{$key} = $item->{taxdescription} . " " . $item->{rate} * 100 . ' %';
|
|
| 812 | 811 |
$taxcharts{$item->{id}} = $item;
|
| 813 | 812 |
} |
| 814 | 813 |
|
Auch abrufbar als: Unified diff
Doppeltes HTML-Quoting vermeiden (das CGI-Modul quotet selber schon).