SF.net SVN: ledger-smb:[3406] trunk/bin/arapprn.pl

[..hidden..]

Revision: 3406
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=3406&view=rev
Author:   einhverfr
Date:     2011-07-01 12:38:28 +0000 (Fri, 01 Jul 2011)

Log Message:
-----------
Ar/ap transaction printing now works

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

Modified: trunk/bin/arapprn.pl
===================================================================
--- trunk/bin/arapprn.pl	2011-07-01 11:08:15 UTC (rev 3405)
+++ trunk/bin/arapprn.pl	2011-07-01 12:38:28 UTC (rev 3406)
@@ -204,7 +204,7 @@
     $form->{decimal}        = substr( $form->{decimal}, 0, 2 );
     $form->{text_decimal}   = $c->num2text( $form->{decimal} * 1 );
     $form->{text_amount}    = $c->num2text($whole);
-    $form->{integer_amount} = $form->format_amount( $myconfig, $whole );
+    $form->{integer_amount} = $form->format_amount( \%myconfig, $whole );
 
     ( $form->{employee} ) = split /--/, $form->{employee};
 
@@ -395,7 +395,7 @@
             );
 
             $form->{"${accno}_taxrate"} =
-              $form->format_amount( $myconfig, $form->{"${accno}_rate"} * 100 );
+              $form->format_amount( \%myconfig, $form->{"${accno}_rate"} * 100 );
             push( @{ $form->{taxrate} }, $form->{"${accno}_taxrate"} );
 
             push( @{ $form->{taxnumber} }, $form->{"${accno}_taxnumber"} );
@@ -450,7 +450,7 @@
     $form->{decimal}        = substr( $form->{decimal}, 0, 2 );
     $form->{text_decimal}   = $c->num2text( $form->{decimal} * 1 );
     $form->{text_amount}    = $c->num2text($whole);
-    $form->{integer_amount} = $form->format_amount( $myconfig, $whole );
+    $form->{integer_amount} = $form->format_amount( \%myconfig, $whole );
 
     for (qw(invtotal subtotal paid total)) {
         $form->{$_} = $form->format_amount( \%myconfig, $form->{$_}, 2 );
@@ -482,11 +482,12 @@
     $form->{invdate} = $form->{transdate};
 
     $form->{templates} = "$myconfig{templates}";
-    $form->{IN} =
-      ( $form->{formname} eq 'transaction' )
-      ? lc $form->{ARAP} . "_$form->{formname}.html"
-      : "$form->{formname}.html";
-
+    if ($form->{formname} eq 'transaction' ){
+        $form->{IN} = lc $form->{ARAP} . "_$form->{formname}.html";
+        $form->{formname} = lc $form->{ARAP} . "_$form->{formname}";
+    } else {
+        $form->{IN} ="$form->{formname}.html";
+    }
     if ( $form->{format} =~ /(postscript|pdf)/ ) {
         $form->{IN} =~ s/html$/tex/;
     }


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