Subversion Repositories DevTools

Rev

Rev 7244 | Rev 7277 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7244 Rev 7250
Line 2226... Line 2226...
2226 
 
 2226 
 
2227 
    NiceDuration = NiceDuration & joiner & duration & "s"
 2227 
    NiceDuration = NiceDuration & joiner & duration & "s"
2228 
End Function
 2228 
End Function
2229 
 
 2229 
 
2230 
'--------------------------------------------------------------------------------------------------------------------------
 2230 
'--------------------------------------------------------------------------------------------------------------------------
- 
 
 2231 
' Quick and ugly code to attempt to remove nasty characters from strings
- 
 
 2232 
' In particular some unicode characters that mess with the json decoder
- 
 
 2233 
Function CleanUpJson (input)
- 
 
 2234 
      Dim objRegExp, outputStr
- 
 
 2235 
      Set objRegExp = New Regexp
- 
 
 2236 
 
- 
 
 2237 
      objRegExp.IgnoreCase = True
- 
 
 2238 
      objRegExp.Global = True
- 
 
 2239 
      objRegExp.Pattern = "((?![\[\]\(\)\{\}\$-_?/""';:.,a-zA-Z0-9]).)+"
- 
 
 2240 
      outputStr = objRegExp.Replace(input, " ")
- 
 
 2241 
 
- 
 
 2242 
      CleanUpJson = outputStr
- 
 
 2243 
    End Function
- 
 
 2244 
 
- 
 
 2245 
'--------------------------------------------------------------------------------------------------------------------------
2231 
'   Test if package can be added to a release
 2246 
'   Test if package can be added to a release
2232 
'       Really tests if a a package of this packages alias can be
 2247 
'       Really tests if a a package of this packages alias can be
2233 
'       manipulated in this release
 2248 
'       manipulated in this release
2234 
'   True: Package alias can be added/replaced in release
 2249 
'   True: Package alias can be added/replaced in release
2235 
Function canAddToRelease ( nRtagId, nPvId )
 2250 
Function canAddToRelease ( nRtagId, nPvId )