| Line 107... |
Line 107... |
| 107 |
<td width="100%" valign="middle" background="images/bg_action_norm.gif"><%
|
107 |
<td width="100%" valign="middle" background="images/bg_action_norm.gif"><%
|
| 108 |
If Request("rtag_id") = "" OR _
|
108 |
If Request("rtag_id") = "" OR _
|
| 109 |
Request("pv_id") = "" OR _
|
109 |
Request("pv_id") = "" OR _
|
| 110 |
bIsPatch OR _
|
110 |
bIsPatch OR _
|
| 111 |
(NOT objAccessControl.UserLogedIn) OR _
|
111 |
(NOT objAccessControl.UserLogedIn) OR _
|
| 112 |
( NOT objAccessControl.IsDataVisible ("PROJECTS", DB_PROJ_ID, "EditProjects") ) OR _
|
112 |
(NOT canActionInProject() ) OR _
|
| 113 |
(ReleaseMode = enumDB_RELEASE_IN_CLOSED_MODE) OR _
|
113 |
(ReleaseMode = enumDB_RELEASE_IN_CLOSED_MODE) OR _
|
| 114 |
(ReleaseMode = enumDB_RELEASE_IN_ARCHIVE_MODE) OR _
|
114 |
(ReleaseMode = enumDB_RELEASE_IN_ARCHIVE_MODE) OR _
|
| 115 |
(ReleaseMode = enumDB_RELEASE_IN_CCB_MODE) _
|
115 |
(ReleaseMode = enumDB_RELEASE_IN_CCB_MODE) _
|
| 116 |
Then
|
116 |
Then
|
| 117 |
'Response.write "HERE"& Request("rtag_id")
|
117 |
'Response.write "HERE"& Request("rtag_id")
|
| Line 119... |
Line 119... |
| 119 |
|
119 |
|
| 120 |
Else
|
120 |
Else
|
| 121 |
|
121 |
|
| 122 |
|
122 |
|
| 123 |
If pkgInfoHash.Item("can_edit_in_project") = "1" OR _
|
123 |
If pkgInfoHash.Item("can_edit_in_project") = "1" OR _
|
| 124 |
objAccessControl.IsVisible("EditPackageInExternalProjects") _
|
124 |
canShowControlInProject("EditPackageInExternalProjects") _
|
| 125 |
|
125 |
|
| 126 |
Then
|
126 |
Then
|
| 127 |
Response.write "<a href='"& scriptName &"?"& Persists_Query_String( "action=true" ) &"' onClick='return confirmAction(""You are about to insert "& sPkg_Name &" "& sPkg_Version &" into a project release. \nDo you want to proceed?"");'><img src='images/abtn_use_this_version.gif' alt='Use this version in project release.' width='107' height='25' hspace='1' border='0'></a>"
|
127 |
Response.write "<a href='"& scriptName &"?"& Persists_Query_String( "action=true" ) &"' onClick='return confirmAction(""You are about to insert "& sPkg_Name &" "& sPkg_Version &" into a project release. \nDo you want to proceed?"");'><img src='images/abtn_use_this_version.gif' alt='Use this version in project release.' width='107' height='25' hspace='1' border='0'></a>"
|
| 128 |
End If
|
128 |
End If
|
| 129 |
|
129 |
|
| Line 194... |
Line 194... |
| 194 |
' Sort versions
|
194 |
' Sort versions
|
| 195 |
Call objSortHelper.VersionSort( aVersions, 0, lastRow, rsVB.FieldIndex("pkg_version") )
|
195 |
Call objSortHelper.VersionSort( aVersions, 0, lastRow, rsVB.FieldIndex("pkg_version") )
|
| 196 |
|
196 |
|
| 197 |
|
197 |
|
| 198 |
DestroyPackage = ""
|
198 |
DestroyPackage = ""
|
| 199 |
CanDestroyPackage = objAccessControl.IsVisible ( "DestroyPackage" )
|
199 |
CanDestroyPackage = canShowControlInProject ( "DestroyPackage" )
|
| 200 |
|
200 |
|
| 201 |
' Descending order
|
201 |
' Descending order
|
| 202 |
For i = lastRow To 0 Step -1
|
202 |
For i = lastRow To 0 Step -1
|
| 203 |
|
203 |
|
| 204 |
%>
|
204 |
%>
|