SF.net SVN: ledger-smb: [1994] trunk/bin/aa.pl

[..hidden..]

Revision: 1994
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=1994&view=rev
Author:   einhverfr
Date:     2007-12-20 23:12:36 -0800 (Thu, 20 Dec 2007)

Log Message:
-----------
Merging tax fixes for transactions screens from branches/1.2

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

Modified: trunk/bin/aa.pl
===================================================================
--- trunk/bin/aa.pl	2007-12-21 07:01:23 UTC (rev 1993)
+++ trunk/bin/aa.pl	2007-12-21 07:12:36 UTC (rev 1994)
@@ -692,12 +692,14 @@
 	</tr>
 |;
     }
-
     foreach $item ( split / /, $form->{taxaccounts} ) {
 
+	if($form->{"calctax_$item"}){
+             $form->{invtotal} += $form->{"tax_$item"};
+	}
         $form->{"calctax_$item"} =
           ( $form->{"calctax_$item"} ) ? "checked" : "";
-
+         
         $form->{"tax_$item"} =
           $form->format_amount( \%myconfig, $form->{"tax_$item"}, 2 );
 
@@ -705,7 +707,8 @@
         <tr>
 	  <td><input name="tax_$item" size=10 value=$form->{"tax_$item"}></td>
 	  <td align=right><input name="calctax_$item" class=checkbox type=checkbox value=1 $form->{"calctax_$item"}></td>
-	  <td><select name="$form->{ARAP}_tax_$item">$form->{"select$form->{ARAP}_tax_$item"}</select></td>
+ 	  <td><select name="$form->{ARAP}_tax_$item">
+ 	<option value="$form->{ARAP}_tax_$item">$item--$form->{"${item}_description"}</option></select></td>
 	</tr>
 |;
 


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