[PATCH 1/2] mshtml: Implement HTMLScriptElement_put_type

[Adam Petaccia]

---
 dlls/mshtml/htmlscript.c |   14 ++++++++++++--
 1 files changed, 12 insertions(+), 2 deletions(-)

diff --git a/dlls/mshtml/htmlscript.c b/dlls/mshtml/htmlscript.c
index 2427309..f39e306 100644
--- a/dlls/mshtml/htmlscript.c
+++ b/dlls/mshtml/htmlscript.c
@@ -214,8 +214,18 @@ static HRESULT WINAPI HTMLScriptElement_get_onerror(IHTMLScriptElement *iface, V
 static HRESULT WINAPI HTMLScriptElement_put_type(IHTMLScriptElement *iface, BSTR v)
 {
     HTMLScriptElement *This = HTMLSCRIPT_THIS(iface);
-    FIXME("(%p)->(%s)\n", This, debugstr_w(v));
-    return E_NOTIMPL;
+    nsAString nstype_str;
+    nsresult nsres;
+
+    TRACE("(%p)->(%s)\n", This, debugstr_w(v));
+
+    nsAString_Init(&nstype_str, v);
+    nsres = nsIDOMHTMLScriptElement_SetType(This->nsscript, &nstype_str);
+    if (NS_FAILED(nsres))
+        ERR("SetType failed: %08x\n", nsres);
+    nsAString_Finish (&nstype_str);
+
+    return S_OK;
 }
 
 static HRESULT WINAPI HTMLScriptElement_get_type(IHTMLScriptElement *iface, BSTR *p)
-- 
1.6.3.2.363.gc5764.dirty