Revision 12fb1a28
Von Jan Büren vor etwa 15 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 2196 | 2196 |
my $transdate = quote_db_date($params->{transdate});
|
| 2197 | 2197 |
|
| 2198 | 2198 |
my $query = |
| 2199 |
qq|SELECT c.id, c.accno, c.description, c.link, tk.taxkey_id, tk.tax_id | . |
|
| 2199 |
qq|SELECT c.id, c.accno, c.description, c.link, c.charttype, tk.taxkey_id, tk.tax_id | .
|
|
| 2200 | 2200 |
qq|FROM chart c | . |
| 2201 | 2201 |
qq|LEFT JOIN taxkeys tk ON | . |
| 2202 | 2202 |
qq|(tk.id = (SELECT id FROM taxkeys | . |
| bin/mozilla/gl.pl | ||
|---|---|---|
| 88 | 88 |
$form->{callback} = "gl.pl?action=add" unless $form->{callback};
|
| 89 | 89 |
|
| 90 | 90 |
# we use this only to set a default date |
| 91 |
# yep. aber er holt hier auch schon ALL_CHARTS. Aufwand / Nutzen? jb |
|
| 91 | 92 |
GL->transaction(\%myconfig, \%$form); |
| 92 | 93 |
|
| 93 | 94 |
map {
|
| ... | ... | |
| 796 | 797 |
my %charts = (); |
| 797 | 798 |
my $taxchart_init; |
| 798 | 799 |
foreach my $item (@{ $form->{ALL_CHARTS} }) {
|
| 800 |
if ($item->{charttype} eq 'H'){ #falls ?berschrift
|
|
| 801 |
next; #?berspringen (Bug 1150) |
|
| 802 |
} |
|
| 799 | 803 |
my $key = $item->{accno} . "--" . $item->{tax_id};
|
| 800 | 804 |
$taxchart_init = $item->{tax_id} unless (@chart_values);
|
| 801 | 805 |
push(@chart_values, $key); |
Auch abrufbar als: Unified diff
Fix für Bug 1150 - Dialogbuchen geht auf Überschriften. Entsprechend im Backend den chart.charttype zusätzlich geholt und die Liste ALL_CHARTS im Frontend gefiltert