Adam Petaccia : mshtml: Implement HTMLScriptElement_put_type.

[Alexandre Julliard]

Module: wine
Branch: master
Commit: a7c9ae4d08254f92a39c467a3f147e759776b2c7
URL:    http://source.winehq.org/git/wine.git/?a=commit;h=a7c9ae4d08254f92a39c467a3f...

Author: Adam Petaccia <adam(a)tpetaccia.com>
Date:   Thu Feb 25 16:55:22 2010 -0500

mshtml: Implement HTMLScriptElement_put_type.

---

 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)