Subversion Repositories DevTools

Rev

Rev 6122 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6122 Rev 7395
Line 183... Line 183...
183
        Dim pkg_name     : pkg_name = fields(2)
183
        Dim pkg_name     : pkg_name = fields(2)
184
        Dim pkg_version  : pkg_version = fields(3)
184
        Dim pkg_version  : pkg_version = fields(3)
185
        Dim description  : description = Server.HTMLEncode(fields(4))
185
        Dim description  : description = Server.HTMLEncode(fields(4))
186
        Dim v_ext        : v_ext = fields(5)
186
        Dim v_ext        : v_ext = fields(5)
187
        Dim state        : state = fields(6)
187
        Dim state        : state = fields(6)
188
        Dim comments     : comments = Server.HTMLEncode(fields(7))
188
        Dim comments     : comments = CleanUpJson(Server.HTMLEncode(fields(7)))
189
 
189
 
190
        Set fields = nothing
190
        Set fields = nothing
191
 
191
 
192
        newitem(0) = pv_id
192
        newitem(0) = pv_id
193
        newitem(1) = "<a href=view_by_version.asp?pkg_id=" & pkg_id & "&fpkgversion=*" & v_ext & " title=""" & description & """>" & pkg_name & "</a>"
193
        newitem(1) = "<a href=view_by_version.asp?pkg_id=" & pkg_id & "&fpkgversion=*" & v_ext & " title=""" & description & """>" & pkg_name & "</a>"