CreateObject("ScriptLanguage", array ( new TenantStringTableEntry($langEnglish, "Script Language") ), array ( new TenantStringTableEntry($langEnglish, "A programming language used to write scripts.") ), array ( new TenantObjectInstanceProperty("Name", DataType::GetByName("Text")), new TenantObjectInstanceProperty("ContentType", DataType::GetByName("Text")) )); $objClientScriptLanguage = $tenant->CreateObject("ClientScriptLanguage", array ( new TenantStringTableEntry($langEnglish, "Client Script Language") ), array ( new TenantStringTableEntry($langEnglish, "A programming language used to write scripts to be run on the client.") ), array ( // property name, data type, default value, value required?, enumeration, require choice from enumeration? new TenantObjectInstanceProperty("Name", DataType::GetByName("Text")), new TenantObjectInstanceProperty("ContentType", DataType::GetByName("Text")) ), $objScriptLanguage, array ( array ( new TenantObjectInstancePropertyValue("Name", "JavaScript"), new TenantObjectInstancePropertyValue("ContentType", "text/javascript") ), array ( new TenantObjectInstancePropertyValue("Name", "VBScript"), new TenantObjectInstancePropertyValue("ContentType", "text/vbscript") ) )); $objServerScriptLanguage = $tenant->CreateObject("ServerScriptLanguage", array ( new TenantStringTableEntry($langEnglish, "Server Script Language") ), array ( new TenantStringTableEntry($langEnglish, "A programming language used to write scripts to be run on the server.") ), array ( // property name, data type, default value, value required?, enumeration, require choice from enumeration? new TenantObjectInstanceProperty("Name", DataType::GetByName("Text")), new TenantObjectInstanceProperty("ContentType", DataType::GetByName("Text")) ), $objScriptLanguage, array ( array ( new TenantObjectInstancePropertyValue("Name", "PHP"), new TenantObjectInstancePropertyValue("ContentType", "application/x-php") ) )); $objScript = $tenant->CreateObject("Script", array ( new TenantStringTableEntry($langEnglish, "Script") ), array ( new TenantStringTableEntry($langEnglish, "A code blob that can be used in various scriptable areas.") ), array ( // property name, data type, default value, value required?, enumeration, require choice from enumeration? new TenantObjectInstanceProperty("Name", DataType::GetByName("Text")), new TenantObjectInstanceProperty("Description", DataType::GetByName("Text")), new TenantObjectInstanceProperty("Language", DataType::GetByName("SingleInstance"), new SingleInstanceProperty(null, array($objScriptLanguage))), new TenantObjectInstanceProperty("Content", DataType::GetByName("CodeBlob")) )); $objClientScript = $tenant->CreateObject("ClientScript", array ( new TenantStringTableEntry($langEnglish, "Client Script") ), array ( new TenantStringTableEntry($langEnglish, "A code blob that can be used in various scriptable areas on the client.") ), array ( // property name, data type, default value, value required?, enumeration, require choice from enumeration? new TenantObjectInstanceProperty("Name", DataType::GetByName("Text")), new TenantObjectInstanceProperty("Description", DataType::GetByName("Text")), new TenantObjectInstanceProperty("Language", DataType::GetByName("SingleInstance"), new SingleInstanceProperty(null, array($objClientScriptLanguage))), new TenantObjectInstanceProperty("Content", DataType::GetByName("CodeBlob")) ), $objScript); $objServerScript = $tenant->CreateObject("ServerScript", "A code blob that can be used in various scriptable areas on the server.", array ( // property name, data type, default value, value required?, enumeration, require choice from enumeration? new TenantObjectInstanceProperty("Name", DataType::GetByName("Text")), new TenantObjectInstanceProperty("Description", DataType::GetByName("Text")), new TenantObjectInstanceProperty("Language", DataType::GetByName("SingleInstance"), new SingleInstanceProperty(null, array($objServerScriptLanguage))), new TenantObjectInstanceProperty("Content", DataType::GetByName("CodeBlob")) ), $objScript); ?>