Revision fc63cd43
Von Moritz Bunkus vor mehr als 9 Jahren hinzugefügt
bin/mozilla/gl.pl | ||
---|---|---|
306 | 306 |
# add employee here, so that variable is still known and passed in url when choosing a different sort order in resulting table |
307 | 307 |
my @hidden_variables = qw(accno source reference department description notes project_id datefrom dateto employee_id datesort category l_subtotal); |
308 | 308 |
push @hidden_variables, map { "l_${_}" } @columns; |
309 |
foreach ( @hidden_variables ) { |
|
310 |
print URL "$_\n"; |
|
311 |
}; |
|
312 | 309 |
|
313 | 310 |
my $employee = $form->{employee_id} ? SL::DB::Employee->new(id => $form->{employee_id})->load->name : ''; |
314 | 311 |
|
... | ... | |
332 | 329 |
|
333 | 330 |
|
334 | 331 |
my $callback = build_std_url('action=generate_report', grep { $form->{$_} } @hidden_variables); |
335 |
print URL $callback; |
|
336 |
close URL; |
|
337 | 332 |
|
338 | 333 |
$form->{l_credit_accno} = 'Y'; |
339 | 334 |
$form->{l_debit_accno} = 'Y'; |
Auch abrufbar als: Unified diff
gl.pl: komischen Debug-Code mit nicht existierenden Filehandles entfernt