Subversion Repositories DevTools

Rev

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

Rev 7022 Rev 7030
Line 122... Line 122...
122 
            ElseIf pkgInfoHash("is_released") Then
 122 
            ElseIf pkgInfoHash("is_released") Then
123 
              lState = enum_imgReleasedUnlocked
 123 
              lState = enum_imgReleasedUnlocked
124 
            ElseIf pkgInfoHash.Item ("dlocked") = "P" Then
 124 
            ElseIf pkgInfoHash.Item ("dlocked") = "P" Then
125 
              lState = enum_imgPending
 125 
              lState = enum_imgPending
126 
            ElseIf (pkgInfoHash.Item ("dlocked") = "N") OR (pkgInfoHash.Item ("dlocked") = "R") Then
 126 
            ElseIf (pkgInfoHash.Item ("dlocked") = "N") OR (pkgInfoHash.Item ("dlocked") = "R") Then
127 
              'ElseIf (irtag_id<>"") Then
 - 
 
128 
              lState = enum_imgBuilding
 127 
              lState = enum_imgBuilding
129 
            ElseIf (pkgInfoHash.Item ("dlocked") = "A") Then
 128 
            ElseIf (pkgInfoHash.Item ("dlocked") = "A") Then
- 
 
 129
- 
 
 130 
 
130 
                lState = "<img src='icons/i_approved.gif' width='11' height='17' border='0' title='Approved to Build" & "&#13;" & "Click to view details." & "' onClick=""location.href='build_status.asp?rtag_id=" & irtag_id & "';"" >"
 131 
                lState = "<img src='icons/i_approved.gif' width='11' height='17' border='0' title='Approved to Build" & "&#13;" & "Click to view details." & "' onClick=""location.href='build_status.asp?rtag_id=" & irtag_id & "';"" >"
131 
            End If
 132 
            End If
132 
            If NOT isEmpty(lState) Then Response.write "<td>" & lState & "</td>"
 133 
            If NOT isEmpty(lState) Then Response.write "<td>" & lState & "</td>"
133 
 
 134 
 
134 
            If pkgInfoHash.Item ("product_state") = 4 Then
 135 
            If pkgInfoHash.Item ("product_state") = 4 Then
Line 212... Line 213...
212 
                Response.write "</td>"
 213 
                Response.write "</td>"
213 
            End If
 214 
            End If
214 
 
 215 
 
215 
            If pkgInfoHash.Item("isBuilding") Then
 216 
            If pkgInfoHash.Item("isBuilding") Then
216 
                Response.write "<td>"
 217 
                Response.write "<td>"
217 
                Response.write "<img src='images/compile.png' width='17' height='17' border='0' title='Package is currently building" & "&#13;" & "Click to view details." & "' onClick=""location.href='build_status.asp?rtag_id=" & irtag_id & "';"" >"
 218 
                Response.write "<img src='images/compile.gif' width='17' height='17' border='0' title='Package is currently building" & "&#13;" & "Click to view details." & "' onClick=""location.href='build_status.asp?rtag_id=" & irtag_id & "';"" >"
218 
                Response.write "</td>"
 219 
                Response.write "</td>"
219 
            End If
 220 
            End If
220 
 
 221 
 
221 
            ' check if this package has a build failure file
 222 
            ' check if this package has a build failure file
222 
            If pkgInfoHash("has_build_failure") Then
 223 
            If pkgInfoHash("has_build_failure") Then
223 
                Response.write "<td>"
 224 
                Response.write "<td>"
224 
                Response.write "<img src='icons/i_build_failure.gif' width='19' height='17' border='0' title='Package build failure." & "&#13;" & "Click to view details." &"' onClick=""location.href='build_status.asp?rtag_id=" & irtag_id & "';"" >"
 225 
                Response.write "<img src='images/build_failed.png' width='17' height='17' border='0' title='Package build failure." & "&#13;" & "Click to view details." &"' onClick=""location.href='build_status.asp?rtag_id=" & irtag_id & "';"" >"
225 
                Response.write "</td>"
 226 
                Response.write "</td>"
226 
            ElseIf pkgInfoHash("is_excluded") Then
 227 
            ElseIf pkgInfoHash("is_excluded") Then
227 
            ' check if this package has been excluded from the build
 228 
            ' check if this package has been excluded from the build
228 
                Response.write "<td>"
 229 
                Response.write "<td>"
229 
                Response.write "<img src='icons/i_build_exclusion.gif' width='19' height='17' border='0' title='Package excluded from build." & "&#13;" & "Click to view details." &"' onClick=""location.href='build_status.asp?rtag_id=" & irtag_id & "';"" >"
 230 
                Response.write "<img src='images/build_excluded.png' width='17' height='17' border='0' title='Package excluded from build." & "&#13;" & "Click to view details." &"' onClick=""location.href='build_status.asp?rtag_id=" & irtag_id & "';"" >"
230 
                Response.write "</td>"
 231 
                Response.write "</td>"
231 
            End If
 232 
            End If
232 
 
 233 
 
233 
            ' Warn if the package is not in the package archive
 234 
            ' Warn if the package is not in the package archive
234 
            ' Use http access for package test as this does not require AD authentication
 235 
            ' Use http access for package test as this does not require AD authentication