SF.net SVN: ledger-smb:[3080] addons/1.3/import_trans/trunk/scripts/ import_trans.pl

[..hidden..]

Revision: 3080
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=3080&view=rev
Author:   einhverfr
Date:     2010-10-01 23:07:00 +0000 (Fri, 01 Oct 2010)

Log Message:
-----------
Imports now post as drafts

Modified Paths:
--------------
    addons/1.3/import_trans/trunk/scripts/import_trans.pl

Modified: addons/1.3/import_trans/trunk/scripts/import_trans.pl
===================================================================
--- addons/1.3/import_trans/trunk/scripts/import_trans.pl	2010-10-01 21:04:17 UTC (rev 3079)
+++ addons/1.3/import_trans/trunk/scripts/import_trans.pl	2010-10-01 23:07:00 UTC (rev 3080)
@@ -32,6 +32,7 @@
                    $form->{description} = $request->{description};
                    $form->{transdate} = $request->{transdate};
                    $form->{rowcount} = 0;
+                   $form->{approved} = '0';
                    $form->{dbh} = $request->{dbh};
                    for my $ref (@$entries){
                        if ($ref->[1] !~ /\d/){
@@ -79,6 +80,7 @@
                        $form->{invnumber} = shift @$ref;
                        $form->{transdate} = shift @$ref;
                        $form->{currency} = $default_currency;
+                       $form->{approved} = '0';
                        $form->{defaultcurrency} = $default_currency;
                        my $sth = $form->{dbh}->prepare(
                             "SELECT id FROM entity_credit_account


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