diff options
author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-10-24 03:45:40 +0000 |
---|---|---|
committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-10-24 03:45:40 +0000 |
commit | 04fce104fb69421a95b8166750f84c184ff9d932 (patch) | |
tree | 2b0a25966be483efc6dc435e0af08c083c9c800e /LedgerSMB/AM.pm | |
parent | 4e1902377b63a53dbd1df8d0f07c2537b77ec94d (diff) |
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
Diffstat (limited to 'LedgerSMB/AM.pm')
-rwxr-xr-x | LedgerSMB/AM.pm | 5 |
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; |