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

[..hidden..]

Revision: 361
          http://svn.sourceforge.net/ledger-smb/?rev=361&view=rev
Author:   tetragon
Date:     2006-10-28 11:29:12 -0700 (Sat, 28 Oct 2006)

Log Message:
-----------
Adjust BP/bp to run

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

Modified: trunk/LedgerSMB/BP.pm
===================================================================
--- trunk/LedgerSMB/BP.pm	2006-10-28 18:24:32 UTC (rev 360)
+++ trunk/LedgerSMB/BP.pm	2006-10-28 18:29:12 UTC (rev 361)
@@ -75,7 +75,7 @@
 
 		$sth = $dbh->prepare($query);
 		$sth->execute($form->{type});
-		($n) = $sth->fetchrow_array($query);
+		($n) = $sth->fetchrow_array;
 		$count += $n;
 	}
 
@@ -97,7 +97,7 @@
 				 WHERE s.formname = ?
 				       AND s.spoolfile IS NOT NULL|;
 			$union = "UNION";
-			push @queryags, $form->{type};
+			push @queryargs, $form->{type};
 		}
 
 		$sth = $dbh->prepare($query);
@@ -199,14 +199,14 @@
 				$union
 				SELECT a.id, vc.name, a.$invnumber AS invnumber, a.transdate,
 				       a.ordnumber, a.quonumber, $invoice AS invoice,
-				       ? AS module, s.spoolfile
+				       '$item' AS module, s.spoolfile
 				  FROM $item a, $form->{vc} vc, status s
 				 WHERE s.trans_id = a.id
 				       AND s.spoolfile IS NOT NULL
 				       AND s.formname = ?
 				       AND a.$form->{vc}_id = vc.id|;
 
-			push (@queryargs, $item, $form->{type});
+			push (@queryargs, $form->{type});
 			if ($form->{"$form->{vc}_id"}) {
 				$query .= qq| AND a.$form->{vc}_id = $form->{"$form->{vc}_id"}|;
 			} else {

Modified: trunk/bin/bp.pl
===================================================================
--- trunk/bin/bp.pl	2006-10-28 18:24:32 UTC (rev 360)
+++ trunk/bin/bp.pl	2006-10-28 18:29:12 UTC (rev 361)
@@ -432,7 +432,7 @@
     
     $column_data{transdate} = "<td>$ref->{transdate}&nbsp;</td>";
 
-    if (${LedgerSMB::Sysconfig::spool}file eq $ref->{spoolfile}) {
+    if (${LedgerSMB::Sysconfig::spool} eq $ref->{spoolfile}) {
       $column_data{checked} = qq|<td></td>|;
     } else {
       $column_data{checked} = qq|<td><input name=checked_$i type=checkbox class=checkbox $form->{"checked_$i"} $form->{"checked_$i"}></td>|;
@@ -462,7 +462,7 @@
 
 |;
 
-    ${LedgerSMB::Sysconfig::spool}file = $ref->{spoolfile};
+    ${LedgerSMB::Sysconfig::spool} = $ref->{spoolfile};
     
     $j++; $j %= 2;
     print "


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