summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authortetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>2006-10-19 04:29:09 +0000
committertetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>2006-10-19 04:29:09 +0000
commit81077804ebe47b51b1959055889658e7ca6fc102 (patch)
tree83597d21760d874e62bfbee3293ebca35fc80b22
parentab76730ec2f89dbc98714eb2b5d6fb26e38745a1 (diff)
Fix tax display update
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@233 4979c152-3d1c-0410-bac9-87ea11338e46
-rwxr-xr-xbin/am.pl7
1 files changed, 7 insertions, 0 deletions
diff --git a/bin/am.pl b/bin/am.pl
index 81827c5c..f0688126 100755
--- a/bin/am.pl
+++ b/bin/am.pl
@@ -1934,6 +1934,7 @@ sub display_taxes {
<td><select name="taxmodule_id_$i" size=1>|;
foreach my $taxmodule (sort keys %$form) {
next if ($taxmodule !~ /^taxmodule_/);
+ next if ($taxmodule =~ /^taxmodule_id_/);
my $modulenum = $taxmodule;
$modulenum =~ s/^taxmodule_//;
print '<option label="'.$form->{$taxmodule}.'" value="'.$modulenum . '"';
@@ -1957,6 +1958,11 @@ sub display_taxes {
|;
$form->hide_form(qw(taxaccounts path login sessionid));
+ foreach my $taxmodule (sort keys %$form) {
+ next if ($taxmodule !~ /^taxmodule_/);
+ next if ($taxmodule =~ /^taxmodule_id_/);
+ $form->hide_form("$taxmodule");
+ }
print qq|
<input type=submit class=submit name=action value="|.$locale->text('Update').qq|">
@@ -1985,6 +1991,7 @@ sub update {
foreach $item (@a) {
($accno, $i) = split /_/, $item;
push @t, $accno;
+ $form->{"taxmodulename_$i"} = $form->{"taxmodule_".$form->{"taxmodule_id_$i"}};
if ($form->{"validto_$i"}) {
$j = $i + 1;