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

[..hidden..]

Revision: 3026
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=3026&view=rev
Author:   einhverfr
Date:     2010-07-16 16:49:10 +0000 (Fri, 16 Jul 2010)

Log Message:
-----------
Adding invoice data for printing checks

Modified Paths:
--------------
    trunk/UI/payments/payments_detail.html
    trunk/scripts/payment.pl

Modified: trunk/UI/payments/payments_detail.html
===================================================================
--- trunk/UI/payments/payments_detail.html	2010-07-13 18:45:05 UTC (rev 3025)
+++ trunk/UI/payments/payments_detail.html	2010-07-16 16:49:10 UTC (rev 3026)
@@ -279,8 +279,18 @@
 		<tr>
 			<td class="invoice_date_list">&nbsp;<?lsmb i.2 ?></td>
 			<td class="invoice_list">&nbsp;<?lsmb i.1 ?></td>
+                        <input
+                               type = "hidden"
+                               name = "<?lsmb "invnumber_$i.0" ?>"
+                               value = "<?lsmb i.1 ?>"
+                        />
 		        <td class="total_due_list">&nbsp;
 				<?lsmb i.3 ?></td>
+                        <input
+                               type = "hidden"
+                               name = "<?lsmb "due_$i.0" ?>"
+                               value = "<?lsmb i.6 ?>"
+                        />
 			<td class="paid_list">&nbsp;
 				<?lsmb i.4 ?></td>
 			<td class="net_due_list">&nbsp;

Modified: trunk/scripts/payment.pl
===================================================================
--- trunk/scripts/payment.pl	2010-07-13 18:45:05 UTC (rev 3025)
+++ trunk/scripts/payment.pl	2010-07-16 16:49:10 UTC (rev 3026)
@@ -308,9 +308,8 @@
            $payment->{_locale}->text('Data not saved.  Please try again.');
         display_payments($request);
     }
-    my $template;
+    
     payments($request);
-    $template->render($payment);
 }
 
 sub print {
@@ -364,7 +363,7 @@
             for my $inv (1 .. $payment->{"invoice_count_$id"}){
                 my $invhash = {};
                 my $inv_id = $payment->{"invoice_${id}_$inv"};
-                for (qw(invnumber invdate)){
+                for (qw(invnumber due)){
                     $invhash->{$_} = $payment->{"${_}_$inv_id"};
                 }
                 if ($payment->{"paid_$id"} eq 'some'){


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