SF.net SVN: ledger-smb: [2057] trunk/bin/cp.pl

[..hidden..]

Revision: 2057
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=2057&view=rev
Author:   einhverfr
Date:     2008-01-19 20:09:17 -0800 (Sat, 19 Jan 2008)

Log Message:
-----------
Merging applicable bugfixes from svn branches/1.2 svn rev 2056

Revision Links:
--------------
    http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=2056&view=rev

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

Modified: trunk/bin/cp.pl
===================================================================
--- trunk/bin/cp.pl	2008-01-20 04:08:23 UTC (rev 2056)
+++ trunk/bin/cp.pl	2008-01-20 04:09:17 UTC (rev 2057)
@@ -1393,12 +1393,7 @@
     %oldform = ();
     for ( keys %$form ) { $oldform{$_} = $form->{$_} }
 
-    @a =
-      qw(name company address text_amount text_decimal address1 address2 city state zipcode country memo);
-    for (@a) { $temp{$_} = $form->{$_} }
 
-    $form->format_string(@a);
-
     $ok             = 0;
     $j              = 0;
     $temp{rowcount} = $form->{rowcount};
@@ -1465,7 +1460,12 @@
     ( $form->{yyyy}, $form->{mm}, $form->{dd} ) = $datepaid =~ /(....)(..)(..)/;
 
     &{"$form->{vc}_details"};
+    @a =
+      qw(name company address text_amount text_decimal address1 address2 city state zipcode country memo);
+    for (@a) { $temp{$_} = $form->{$_} }
 
+    $form->format_string(@a);
+
     $form->{templates} = "$myconfig{templates}";
     $form->{IN}        = "$form->{formname}.tex";
 


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