WebSVN – DevTools – Diff – /ManagerSuite/Release_Manager/trunk/web/build_release_log_json.asp

        Dim reason       : reason = fields(9)
        Dim state        : state = fields(10)
        Dim buildId      : buildId = fields(11)
        Dim tcount       : tcount = fields(13)
        Dim pkg_version  : pkg_version = fields(14)
-       Dim description  : description = CleanUp(Server.HTMLEncode(fields(15)))
+       Dim description  : description = CleanUpJson(Server.HTMLEncode(fields(15)))
-       Dim comments     : comments = CleanUp(Server.HTMLEncode(fields(16)))
+       Dim comments     : comments = CleanUpJson(Server.HTMLEncode(fields(16)))
        Dim buildTime    : buildTime = Server.HTMLEncode(fields(17))
        Set fields = nothing
         If buildTime <= 0 Then buildTime = ""
 'Return the object
 Response.Write oJSON.JSONoutput()
 Set oJSON = Nothing
 Call Destroy_All_Objects
-' Quick and ugly code to attempt to remove nasty characters from strings
-' In particular some unicode characters that mess with the json decoder
-Function CleanUp (input)
-      Dim objRegExp, outputStr
-      Set objRegExp = New Regexp
-      objRegExp.IgnoreCase = True
-      objRegExp.Global = True
-      objRegExp.Pattern = "((?![\[\]\(\)\{\}\$-_?/""';:.,a-zA-Z0-9]).)+"
-      outputStr = objRegExp.Replace(input, " ")
-      CleanUp = outputStr
-    End Function
-%>
+ %>

Subversion Repositories DevTools