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

1 files changed, 2 insertions, 3 deletions

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;