'.$val .  print_R($this,true);
        if (substr($this->passwd,0,1) == '$') {
            return crypt($val,$this->passwd) == $this->passwd ;
        }
        // old style md5 passwords...- cant be used with courier....
        return md5($val) == $this->passwd;
    }
    function setPassword($value) 
    {
        $salt='';
        while(strlen($salt)<9) {
            $salt.=chr(rand(64,126));
            //php -r var_dump(crypt('testpassword', '$1$'. (rand(64,126)). '$'));
        }
        $this->passwd = crypt($value, '$1$'. $salt. '$');
       
    }      
    function onUpload($controller)
    {
        $image = DB_DataObject::factory('Images');
        return $image->onUploadWithTbl($this, 'logo_id');
         
    }
    function  onUpdate($old, $req,$roo) 
    {
        if (!empty($req['password1'])) {
            $this->setPassword($req['password1']);
            $this->update();
        }
    }
    function onInsert($req, $roo)
    {
        if (!empty($this->logo_id)) { // update images table to sycn with this..
            $img = DB_DataObject::factory('Images');
            if ($img->get($this->logo_id) && ($img->onid != $this->id)) {
                $img->onid = $this->id;
                $img->update();
            }
        }
        if (!empty($req['password1'])) {
            $this->setPassword($req['password1']);
            $this->update();
        }
        $img = DB_DataObject::factory('Images');
        $img->onid= 0;
        
        $img->ontable = $this->tableName();
        $img->imgtype = 'LOGO';
        // should check uploader!!!
        if ($img->find()) {
            while($img->fetch()) {
                $ii = clone($img);
                $ii->onid = $this->id;
                $ii->update();
                $this->logo_id = $ii->id;
            }
            $this->update();
        }
        
    }
    
    function beforeInsert($q, $roo)
    {
        // we still use comptype in some old systems...
        
        if(!empty($q['comptype']) && empty($q['comptype_id'])) {
            $en = DB_DataObject::Factory('core_enum');
            $en->setFrom(array(
                'etype' => 'COMPTYPE',
                'name' => $q['comptype'],
                'active' => 1
            ));
            if($en->find(true)) {
                $this->comptype_id = $en->id;
            }
        }
        
        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');
            }
            
            $roo->jerror('NOTICE-EXIST-CHECK','EXIST');
        }
    }
    
    function beforeUpdate($old, $q,$roo)
    {
        // we still use comptype in some old systems...
        
        if(!empty($q['comptype']) && empty($q['comptype_id'])) {
            $en = DB_DataObject::Factory('core_enum');
            $en->setFrom(array(
                'etype' => 'COMPTYPE',
                'name' => $q['comptype'],
                'active' => 1
            ));
            if($en->find(true)) {
                $this->comptype_id = $en->id;
            }
        }
        
        if (!empty($q['comptype_id'])) {
            $en = DB_DataObject::Factory('core_enum');
            $en->get($q['comptype_id']);
            $this->comptype = $en->name;
        }
        
        if(!empty($q['_flag_delete'])){
            $this->deleted_dt = $this->sqlValue("NOW()");
            $this->deleted_by = $roo->getAuthUser()->id;
        }
        
        if(!empty($q['_flag_undelete'])){
            $this->deleted_dt = "";
            $this->deleted_by = 0;
        }
        if(!empty($q['_check_name'])){
            if($this->checkName()){
                $roo->jok('OK');
            }
            
            $roo->jerror('NOTICE-EXIST-CHECK','EXIST');
        }
        
        if(!empty($q['_merge_id'])){
            $this->merge($q['_merge_id'], $roo);
        }
        
        if(!empty($this->is_system) && 
            ($old->code != $this->code  ) // used to be not allowed to change name..
        ){
            $roo->jerr('This company is not allow to editing Ref. or Company Name...');
        }
    }
    
    function beforeDelete($req, $roo)
    {
        
        // should check for members....
        if(!empty($this->is_system) && 
            ($old->code != $this->code || $old->name != $this->name)
        ){
            $roo->jerr('This company is not allow to delete');
        }
        
        
    }
    function onDelete($req, $roo)
    {   
        $img = DB_DataObject::factory('Images');
        $img->ontable = $this->tableName();
        $img->onid = $this->id;
        $img->find();
        while ($img->fetch()) {
            $img->beforeDelete(array(), $roo);
            $img->delete();
        }
        return true;
        
         
    }
    /**
     * check who is trying to access this. false == access denied..
     */
    function checkPerm($lvl, $au, $changes = false) 
    {
        
        // do we have an empty system..
        if ($au && $au->id == -1) {
            return true;
        }
        
        
        
        if ($au->company()->comptype != 'OWNER') {
            
            // hacking!
            if ($changes && isset($changes['comptype']) && $changes['comptype'] != $this->comptype) {
                return false;
            }
            
            return $this->id == $au->company_id;
        }
        
        return $au->hasPerm("Core.Companies", $lvl);    
    }
    
    function logoImageToHTML($size)
    {
        $i = DB_DataObject::factory('Images');
        if (!$this->logo_id || !$i->get($this->logo_id)) {
            return '';
        }
        return $i->toHTML($size);
        
    }
     function firstImage($filter='image/%')
    {
        $i = DB_DataObject::factory('Images');
        //DB_DataObject::debugLevel(1);
        $im = $i->gather($this, $filter);
        if (empty($im)) {
            return false;
        }
        return $im[0];
    }
    
    function firstImageTag($size =-1, $base="/Images/Thumb", $filter='image/%')
    {
        $fm = $this->firstImage($filter);
         if (empty($fm)) {
            return '';
        }
        return $fm->toHTML($size, $base);
    }
    
    function toRooSingleArray($authUser, $request)
    {
        $ret = $this->toArray();
       // DB_DataObject::debugLevel(1);
        // get the comptype display
        $e = DB_DataObject::Factory('core_enum')->lookupObject('COMPTYPE', $this->comptype);
        
        $ret['comptype_display'] = $ret['comptype'];
        if ($e   && !empty($e->name_display)) {
            $ret['comptype_display'] = $e->name_display;
        }
        
        
        return $ret;
    }
    
    /**
     * # 2028 
     * create the suppliers...
     * 
     * @param object $roo
     * @param array $data
     * 
     */
    function initCompaniesArray($roo, $data)
    {
        $tn = $this->tableName();
        
        foreach($data as $d){
            $com = DB_DataObject::factory($tn);
            $com->setFrom($d);
            if(!$com->find(true)){
                $com->created_dt = Date('Y-m-d H:i:s');
                $com->updated_dt = Date('Y-m-d H:i:s');
                $com->is_system = 1;// new column.. block the user changing the code and name..
                $com->insert();
            }
        }
        
        
    }
    
    
    function initCompanies($roo, $opts)
    {
        $companies = DB_DataObject::factory('core_company');
        
        $ctype = empty($opts['add-company-with-type']) ? 'OWNER' : $opts['add-company-with-type'];
        
        $enum = DB_DataObject::Factory('core_enum')->lookup('COMPTYPE', $ctype  );
        
        if (empty($enum)) {
            $roo->jerr("invalid company type '$ctype'");
        }
        if ($ctype =='OWNER') {
            $companies = DB_DataObject::factory('core_company');
            $companies->comptype_id = $enum;
            if ($companies->count()) {
                $roo->jerr("Owner  company already exists");
            }
        }
        $companies = DB_DataObject::factory('core_company');
        
        // check that 
        $companies->setFrom(array(
            'name' => $opts['add-company'],
            'comptype' => $ctype,
            'comptype_id' => $enum,
        ));
        if ($companies->find(true)) {
            $roo->jerr("company already exists");
        }
        $companies->setFrom(array(
            'background_color' => '',
            'created_dt' => $this->sqlValue('NOW()'),
            'updated_dt' => $this->sqlValue('NOW()')
        ));
        
        
        $companies->insert();
        $companies->onInsert(array(), $roo);
    }
    
    function owner()
    {
        if (empty($this->owner_id)) {
            return false;
        }
        static $cache = false;
        if ($cache !== false && isset($cache[$this->owner_id])) {
            return $cache[$this->owner_id]; 
        }
        $o = DB_DataObject::factory('core_company');
        if (!$o->get($this->owner_id)) {
            return false;
        }
        $cache[$this->owner_id] = $o;
        return $o;
        
    }
    
    /// look up the company which is the system owner...
    static function lookupOwner()
    {
        static $cache = false;
        if ($cache !== false) {
            return clone($cache); // no updating this object..
        }
        
        $enum = DB_DataObject::Factory('core_enum')->lookup('COMPTYPE', 'OWNER'  );
        $companies = DB_DataObject::factory('core_company');
        $companies->comptype_id = $enum;
        if ($companies->find(true)) {
            $cache = clone($companies);
            return $companies;
        }
        return false;
    }
    
    function merge($merge_to, $roo)
    {
        $affects  = array();
        
        $all_links = $this->databaseLinks();
        
        foreach($all_links as $tbl => $links) {
            foreach($links as $col => $totbl_col) {
                $to = explode(':', $totbl_col);
                if ($to[0] != $this->tableName()) {
                    continue;
                }
                
                $affects[$tbl .'.' . $col] = true;
            }
        }
        
        foreach($affects as $k => $true) {
            $ka = explode('.', $k);

            $chk = DB_DataObject::factory($ka[0]);
            
            if (!is_a($chk,'DB_DataObject')) {
                $roo->jerr('Unable to load referenced table, check the links config: ' .$ka[0]);
            }
            
            $chk->{$ka[1]} = $this->id;

            foreach ($chk->fetchAll() as $c){
                $cc = clone ($c);
                $c->{$ka[1]} = $merge_to;
                $c->update($cc);
            }
        }
        
        $this->delete();
        
        $roo->jok('Merged');
        
    }
    
    function checkName()
    {
        $company = DB_DataObject::factory('core_company');
        $company->setFrom(array(
            'name' => $this->name
        ));
        
        if(!empty($this->id)){
            $company->whereAdd("id != {$this->id}");
        }
        
        if(!$company->find(true)){
            return true;
        }
        
        return false;
    }
}