Subversion Repositories DevTools

Rev

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

Rev 4390 Rev 4617
Line 101... Line 101...
101 
            Response.write "<tr>"
 101 
            Response.write "<tr>"
102 
            Response.write "<td>"
 102 
            Response.write "<td>"
103 
            Response.write "<SPAN class='lbox_ttl'>"& pkgInfoHash.Item ("pkg_name") &"&nbsp;"& pkgInfoHash.Item ("pkg_version") & "&nbsp;" & "&nbsp;" & "</SPAN>"
 103 
            Response.write "<SPAN class='lbox_ttl'>"& pkgInfoHash.Item ("pkg_name") &"&nbsp;"& pkgInfoHash.Item ("pkg_version") & "&nbsp;" & "&nbsp;" & "</SPAN>"
104 
            Response.write "</td>"
 104 
            Response.write "</td>"
105 
 
 105 
 
106 
            Response.write "<td>"
 - 
 
107 
            ' dlocked: Y - release, N - unlocked, P - pending, A - approved, R - rejected
 106 
            ' dlocked: Y - release, N - unlocked, P - pending, A - approved, R - rejected
- 
 
 107 
            Dim lState
108 
            If pkgInfoHash.Item ("dlocked") = "Y" Then
 108 
            If pkgInfoHash.Item ("dlocked") = "Y" Then
109 
              Response.write enum_imgReleasedLocked
 109 
              lState = enum_imgReleasedLocked
110 
            ElseIf pkgInfoHash("is_released") Then
 110 
            ElseIf pkgInfoHash("is_released") Then
111 
              Response.write enum_imgReleasedUnlocked
 111 
              lState = enum_imgReleasedUnlocked
112 
            ElseIf pkgInfoHash.Item ("dlocked") = "P" Then
 112 
            ElseIf pkgInfoHash.Item ("dlocked") = "P" Then
113 
              Response.write enum_imgPending
 113 
              lState = enum_imgPending
114 
            ElseIf (pkgInfoHash.Item ("dlocked") = "N") OR (pkgInfoHash.Item ("dlocked") = "R") Then
 114 
            ElseIf (pkgInfoHash.Item ("dlocked") = "N") OR (pkgInfoHash.Item ("dlocked") = "R") Then
115 
              'ElseIf (irtag_id<>"") Then
 115 
              'ElseIf (irtag_id<>"") Then
116 
              Response.write enum_imgBuilding
 116 
              lState = enum_imgBuilding
117 
            End If
 117 
            End If
118 
            Response.write "</td>"
 118 
            If NOT isEmpty(lState) Then Response.write "<td>" & lState & "</td>"
119 
            Response.write "<td>"
 - 
 
120 
 
 119 
 
121 
            If pkgInfoHash.Item ("product_state") = 4 Then
 120 
            If pkgInfoHash.Item ("product_state") = 4 Then
122 
              Response.write enum_imgProductRejected
 121 
                Response.write "<td>" & enum_imgProductRejected & "</td>"
123 
            End If
 122 
            End If
124 
            Response.write "</td>"
 - 
 
125 
            Response.write "<td>"
 - 
 
126 
 
 123 
 
127 
            Dim state_icon
 124 
            Dim state_icon
128 
 
 - 
 
129 
            If Not IsNull(pkgInfoHash.Item ("deprecated_state")) Then
 125 
            If Not IsNull(pkgInfoHash.Item ("deprecated_state")) Then
130 
              Select Case CInt(pkgInfoHash.Item ("deprecated_state"))
 126 
              Select Case CInt(pkgInfoHash.Item ("deprecated_state"))
131 
                Case enumPKG_STATE_DEPRECATED
 127 
                Case enumPKG_STATE_DEPRECATED
132 
                  state_icon = enum_imgDeprecated
 128 
                  state_icon = enum_imgDeprecated
133 
                Case enumPKG_STATE_DEPRECATED_DEPENDENT
 129 
                Case enumPKG_STATE_DEPRECATED_DEPENDENT
134 
                  state_icon = enum_imgDeprecatedDependent
 130 
                  state_icon = enum_imgDeprecatedDependent
135 
              End Select
 131 
              End Select
136 
              Response.write state_icon
 132 
              If NOT isEmpty(state_icon) Then Response.write "<td>" & state_icon & "</td>"
137 
            End If
 133 
            End If
138 
            Response.write "</td>"
 - 
 
139 
            Response.write "<td>"
 - 
 
140 
 
 134 
 
141 
            If Not (IsNull(pkgInfoHash.Item ("pkg_state")) or pkgInfoHash.Item ("pkg_state") = 0) Then
 135 
            If Not (IsNull(pkgInfoHash.Item ("pkg_state")) or pkgInfoHash.Item ("pkg_state") = 0) Then
142 
              Select Case CInt(pkgInfoHash.Item ("pkg_state"))
 136 
              Select Case CInt(pkgInfoHash.Item ("pkg_state"))
143 
                Case enumPKG_STATE_MAJOR
 137 
                Case enumPKG_STATE_MAJOR
144 
                  state_icon = enum_imgCritical
 138 
                  state_icon = enum_imgCritical
