From 04fce104fb69421a95b8166750f84c184ff9d932 Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Tue, 24 Oct 2006 03:45:40 +0000
Subject: Fixing breadead mistakes when moving variables to new namespace

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@284 4979c152-3d1c-0410-bac9-87ea11338e46
---
 LedgerSMB/BP.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'LedgerSMB/BP.pm')

diff --git a/LedgerSMB/BP.pm b/LedgerSMB/BP.pm
index c5f46fa8..c69a3a92 100755
--- a/LedgerSMB/BP.pm
+++ b/LedgerSMB/BP.pm
@@ -244,7 +244,7 @@ sub get_spoolfiles {
 
 sub delete_spool {
 
-	my ($self, $myconfig, $form, ${LedgerSMB::Sysconfig::spool}) = @_;
+	my ($self, $myconfig, $form) = @_;
 
 	# connect to database, turn AutoCommit off
 	my $dbh = $form->dbconnect_noauto($myconfig);
@@ -293,7 +293,7 @@ sub delete_spool {
 
 sub print_spool {
 
-	my ($self, $myconfig, $form, ${LedgerSMB::Sysconfig::spool}) = @_;
+	my ($self, $myconfig, $form) = @_;
 
 	# connect to database
 	my $dbh = $form->dbconnect_noauto($myconfig);
@@ -312,10 +312,10 @@ sub print_spool {
 			open(OUT, $form->{OUT}) or $form->error("$form->{OUT} : $!");
 			binmode(OUT);
 
-			${LedgerSMB::Sysconfig::spool}file = qq|$spool/$form->{"spoolfile_$i"}|;
+			$spoolfile = qq|$spool/$form->{"spoolfile_$i"}|;
 
 			# send file to printer
-			open(IN, ${LedgerSMB::Sysconfig::spool}file) or $form->error("$spoolfile : $!");
+			open(IN, $spoolfile) or $form->error("$spoolfile : $!");
 			binmode(IN);
 
 			while (<IN>) {
-- 
cgit v1.2.3