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

[..hidden..]

Revision: 3444
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=3444&view=rev
Author:   einhverfr
Date:     2011-07-05 11:17:56 +0000 (Tue, 05 Jul 2011)

Log Message:
-----------
Batch printing fixes

Modified Paths:
--------------
    trunk/LedgerSMB/BP.pm
    trunk/LedgerSMB/Form.pm
    trunk/bin/bp.pl

Modified: trunk/LedgerSMB/BP.pm
===================================================================
--- trunk/LedgerSMB/BP.pm	2011-07-05 11:11:33 UTC (rev 3443)
+++ trunk/LedgerSMB/BP.pm	2011-07-05 11:17:56 UTC (rev 3444)
@@ -335,6 +335,7 @@
 
     # connect to database
     my $dbh = $form->{dbh};
+    $spool = $LedgerSMB::Sysconfig::spool;
 
     my %audittrail;
 
@@ -347,6 +348,7 @@
     foreach my $i ( 1 .. $form->{rowcount} ) {
 
         if ( $form->{"checked_$i"} ) {
+
             open( OUT, '>', $form->{OUT} ) or $form->error("$form->{OUT} : $!");
             binmode(OUT);
 

Modified: trunk/LedgerSMB/Form.pm
===================================================================
--- trunk/LedgerSMB/Form.pm	2011-07-05 11:11:33 UTC (rev 3443)
+++ trunk/LedgerSMB/Form.pm	2011-07-05 11:17:56 UTC (rev 3444)
@@ -2821,8 +2821,8 @@
     my %queued = split / +/, $self->{queued};
     my $spoolfile =
       ( $queued{ $self->{formname} } )
-      ? "'$queued{$self->{formname}}'"
-      : 'NULL';
+      ? $queued{ $self->{formname} }
+      : undef;
 
     my $query = qq|DELETE FROM status
 					WHERE formname = ?
@@ -2863,6 +2863,7 @@
 
     my $dbh = $self->{dbh};
 
+
     my $formnames  = $self->{printed};
     my $emailforms = $self->{emailed};
 

Modified: trunk/bin/bp.pl
===================================================================
--- trunk/bin/bp.pl	2011-07-05 11:11:33 UTC (rev 3443)
+++ trunk/bin/bp.pl	2011-07-05 11:17:56 UTC (rev 3444)
@@ -410,7 +410,7 @@
 
         $column_data{transdate} = $ref->{transdate};
 
-        if ( ${LedgerSMB::Sysconfig::spool} eq $ref->{spoolfile} ) {
+        if ( $lastfile eq $ref->{spoolfile} ) {
             $column_data{checked} = '';
         }
         else {
@@ -461,7 +461,8 @@
             text => $ref->{spoolfile},
             };
 
-        ${LedgerSMB::Sysconfig::spool} = $ref->{spoolfile};
+        
+        $lastfile = $ref->{spoolfile};
 
         $j++;
         $j %= 2;


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