| Line 188... |
Line 188... |
| 188 |
Response.write "<img src='icons/i_build_exclusion.gif' width='19' height='17' border='0' title='Package excluded from build." & " " & "Click to view details." &"' onClick=""location.href='build_status.asp?rtag_id=" & irtag_id & "';"" >"
|
188 |
Response.write "<img src='icons/i_build_exclusion.gif' width='19' height='17' border='0' title='Package excluded from build." & " " & "Click to view details." &"' onClick=""location.href='build_status.asp?rtag_id=" & irtag_id & "';"" >"
|
| 189 |
Response.write "</td>"
|
189 |
Response.write "</td>"
|
| 190 |
End If
|
190 |
End If
|
| 191 |
|
191 |
|
| 192 |
' Warn if the package is not in the package archive
|
192 |
' Warn if the package is not in the package archive
|
| 193 |
' ----NOTE: Does not work as expected. Access to dpkg_arhive requires authenticated user
|
193 |
' Use http access for package test as this does not require AD authentication
|
| 194 |
'If (pkgInfoHash.Item ("dlocked") = "Y") OR (pkgInfoHash.Item ("dlocked") = "P") Then
|
194 |
If (pkgInfoHash.Item ("dlocked") = "Y") OR (pkgInfoHash.Item ("dlocked") = "P") Then
|
| 195 |
' Dim fso
|
- |
|
| 196 |
' Set fso = server.createObject("Scripting.FileSystemObject")
|
- |
|
| 197 |
' If NOT fso.FolderExists(dpkg_archiveRoot & "\" & pkgInfoHash.Item ("pkg_name") & "\" & pkgInfoHash.Item ("pkg_version")) Then
|
195 |
If NOT testArchiveAccessPkg(pkgInfoHash.Item ("pkg_name"), pkgInfoHash.Item ("pkg_version")) Then
|
| 198 |
' Response.write "<td>"
|
196 |
Response.write "<td>"
|
| 199 |
' Response.write enum_imgNotInArchive
|
197 |
Response.write enum_imgNotInArchive
|
| 200 |
' Response.write "</td>"
|
198 |
Response.write "</td>"
|
| 201 |
' End If
|
199 |
End If
|
| 202 |
'End If
|
200 |
End If
|
| 203 |
|
201 |
|
| 204 |
Response.write "</tr>"
|
202 |
Response.write "</tr>"
|
| 205 |
Response.write "</table>"
|
203 |
Response.write "</table>"
|
| 206 |
|
204 |
|
| 207 |
End If
|
205 |
End If
|