diff options
author | aurynn_cmd <aurynn_cmd@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-09-20 20:06:53 +0000 |
---|---|---|
committer | aurynn_cmd <aurynn_cmd@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-09-20 20:06:53 +0000 |
commit | 5f24c101474901bf5607fcad189d287b43c5d799 (patch) | |
tree | 001cc0f7b8d04799ed8198bc455f56a623fe45a0 /LedgerSMB.pm | |
parent | a26ee3caf4e289a749069444faa989b7bbe7bde8 (diff) |
Removal of extra new_user function from admin.pl.
Updates to DBObject.pm to remove treatment of argument list as a hashref.
Update to LedgerSMB.pm to add s bare sub DESTROY so as not to trigger weird behaviour from using AUTOLOAD.
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1636 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB.pm')
-rwxr-xr-x | LedgerSMB.pm | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/LedgerSMB.pm b/LedgerSMB.pm index 502b81e6..27abf20f 100755 --- a/LedgerSMB.pm +++ b/LedgerSMB.pm @@ -740,5 +740,20 @@ sub merge { } } +sub type { + + my $self = shift @_; + + if (!$ENV{REQUEST_METHOD} or + ( $ENV{REQUEST_METHOD} ne ("HEAD" or "GET" or "POST") ) ) { + + $self->error("Request method unset or set to unknown value"); + } + + return $ENV{REQUEST_METHOD}; +} + +sub DESTROY {} + 1; |