Subversion Repositories DevTools

Rev

Rev 6879 | Rev 7001 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6879 Rev 6881
Line 927... Line 927...
927
         <td width="1" class='bg_dialog'><img src="images/spacer.gif" width="10" height="35"></td>
927
         <td width="1" class='bg_dialog'><img src="images/spacer.gif" width="10" height="35"></td>
928
         <td width="100%" nowrap class='bg_dialog' >
928
         <td width="100%" nowrap class='bg_dialog' >
929
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
929
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
930
               <tr>
930
               <tr>
931
                  <%
931
                  <%
932
                  If objAccessControl.UserLogedIn AND ((((ReleaseMode = enumDB_RELEASE_IN_CCB_MODE) OR (ReleaseMode = enumDB_RELEASE_IN_RESTRICTIVE_MODE)) AND canActionControlInProject("AddDeletePackageInRestrictiveMode")) OR (ReleaseMode = enumDB_RELEASE_IN_OPEN_MODE )) Then
932
                  Dim canAdd: canAdd = objAccessControl.UserLogedIn AND ((((ReleaseMode = enumDB_RELEASE_IN_CCB_MODE) OR (ReleaseMode = enumDB_RELEASE_IN_RESTRICTIVE_MODE)) AND canActionControlInProject("AddDeletePackageInRestrictiveMode")) OR (ReleaseMode = enumDB_RELEASE_IN_OPEN_MODE ))
933
                     Response.write "<td width='1'><span class=pointer onClick='location.href=""form_search_pkgs.asp?rtag_id="& Request("rtag_id") &"&add_type="& enum_ADD_PACKAGES &"""' title='Add package to this release'><img src='images/abtn_add_pkg.gif'  width='25' height='25' hspace='1' border='0'></span></td>"
-
 
934
                  Else
-
 
935
                     Response.write "<td width='1'><img src='images/abtn_add_pkg_off.gif' alt='Add package to this release' width='26' height='26' hspace='1' border='0'></td>"
-
 
936
                  End If
-
 
937
 
-
 
938
                  Call BuildActionButton(false,"","Add a Package to this Release", "src=images/abtn_add_pkg.gif width='25' height='25' hspace='1' border='0'", "form_search_pkgs.asp?rtag_id="& Request("rtag_id") &"&add_type="& enum_ADD_PACKAGES )
933
                  Call BuildActionButton(canAdd,"","Add a Package to this Release", "src=images/abtn_add_pkg.gif width='25' height='25' hspace='1' border='0'", "form_search_pkgs.asp?rtag_id="& Request("rtag_id") &"&add_type="& enum_ADD_PACKAGES )
939
 
934
 
940
                  If (pkgInfoHash.Item("dlocked") <> "Y") AND (Request("pv_id") <> "") Then
935
                  If (pkgInfoHash.Item("dlocked") <> "Y") AND (Request("pv_id") <> "") Then
941
                     If  (objAccessControl.UserLogedIn) AND ( (objAccessControl.UserName = pkgInfoHash.Item("creator")) OR (canActionControlInProject("DestroyPackageFromRelease")) ) Then
936
                     If  (objAccessControl.UserLogedIn) AND ( (objAccessControl.UserName = pkgInfoHash.Item("creator")) OR (canActionControlInProject("DestroyPackageFromRelease")) ) Then
942
                        Response.write "<td width='1' title='Destroy the selected Package Version' onClick=""MM_openVixIFrame('_destroy_package.asp?rtag_id=" & Request("rtag_id") & "&bfile="&ScriptName & "&pkg_id=" & pkgInfoHash.Item("pkg_id") & "&pv_id=" & Request("pv_id") & "','Destroy Package Version');"">"
937
                        Response.write "<td width='1' title='Destroy the selected Package Version' onClick=""MM_openVixIFrame('_destroy_package.asp?rtag_id=" & Request("rtag_id") & "&bfile="&ScriptName & "&pkg_id=" & pkgInfoHash.Item("pkg_id") & "&pv_id=" & Request("pv_id") & "','Destroy Package Version');"">"
943
                        Response.Write "<img src='icons/i_destroy_package.gif' width='25' height='25' hspace='1' border='0'></td>"
938
                        Response.Write "<img src='icons/i_destroy_package.gif' width='25' height='25' hspace='1' border='0'></td>"