Line 157... Line 151...
157 
                Case enumPKG_ADVISORY_RIPPLE_DEPENDENT
 151 
                Case enumPKG_ADVISORY_RIPPLE_DEPENDENT
158 
                  state_icon = enum_imgARD
 152 
                  state_icon = enum_imgARD
159 
                Case enumPKG_PEGGED_VERSION
 153 
                Case enumPKG_PEGGED_VERSION
160 
                  state_icon = enum_imgGreenPin
 154 
                  state_icon = enum_imgGreenPin
161 
              End Select
 155 
              End Select
- 
 
 156 
                Response.write "<td>"
162 
              Response.write state_icon
 157 
                Response.write state_icon
- 
 
 158 
                Response.write "</td>"
163 
            End If
 159 
            End If
164 
            Response.write "</td>"
 - 
 
165 
            Response.write "<td>"
 - 
 
166 
 
 160 
 
167 
 
 161 
 
168 
            'build_type', and a value of 'M' = manual and 'A' = auto
 162 
            'build_type', and a value of 'M' = manual and 'A' = auto
169 
            If pkgInfoHash.Item("build_type") = "M" Then
 163 
            If pkgInfoHash.Item("build_type") = "M" Then
- 
 
 164 
                Response.write "<td>"
170 
              Response.write "<img src='icons/i_manual.gif' width='12' height='14' border='0' title='Manually versioned package'>"
 165 
                Response.write "<img src='icons/i_manual.gif' width='12' height='14' border='0' title='Manually versioned package'>"
- 
 
 166 
                Response.write "</td>"
171 
            End If
 167 
            End If
172 
            Response.write "</td>"
 - 
 
173 
            Response.write "<td>"
 - 
 
174 
 
 168 
 
175 
            ' check if a daemon instruction exists for this package
 169 
            ' check if a daemon instruction exists for this package
176 
            Dim sDmInstr
 170 
            Dim sDmInstr
177 
            sDmInstr = GetOpCodeListForRtagIdAndPvId( "", Request("rtag_id"), pkgInfoHash.Item("pv_id"), "" )
 171 
            sDmInstr = GetOpCodeListForRtagIdAndPvId( "", Request("rtag_id"), pkgInfoHash.Item("pv_id"), "" )
178 
            If sDmInstr <> "" Then
 172 
            If sDmInstr <> "" Then
- 
 
 173 
                Response.write "<td>"
179 
              Response.write "<img src='icons/i_daemon_instr.gif' width='19' height='17' border='0' title='Daemon instruction:" & "&#13;" & sDmInstr & "&#13;" & "Click to view details." & "' onClick=""location.href='build_status.asp?rtag_id=" & irtag_id & "';"" >"
 174 
                Response.write "<img src='icons/i_daemon_instr.gif' width='19' height='17' border='0' title='Daemon instruction:" & "&#13;" & sDmInstr & "&#13;" & "Click to view details." & "' onClick=""location.href='build_status.asp?rtag_id=" & irtag_id & "';"" >"
- 
 
 175 
                Response.write "</td>"
180 
            End If
 176 
            End If
181 
            Response.write "</td>"
 - 
 
182 
            Response.write "<td>"
 - 
 
183 
 
 177 
 
184 
            ' check if this package has a build failure file
 178 
            ' check if this package has a build failure file
185 
            If pkgInfoHash("has_build_failure") Then
 179 
            If pkgInfoHash("has_build_failure") Then
- 
 
 180 
                Response.write "<td>"
186 
              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 & "';"" >"
 181 
                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 & "';"" >"
- 
 
 182 
                Response.write "</td>"
187 
            ElseIf pkgInfoHash("is_excluded") Then
 183 
            ElseIf pkgInfoHash("is_excluded") Then
188 
            ' check if this package has been excluded from the build
 184 
            ' check if this package has been excluded from the build
- 
 
 185 
                Response.write "<td>"
189 
              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 & "';"" >"
 186 
                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 & "';"" >"
- 
 
 187 
                Response.write "</td>"
190 
            End If
 188 
            End If
191 
            Response.write "</td>"
 - 
 
192 
            Response.write "<td>"
 - 
 
193 
 
 189 
 
- 
 
 190 
            ' Warn if the package is not in the package archive
- 
 
 191 
            If (pkgInfoHash.Item ("dlocked") = "Y") OR (pkgInfoHash.Item ("dlocked") = "P") Then
- 
 
 192 
                Dim fso
- 
 
 193 
                Set fso = server.createObject("Scripting.FileSystemObject")
- 
 
 194 
                If NOT fso.FolderExists(dpkg_archiveRoot & "\" & pkgInfoHash.Item ("pkg_name") & "\" & pkgInfoHash.Item ("pkg_version")) Then
- 
 
 195 
                    Response.write "<td>"
- 
 
 196 
                    Response.write enum_imgNotInArchive
194 
            Response.write "</td>"
 197 
                    Response.write "</td>"
- 
 
 198 
                End If
- 
 
 199 
            End If
195 
 
 200 
 
196 
            Response.write "</tr>"
 201 
            Response.write "</tr>"
197 
            Response.write "</table>"
 202 
            Response.write "</table>"
198 
 
 203 
 
199 
         End If
 204 
         End If