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/AM.pm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'LedgerSMB/AM.pm') diff --git a/LedgerSMB/AM.pm b/LedgerSMB/AM.pm index 4da9e6c9..0e3abeaa 100755 --- a/LedgerSMB/AM.pm +++ b/LedgerSMB/AM.pm @@ -1239,7 +1239,6 @@ sub check_template_name { if ($form->{file} =~ /^(.:)*?\/|\.\.\/|^\//){ $form->error("Directory transversal not allowed."); } - my ${LedgerSMB::Sysconfig::userspath} = ${main::userspath}; if ($form->{file} =~ /^${LedgerSMB::Sysconfig::userspath}\//){ $form->error("Not allowed to access ${LedgerSMB::Sysconfig::userspath}/ with this method"); } @@ -1293,7 +1292,7 @@ sub save_template { sub save_preferences { - my ($self, $myconfig, $form, ${LedgerSMB::Sysconfig::memberfile}, ${LedgerSMB::Sysconfig::userspath}) = @_; + my ($self, $myconfig, $form) = @_; # connect to database my $dbh = $form->{dbh}; @@ -1566,7 +1565,7 @@ sub save_taxes { sub backup { - my ($self, $myconfig, $form, ${LedgerSMB::Sysconfig::userspath}, ${LedgerSMB::Sysconfig::gzip}) = @_; + my ($self, $myconfig, $form) = @_; my $mail; my $err; -- cgit v1.2.3