From f20faebe4c3fcada27e75e7f5ad84d2d801200fd Mon Sep 17 00:00:00 2001
From: Alan Knowles <alan@roojs.com>
Date: Thu, 25 Oct 2018 13:00:58 +0800
Subject: [PATCH] DataObjects/Core_company.php

---
 DataObjects/Core_company.php | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/DataObjects/Core_company.php b/DataObjects/Core_company.php
index 2a553694..d6c27872 100644
--- a/DataObjects/Core_company.php
+++ b/DataObjects/Core_company.php
@@ -254,6 +254,14 @@ class Pman_Core_DataObjects_Core_Company extends DB_DataObject
     
     function beforeInsert($q, $roo)
     {
+        // we still use comptype in some old systems...
+        
+        if (!empty($q['comptype_id'])) {
+            $en = DB_DataObject::Factory('core_enum');
+            $en->get($q['comptype_id']);
+            $this->comptype = $en->name;
+        }
+        
         if(!empty($q['_check_name'])){
             if($this->checkName()){
                 $roo->jok('OK');
-- 
2.39.2