From c3c9871298597e417d67f691fca24cd913ef802a Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Tue, 24 Oct 2006 00:01:16 +0000
Subject: Moved all scalars out of ledger-smb.conf

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

(limited to 'LedgerSMB/BP.pm')

diff --git a/LedgerSMB/BP.pm b/LedgerSMB/BP.pm
index 3821cd87..d902be91 100755
--- a/LedgerSMB/BP.pm
+++ b/LedgerSMB/BP.pm
@@ -242,7 +242,7 @@ sub get_spoolfiles {
 
 sub delete_spool {
 
-	my ($self, $myconfig, $form, $spool) = @_;
+	my ($self, $myconfig, $form, ${LedgerSMB::Sysconfig::spool}) = @_;
 
 	# connect to database, turn AutoCommit off
 	my $dbh = $form->dbconnect_noauto($myconfig);
@@ -278,7 +278,7 @@ sub delete_spool {
 
 	if ($rc) {
 		foreach my $i (1 .. $form->{rowcount}) {
-			$_ = qq|$spool/$form->{"spoolfile_$i"}|;
+			$_ = qq|${LedgerSMB::Sysconfig::spool}/$form->{"spoolfile_$i"}|;
 			if ($form->{"checked_$i"}) {
 				unlink;
 			}
@@ -291,7 +291,7 @@ sub delete_spool {
 
 sub print_spool {
 
-	my ($self, $myconfig, $form, $spool) = @_;
+	my ($self, $myconfig, $form, ${LedgerSMB::Sysconfig::spool}) = @_;
 
 	# connect to database
 	my $dbh = $form->dbconnect_noauto($myconfig);
@@ -310,10 +310,10 @@ sub print_spool {
 			open(OUT, $form->{OUT}) or $form->error("$form->{OUT} : $!");
 			binmode(OUT);
 
-			$spoolfile = qq|$spool/$form->{"spoolfile_$i"}|;
+			${LedgerSMB::Sysconfig::spool}file = qq|$spool/$form->{"spoolfile_$i"}|;
 
 			# send file to printer
-			open(IN, $spoolfile) or $form->error("$spoolfile : $!");
+			open(IN, ${LedgerSMB::Sysconfig::spool}file) or $form->error("$spoolfile : $!");
 			binmode(IN);
 
 			while (<IN>) {
-- 
cgit v1.2.3