|  | @@ -259,7 +259,7 @@ begin
 | 
	
		
			
				|  |  |    sgs := TStringList.Create;
 | 
	
		
			
				|  |  |    try
 | 
	
		
			
				|  |  |      sgs.Add(Format('filter=%s', [FBGLData.AllCloudBGLWebID]));
 | 
	
		
			
				|  |  | -    sUrl := PHPWeb.WebPath + Format('change/get/%d/list', [TProjectData(FBGLData.ProjectData).WebID]);
 | 
	
		
			
				|  |  | +    sUrl := PHPWeb.MeasureURL + Format('change/get/%d/list', [TProjectData(FBGLData.ProjectData).WebID]);
 | 
	
		
			
				|  |  |      if PHPWeb.UrlGet(sUrl, sgs, sInfo) = 1 then
 | 
	
		
			
				|  |  |        FBGLData.LoadCloudBGL(sInfo)
 | 
	
		
			
				|  |  |      else if sInfo <> '' then
 |