Subversion Repositories DevTools

Rev

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

Rev 5102 Rev 5103
Line 78... Line 78...
78 
Dim dataCols: dataCols = Array ( _
 78 
Dim dataCols: dataCols = Array ( _
79 
        "skn.sdk_id", _
 79 
        "skn.sdk_id", _
80 
        "skn.sdk_name", _
 80 
        "skn.sdk_name", _
81 
        "skn.sdk_comment",_
 81 
        "skn.sdk_comment",_
82 
        "p.proj_name",_
 82 
        "p.proj_name",_
83 
        "v.view_name" _
 83 
        "v.view_name", _
- 
 
 84 
        "p.proj_id" _
84 
         )
 85 
         )
85 
 
 86 
 
86 
'   Define array of colums to sort by
 87 
'   Define array of colums to sort by
87 
'       Must match user sort column request
 88 
'       Must match user sort column request
88 
Dim sortCols: sortCols = Array ( _
 89 
Dim sortCols: sortCols = Array ( _
Line 157... Line 158...
157 
       Dim sdk_id       : sdk_id = fields(0)
 158 
       Dim sdk_id       : sdk_id = fields(0)
158 
       Dim sdk_name     : sdk_name = fields(1)
 159 
       Dim sdk_name     : sdk_name = fields(1)
159 
       Dim sdk_comment  : sdk_comment = fields(2)
 160 
       Dim sdk_comment  : sdk_comment = fields(2)
160 
       Dim proj_name    : proj_name = fields(3)
 161 
       Dim proj_name    : proj_name = fields(3)
161 
       Dim view_name    : view_name = fields(4)
 162 
       Dim view_name    : view_name = fields(4)
- 
 
 163 
       Dim proj_id      : proj_id = fields(5)
162 
 
 164 
 
163 
       Set fields = nothing
 165 
       Set fields = nothing
164 
 
 166 
 
165 
        newitem(0) = sdk_id
 167 
        newitem(0) = sdk_id
166 
        newitem(1) = sdk_name
 168 
        newitem(1) = sdk_name
167 
        newitem(2) = sdk_comment
 169 
        newitem(2) = sdk_comment
168 
        newitem(3) = proj_name
 170 
        newitem(3) = "<a href='rtree.asp?proj_id=" & proj_id &"'>" & proj_name & "<a>"
169 
        newitem(4) = view_name
 171 
        newitem(4) = view_name
170 
        newitem(5) = "<button class=rmbutton onclick='editSdkEntry("& sdk_id &");'>Edit</button>"
 172 
        newitem(5) = "<button class=rmbutton onclick='editSdkEntry("& sdk_id &");'>Edit</button>"
171 
 
 173 
 
172 
       rsQry.MoveNext
 174 
       rsQry.MoveNext
173 
   Wend
 175 
   Wend