From 04fce104fb69421a95b8166750f84c184ff9d932 Mon Sep 17 00:00:00 2001 From: einhverfr 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/Form.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'LedgerSMB/Form.pm') diff --git a/LedgerSMB/Form.pm b/LedgerSMB/Form.pm index 3510fa4c..c15cdcbc 100755 --- a/LedgerSMB/Form.pm +++ b/LedgerSMB/Form.pm @@ -572,7 +572,7 @@ sub get_my_emp_num { sub parse_template { - my ($self, $myconfig, ${LedgerSMB::Sysconfig::userspath}) = @_; + my ($self, $myconfig) = @_; my ($chars_per_line, $lines_on_first_page, $lines_on_second_page) = (0, 0, 0); my ($current_page, $current_line) = (1, 1); @@ -2409,7 +2409,7 @@ sub update_status { my $dbh = $self->{dbh}; my %queued = split / +/, $self->{queued}; - my ${LedgerSMB::Sysconfig::spool}file = ($queued{$self->{formname}}) ? "'$queued{$self->{formname}}'" : 'NULL'; + my $spoolfile = ($queued{$self->{formname}}) ? "'$queued{$self->{formname}}'" : 'NULL'; my $query = qq|DELETE FROM status WHERE formname = ? @@ -2429,7 +2429,7 @@ sub update_status { VALUES (?, ?, ?, ?, ?)|; $sth = $dbh->prepare($query); - $sth->execute($self->{id}, $printed, $emailed, ${LedgerSMB::Sysconfig::spool}file, + $sth->execute($self->{id}, $printed, $emailed, $spoolfile, $self->{formname}); $sth->finish; -- cgit v1.2.3