SF.net SVN: ledger-smb: [233] trunk/bin/am.pl

[..hidden..]

Revision: 233
          http://svn.sourceforge.net/ledger-smb/?rev=233&view=rev
Author:   tetragon
Date:     2006-10-18 21:29:09 -0700 (Wed, 18 Oct 2006)

Log Message:
-----------
Fix tax display update

Modified Paths:
--------------
    trunk/bin/am.pl

Modified: trunk/bin/am.pl
===================================================================
--- trunk/bin/am.pl	2006-10-19 04:24:58 UTC (rev 232)
+++ trunk/bin/am.pl	2006-10-19 04:29:09 UTC (rev 233)
@@ -1934,6 +1934,7 @@
 	  <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 @@
 |;
 
   $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 @@
   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;


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.