ꦫꦣꦺꦤ꧀ꦄꦤ꧀ꦠꦱꦺꦤ

PATH: home / letacommog / crmleta / include / Webservices

<?php
/*+***********************************************************************************
 * The contents of this file are subject to the vtiger CRM Public License Version 1.1
 * ("License"); You may not use this file except in compliance with the License
 * The Original Code is:  vtiger CRM Open Source
 * The Initial Developer of the Original Code is vtiger.
 * Portions created by vtiger are Copyright (C) vtiger.
 * All Rights Reserved.
 *************************************************************************************/

include_once 'include/Webservices/Query.php';
include_once 'include/Webservices/RelatedTypes.php';

function vtws_query_related($query, $id, $relatedLabel, $user, $filterClause = null) {
    global $log, $adb;

$webserviceObject = VtigerWebserviceObject::fromId($adb, $id);
    $handlerPath  = $webserviceObject->getHandlerPath();
    $handlerClass = $webserviceObject->getHandlerClass();
    require_once $handlerPath;
    $handler = new $handlerClass($webserviceObject, $user, $adb, $log);
    $meta = $handler->getMeta();
    $entityName = $meta->getObjectEntityName($id);

// Extract related module name from query.
    $relatedType = null;
    if (preg_match("/FROM\s+([^\s]+)/i", $query, $m)) {
	    $relatedType = trim($m[1]);
    }
    
    // Check for presence of expected relation.
    $found = false;
    $relatedTypes = vtws_relatedtypes($entityName, $user);
    foreach ($relatedTypes['information'] as $label => $information) {
        if ($label == $relatedLabel && $information['name'] == $relatedType) {
            $found = true;
            break;
        }
    }

if (!$found) {
        throw new WebServiceException(WebServiceErrorCode::$UNKOWNENTITY, "Relation specified is incorrect");
    }
    
    vtws_preserveGlobal('currentModule', $entityName);

// Fetch related record IDs - so we can further retrieve complete information using vtws_query 
    $relatedWebserviceObject = VtigerWebserviceObject::fromName($adb, $relatedType);
    $relatedHandlerPath  = $relatedWebserviceObject->getHandlerPath();
    $relatedHandlerClass = $relatedWebserviceObject->getHandlerClass();
    require_once $relatedHandlerPath;
    $relatedHandler = new $relatedHandlerClass($relatedWebserviceObject, $user, $adb, $log);
    $relatedIds = $handler->relatedIds($id, $relatedType, $relatedLabel, $relatedHandler);

// Initialize return value
	$relatedRecords = array();
	
	// Rewrite query and extract related records if there at least one.
    if (!empty($relatedIds)) {    	
        $relatedIdClause = "id IN ('".implode("','", $relatedIds)."')";
        if (stripos($query, 'WHERE') == false) {
            $query .= " WHERE " . $relatedIdClause;
        } else {
            $queryParts = explode('WHERE', $query);
            $query = $queryParts[0] ." WHERE " . $relatedIdClause;
            $query .= " AND " .$queryParts[1];
        }
        if(!empty($filterClause)){
            $query .= " " . $filterClause;
        }
        $query.=";";
        $relatedRecords = vtws_query($query, $user);
    }

VTWS_PreserveGlobal::flush();	
    return $relatedRecords;
}

[+] ..
[-] DescribeObjectPartial.php [edit]
[-] SessionManager.php [edit]
[+] LineItem
[-] Revise.php [edit]
[+] Custom
[-] RelatedTypes.php [edit]
[-] ModuleTypes.php [edit]
[-] RetrieveRelated.php [edit]
[-] VTQL_Parser.php [edit]
[-] VtigerCRMObject.php [edit]
[-] Retrieve.php [edit]
[-] ConvertPotential.php [edit]
[-] WebserviceEntityOperation.php [edit]
[-] OperationManager.php [edit]
[-] Logout.php [edit]
[-] WebserviceField.php [edit]
[-] WebServiceError.php [edit]
[-] History.php [edit]
[-] DescribeObject.php [edit]
[-] VtigerWebserviceObject.php [edit]
[-] WebServiceErrorCode.php [edit]
[-] ExtendSession.php [edit]
[-] AuthToken.php [edit]
[-] VtigerCRMActorMeta.php [edit]
[-] Utils.php [edit]
[-] VTQL_Lexer.php [edit]
[-] AddRelated.php [edit]
[-] QueryParser.php [edit]
[-] Delete.php [edit]
[-] ConvertLead.php [edit]
[-] VtigerActorOperation.php [edit]
[-] PreserveGlobal.php [edit]
[-] Login.php [edit]
[-] State.php [edit]
[-] QueryRelated.php [edit]
[-] DataTransform.php [edit]
[-] VtigerProductOperation.php [edit]
[-] VtigerModuleOperation.php [edit]
[-] Create.php [edit]
[-] VtigerCRMObjectMeta.php [edit]
[-] GetUpdates.php [edit]
[-] Query.php [edit]
[-] RelatedModuleMeta.php [edit]
[-] Relation.php [edit]
[-] Update.php [edit]
[-] EntityMeta.php [edit]