<?php
        $Vtiger_Utils_Log = true;

        require_once('vtlib/Vtiger/Menu.php');
        require_once('vtlib/Vtiger/Module.php');
        require_once('vtlib/Vtiger/Block.php');
        require_once('vtlib/Vtiger/Field.php');

        $moduleInstance = new Vtiger_Module();
        $moduleInstance->name = 'TWTMortgage';
        $moduleInstance->save();

        $moduleInstance->initTables();

        $menuInstance = Vtiger_Menu::getInstance('Tools');
        $menuInstance->addModule($moduleInstance);

        $blockInstance = new Vtiger_Block();
        $blockInstance->label = 'LBL_MORTGAGE_INFORMATION';
        $moduleInstance->addBlock($blockInstance);

        $blockInstance2 = new Vtiger_Block();
        $blockInstance2->label = 'LBL_CUSTOM_INFORMATION';
        $moduleInstance->addBlock($blockInstance2);

        $fieldInstance = new Vtiger_Field();
        $fieldInstance->name = 'MortgageName';
        $fieldInstance->table = 'vtiger_twtmortgage';
        $fieldInstance->column = 'mortgagename';
//      $fieldInstance->columntype = 'VARCHAR(255)';
        $fieldInstance->uitype = 2;
        $fieldInstance->typeofdata = 'V~M';
        $fieldInstance->masseditable = 0;

        $blockInstance->addField($fieldInstance);

        $moduleInstance->setEntityIdentifier($fieldInstance);

        $fieldInstance2 = new Vtiger_Field();
        $fieldInstance2->name = 'RelatedTo';
//      $fieldInstance2->id = 'relatedto';
        $fieldInstance2->label = 'Related To';
        $fieldInstance2->table = 'vtiger_twtmortgage';
        $fieldInstance2->column = 'related_to';
//      $fieldInstance2->columntype = 'VARCHAR(150)';
        $fieldInstance2->uitype = 10;
        $fieldInstance2->typeofdata = 'V~O';
        $fieldInstance2->helpinfo = 'Relate to an existing contact';
        $fieldInstance2->masseditable = 0;
        $blockInstance->addField($fieldInstance2);
        $fieldInstance2->setRelatedModules(Array('Contacts','Accounts'));

        /** Common fields that should be in every module, linked to vtiger CRM core table */
        $fieldInstance3 = new Vtiger_Field();
        $fieldInstance3->name = 'assigned_user_id';
        $fieldInstance3->label = 'Assigned To';
        $fieldInstance3->table = 'vtiger_crmentity';
        $fieldInstance3->column = 'smownerid';
        $fieldInstance3->uitype = 53;
        $fieldInstance3->typeofdata = 'V~M';
        $blockInstance->addField($fieldInstance3);

        $fieldInstance4 = new Vtiger_Field();
        $fieldInstance4->name = 'CreatedTime';
        $fieldInstance4->label= 'Created Time';
        $fieldInstance4->table = 'vtiger_crmentity';
        $fieldInstance4->column = 'createdtime';
        $fieldInstance4->uitype = 70;
        $fieldInstance4->typeofdata = 'T~O';
        $fieldInstance4->displaytype= 2;
        $blockInstance->addField($fieldInstance4);

        $fieldInstance5 = new Vtiger_Field();
        $fieldInstance5->name = 'ModifiedTime';
        $fieldInstance5->label= 'Modified Time';
        $fieldInstance5->table = 'vtiger_crmentity';
        $fieldInstance5->column = 'modifiedtime';
        $fieldInstance5->uitype = 70;
        $fieldInstance5->typeofdata = 'T~O';
        $fieldInstance5->displaytype= 2;
        $blockInstance->addField($fieldInstance5);
        /** END */

        // Create default custom filter (mandatory)
        $filter1 = new Vtiger_Filter();
        $filter1->name = 'All';
        $filter1->isdefault = true;
        $moduleInstance->addFilter($filter1);

        // Add fields to the filter created
        $filter1->addField($fieldInstance);


        $moduleInstance = Vtiger_Module::getInstance('TWTMortgage');


        $moduleInstance->setDefaultSharing('Private');
        $moduleInstance->disableTools('Export','Import','Merge');

        $moduleInstance->initWebservice();
?>