Revision bce93dd4
Von Sven Schöling vor mehr als 3 Jahren hinzugefügt
| bin/mozilla/gl.pl | ||
|---|---|---|
| 50 | 50 |
use SL::Webdav; |
| 51 | 51 |
use SL::Locale::String qw(t8); |
| 52 | 52 |
use SL::Helper::GlAttachments qw(count_gl_attachments); |
| 53 |
use SL::Presenter::Tag; |
|
| 53 |
use SL::Presenter::Tag qw(hidden_tag select_tag);
|
|
| 54 | 54 |
use SL::Presenter::Chart; |
| 55 | 55 |
require "bin/mozilla/common.pl"; |
| 56 | 56 |
require "bin/mozilla/reportgenerator.pl"; |
| ... | ... | |
| 784 | 784 |
|
| 785 | 785 |
my $form = $main::form; |
| 786 | 786 |
my %myconfig = %main::myconfig; |
| 787 |
my $cgi = $::request->{cgi};
|
|
| 788 | 787 |
|
| 789 | 788 |
my %balances = GL->get_chart_balances(map { $_->{id} } @{ $form->{ALL_CHARTS} });
|
| 790 | 789 |
|
| ... | ... | |
| 811 | 810 |
<input type="hidden" name="memo_$i" value="$form->{"memo_$i"}" size="16">|;
|
| 812 | 811 |
} |
| 813 | 812 |
|
| 814 |
my %taxchart_labels = (); |
|
| 815 | 813 |
my @taxchart_values = (); |
| 816 | 814 |
|
| 817 | 815 |
my $accno_id = $::form->{"accno_id_$i"};
|
| ... | ... | |
| 831 | 829 |
$default_taxchart = $item if $item->{is_default};
|
| 832 | 830 |
$taxchart_to_use = $item if $key eq $form->{"taxchart_$i"};
|
| 833 | 831 |
|
| 834 |
push(@taxchart_values, $key); |
|
| 835 |
$taxchart_labels{$key} = $item->taxkey . " - " . $item->taxdescription . " " . $item->rate * 100 . ' %';
|
|
| 832 |
push @taxchart_values, [ $key, $item->taxkey . " - " . $item->taxdescription . " " . $item->rate * 100 . ' %' ]; |
|
| 836 | 833 |
} |
| 837 | 834 |
|
| 838 | 835 |
$taxchart_to_use //= $default_taxchart // $first_taxchart; |
| ... | ... | |
| 842 | 839 |
SL::Presenter::Chart::picker("accno_id_$i", $accno_id, style => "width: 300px") .
|
| 843 | 840 |
SL::Presenter::Tag::hidden_tag("previous_accno_id_$i", $accno_id)
|
| 844 | 841 |
. qq|</td>|; |
| 845 |
my $tax_ddbox = qq|<td>| . |
|
| 846 |
NTI($cgi->popup_menu('-name' => "taxchart_$i",
|
|
| 847 |
'-id' => "taxchart_$i", |
|
| 848 |
'-style' => 'width:200px', |
|
| 849 |
'-values' => \@taxchart_values, |
|
| 850 |
'-labels' => \%taxchart_labels, |
|
| 851 |
'-default' => $selected_taxchart)) |
|
| 842 |
my $tax_ddbox = qq|<td>| |
|
| 843 |
. select_tag("taxchart_$i", \@taxchart_values, id => "taxchart_$i", style => 'width:200px', default => $selected_taxchart)
|
|
| 852 | 844 |
. qq|</td>|; |
| 853 | 845 |
|
| 854 | 846 |
my ($fx_transaction, $checked); |
| ... | ... | |
| 887 | 879 |
<td><input type=hidden name="fx_transaction_$i" value="$checked">$x</td> |
| 888 | 880 |
|; |
| 889 | 881 |
} |
| 890 |
$form->hide_form("accno_$i");
|
|
| 882 |
print hidden_tag("accno_$i", $form->{"accno_$i"});
|
|
| 891 | 883 |
|
| 892 | 884 |
} else {
|
| 893 | 885 |
if ($form->{transfer}) {
|
| ... | ... | |
| 946 | 938 |
|; |
| 947 | 939 |
} |
| 948 | 940 |
|
| 949 |
$form->hide_form(qw(rowcount selectaccno)); |
|
| 941 |
print hidden_tag('rowcount', $form->{rowcount}),
|
|
| 942 |
hidden_tag('selectaccno', $form->{selectaccno});
|
|
| 950 | 943 |
|
| 951 | 944 |
$main::lxdebug->leave_sub(); |
| 952 | 945 |
|
Auch abrufbar als: Unified diff
CGI.pm nicht mehr als html Generator verwenden
Die restlichen Vorkommen sind jetzt noch
- header
- redirect
- cookie
und sind alle der Form: $::request->cgi->...