From 5f24c101474901bf5607fcad189d287b43c5d799 Mon Sep 17 00:00:00 2001
From: aurynn_cmd <aurynn_cmd@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Thu, 20 Sep 2007 20:06:53 +0000
Subject: 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
---
 LedgerSMB.pm | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

(limited to 'LedgerSMB.pm')

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;
 
-- 
cgit v1.2.3