SF.net SVN: ledger-smb:[2719] trunk

[..hidden..]

Revision: 2719
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=2719&view=rev
Author:   einhverfr
Date:     2009-07-10 20:04:06 +0000 (Fri, 10 Jul 2009)

Log Message:
-----------
Interrim fix for GL balance changes on second update.

Modified Paths:
--------------
    trunk/UI/journal/journal_entry.html
    trunk/bin/gl.pl

Modified: trunk/UI/journal/journal_entry.html
===================================================================
--- trunk/UI/journal/journal_entry.html	2009-07-10 17:54:46 UTC (rev 2718)
+++ trunk/UI/journal/journal_entry.html	2009-07-10 20:04:06 UTC (rev 2719)
@@ -150,8 +150,8 @@
 			  <?lsmb ELSE ?>
 			      
 				      <?lsmb PROCESS label element_data = {
-					text => displayrow.accno
-					align => 'right'
+					text = displayrow.accno
+					align = 'right'
 					id = "acc_$INDEX"
 				      } ?>
 			      
@@ -165,8 +165,8 @@
 
 			    <?lsmb IF  displayrow.fx_transactionset == 1 ?>
 					    <?lsmb PROCESS label element_data = {
-					      text => text('x')
-					      align => 'right'
+					      text = text('x')
+					      align = 'right'
 				              id = "fxt_$INDEX"
                                                } 
 					      ?>
@@ -192,7 +192,7 @@
 				  name = "debit_$INDEX"
 				  type = "text"
 				  size = 12
-				  accesskey => displayrow.index
+				  accesskey = displayrow.index
 			          id = "deb_$INDEX"
                                               }  ?>
 		  
@@ -236,8 +236,8 @@
 
 			<?lsmb IF displayrow.projectset == 1 ?>
 					<?lsmb PROCESS label element_data = {
-					      text => displayrow.projectnumber
-					      align => 'right'
+					      text = displayrow.projectnumber
+					      align = 'right'
 					      id = "pro_$INDEX"
                                      } ?>
 						
@@ -265,18 +265,11 @@
 	     <th class="listheading">&nbsp;</th>
 	  <?lsmb END ?>
 	  <th class="listtotal" align="right">
-		    <?lsmb IF form.totaldebit == 0 ?>
-			0
-		    <?lsmb ELSE ?>
 			<?lsmb form.totaldebit ?>
-		    <?lsmb END ?>
 	  </th>
 	  
 	  <th class="listtotal" align="right">
-		    <?lsmb IF form.totalcredit == 0 ?>0
-		    <?lsmb ELSE ?>
 			<?lsmb form.totalcredit ?>
-		    <?lsmb END ?>
 	  </th>
 	  <th>&nbsp;</th>
 	  <th>&nbsp;</th>

Modified: trunk/bin/gl.pl
===================================================================
--- trunk/bin/gl.pl	2009-07-10 17:54:46 UTC (rev 2718)
+++ trunk/bin/gl.pl	2009-07-10 20:04:06 UTC (rev 2719)
@@ -226,7 +226,7 @@
 
   for (qw(totaldebit totalcredit)) {
       $form->{$_} =
-	$form->format_amount( \%myconfig, $form->{$_}, 2, "&nbsp;" );
+	$form->format_amount( \%myconfig, $form->{$_}, 2, "0" );
   }
 
   $hiddens{sessionid}=$form->{sessionid};
@@ -1010,7 +1010,7 @@
     $count = 0;
     @flds  = qw(accno debit credit projectnumber fx_transaction source memo);
 
-    for $i ( 1 .. $form->{rowcount} ) {
+    for $i ( 0 .. $form->{rowcount} ) {
         unless ( ( $form->{"debit_$i"} eq "" )
             && ( $form->{"credit_$i"} eq "" ) )
         {
@@ -1029,10 +1029,10 @@
 
     for $i ( 1 .. $count ) {
         $j = $i - 1;
-        for (@flds) { $form->{"${_}_$i"} = $a[$j]->{$_} }
+        for (@flds) { $form->{"${_}_$j"} = $a[$j]->{$_} }
     }
 
-    for $i ( $count + 1 .. $form->{rowcount} ) {
+    for $i ( $count  .. $form->{rowcount} ) {
         for (@flds) { delete $form->{"${_}_$i"} }
     }
 


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