Sub InsertColumn(oReturnObject As Object,cReturnSub As String,cTableName As String,cColumnName As String,cColumnType As String)
Dim oTableToAddColumnTo As FusionTable
Dim oJSONGenerator As JSONGenerator
Dim mColumnMap As Map
Dim oCallBack As CallBackClass
Dim cColumnLink As String
Dim cPostString As String
Dim oHttpJob As HttpJob
Dim oStringUtils As StringUtils
Dim mHeaders As Map
mHeaders.Initialize
mColumnMap.Initialize
If mTables.ContainsKey(cTableName) Then
oCallBack.Initialize(oReturnObject,cReturnSub,"")
oTableToAddColumnTo = mTables.Get(cTableName)
mColumnMap.Put("Name",cColumnName)
mColumnMap.Put("Type",cColumnType)
oJSONGenerator.Initialize(mColumnMap)
mJobMap.Put("InsertColumn",oCallBack)
cColumnLink = cTableLink & "/" & oTableToAddColumnTo.fusTableId & "/coulmns?key=" & CMyApiKey
cPostString = oJSONGenerator.ToString
mHeaders.Put("Authorization",cAuthToken)
mHeaders.Put("Content-Type","application/json")
oHttpJob.Initialize("InsertColumn",Me)
Log(cColumnLink)
Log(cPostString)
oHttpJob.PostString2(cColumnLink,cPostString,mHeaders)
End If
End Sub