Subversion Repositories DevTools

Rev

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

Rev 4670 Rev 4687
Line 912... Line 912...
912 
         <td width="1" background="images/bg_action_norm.gif"><img src="images/spacer.gif" width="10" height="35"></td>
 912 
         <td width="1" background="images/bg_action_norm.gif"><img src="images/spacer.gif" width="10" height="35"></td>
913 
         <td width="100%" nowrap background="images/bg_action_norm.gif" >
 913 
         <td width="100%" nowrap background="images/bg_action_norm.gif" >
914 
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
 914 
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
915 
               <tr>
 915 
               <tr>
916 
                  <%
 916 
                  <%
917 
                  Dim rsTest
 - 
 
918 
                  Set rsTest = OraDataBase.DbCreateDynaset( "SELECT PROJ_ID   FROM RELEASE_TAGS WHERE RTAG_ID ="&parRtag_id , ORADYN_DEFAULT )
 - 
 
919 
 
 - 
 
920 
                  If objAccessControl.UserLogedIn AND ((((ReleaseMode = enumDB_RELEASE_IN_CCB_MODE) OR (ReleaseMode = enumDB_RELEASE_IN_RESTRICTIVE_MODE)) AND objAccessControl.IsActive("AddDeletePackageInRestrictiveMode") And objAccessControl.IsDataActive("PROJECTS", DB_PROJ_ID, "EditProjects")) OR (ReleaseMode = enumDB_RELEASE_IN_OPEN_MODE )) Then
 917 
                  If objAccessControl.UserLogedIn AND ((((ReleaseMode = enumDB_RELEASE_IN_CCB_MODE) OR (ReleaseMode = enumDB_RELEASE_IN_RESTRICTIVE_MODE)) AND objAccessControl.IsActive("AddDeletePackageInRestrictiveMode") And objAccessControl.IsDataActive("PROJECTS", DB_PROJ_ID, "EditProjects")) OR (ReleaseMode = enumDB_RELEASE_IN_OPEN_MODE )) Then
921 
                     Response.write "<td width='1'><a 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'></a></td>"
 918 
                     Response.write "<td width='1'><a 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'></a></td>"
922 
                  Else
 919 
                  Else
923 
                     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>"
 920 
                     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>"
924 
                  End If
 921 
                  End If
Line 930... Line 927...
930 
                        Response.write "<td width='1'><img title='Destroy the selected Package Version' src='icons/i_destroy_package_off.gif' alt='Destroy the selected Package Version' width='26' height='26' hspace='1' border='0'></td>"
 927 
                        Response.write "<td width='1'><img title='Destroy the selected Package Version' src='icons/i_destroy_package_off.gif' alt='Destroy the selected Package Version' width='26' height='26' hspace='1' border='0'></td>"
931 
                     End If
 928 
                     End If
932 
                  End If
 929 
                  End If
933 
 
 930 
 
934 
                  If objAccessControl.IsActive("CreateNewRelease") Then
 931 
                  If objAccessControl.IsActive("CreateNewRelease") Then
935 
                     Response.write "<td width='1'><a href='form_edit_release.asp?rtag_id_list="&parRtag_id&"&proj_id="&rsTest("proj_id")&"' title='Release properties'><img src='images/abtn_release_properties.gif'  width='25' height='25' hspace='1' border='0'></a></td>"
 932 
                     Response.write "<td width='1'><a href='form_edit_release.asp?rtag_id_list="&parRtag_id&"&proj_id="&pkgInfoHash.Item("proj_id")&"' title='Release properties'><img src='images/abtn_release_properties.gif'  width='25' height='25' hspace='1' border='0'></a></td>"
936 
                  End If
 933 
                  End If
937 
 
 934 
 
938 
                  Response.write "<td width='1'><img src='images/spacer.gif' width='7' height='25'></td>"
 935 
                  Response.write "<td width='1'><img src='images/spacer.gif' width='7' height='25'></td>"
939 
                  If objAccessControl.UserLogedIn Then
 936 
                  If objAccessControl.UserLogedIn Then
940 
                     If QStrPar("Pview") = "disable" Then
 937 
                     If QStrPar("Pview") = "disable" Then
Line 960... Line 957...
960 
 
 957 
 
961 
                  Response.write "<td width='1'><a href='javascript:;' title='Advanced Search...' onClick='ToggleAdvancedSearch(); ' ><SPAN name='SPAN_ADVANCED_SEARCH' id='SPAN_ADVANCED_SEARCH' style='display:block;'><img src='images/abtn_advanced_search.gif' width='25' height='25' border='0' hspace='1' ></SPAN><SPAN name='SPAN_ADVANCED_SEARCH_ON' id='SPAN_ADVANCED_SEARCH_ON' style='display:none;'><img src='images/abtn_advanced_search_on.gif' width='25' height='25' border='0' hspace='1' ></SPAN></a></td>"
 958 
                  Response.write "<td width='1'><a href='javascript:;' title='Advanced Search...' onClick='ToggleAdvancedSearch(); ' ><SPAN name='SPAN_ADVANCED_SEARCH' id='SPAN_ADVANCED_SEARCH' style='display:block;'><img src='images/abtn_advanced_search.gif' width='25' height='25' border='0' hspace='1' ></SPAN><SPAN name='SPAN_ADVANCED_SEARCH_ON' id='SPAN_ADVANCED_SEARCH_ON' style='display:none;'><img src='images/abtn_advanced_search_on.gif' width='25' height='25' border='0' hspace='1' ></SPAN></a></td>"
962 
 
 959 
 
963 
                  If ( (QStrPar("Dview") <> "enable") AND ( (CInt(nEnvTab) = enumENVTAB_PLANNED) OR (Request("envtab") = enumENVTAB_PLANNED) ) ) Then
 960 
                  If ( (QStrPar("Dview") <> "enable") AND ( (CInt(nEnvTab) = enumENVTAB_PLANNED) OR (Request("envtab") = enumENVTAB_PLANNED) ) ) Then
964 
                     If objAccessControl.UserLogedIn Then
 961 
                     If objAccessControl.UserLogedIn Then
965 
                        If ( ReleaseMode <> enumDB_RELEASE_IN_OPEN_MODE ) Then
 962 
                        If ( ReleaseMode = enumDB_RELEASE_IN_OPEN_MODE ) OR _
- 
 
 963 
                                objAccessControl.IsActive("ApproveForAutoBuild") OR _
966 
                           If objAccessControl.IsActive("ApproveForAutoBuild") OR objAccessControl.IsActive("ApproveForManualBuild") Then
 964 
                                objAccessControl.IsActive("ApproveForManualBuild") Then
967 
                              Response.write "<td width='1'><a href='#' onClick='makeBulkRelease();'><img src='images/abtn_make_release_bulk.gif' title='Make Bulk Release...'></td>"
 965 
                              Response.write "<td width='1'><a href='#' onClick='makeBulkRelease();'><img src='images/abtn_make_release_bulk.gif' title='Make Bulk Release...'></td>"
968 
                           End If
 - 
 
969 
                        Else
 - 
 
970 
                           Response.write "<td width='1'><a href='#' onClick='makeBulkRelease();'><img src='images/abtn_make_release_bulk.gif' title='Make Bulk Release...'></td>"
 - 
 
971 
                        End If
 - 
 
972 
                     End If
 - 
 
973 
                  End If
 - 
 
974 
                  Response.write "<td width='1'><img src='images/spacer.gif' width='1' height='25'></td>"
 966 
                              Response.write "<td width='1'><img src='images/spacer.gif' width='1' height='25'></td>"
975 
                  If ( (QStrPar("Dview") <> "enable") AND ( (CInt(nEnvTab) = enumENVTAB_PLANNED) OR (Request("envtab") = enumENVTAB_PLANNED) ) ) Then
 - 
 
976 
                     If objAccessControl.UserLogedIn Then
 - 
 
977 
                        If ( ReleaseMode <> enumDB_RELEASE_IN_OPEN_MODE ) Then
 - 
 
978 
                           If objAccessControl.IsActive("ApproveForAutoBuild") OR objAccessControl.IsActive("ApproveForManualBuild") Then
 - 
 
979 
                              Response.write "<td width='1'><a href='#' onClick='makeBulkReject();'><img src='images/abtn_make_bulk_remove.gif' title='Bulk Reject...'></td>"
 967 
                              Response.write "<td width='1'><a href='#' onClick='makeBulkReject();'><img src='images/abtn_make_bulk_remove.gif' title='Bulk Reject...'></td>"
980 
                           End If
 - 
 
981 
                        Else
 - 
 
982 
                           Response.write "<td width='1'><a href='#' onClick='makeBulkReject();'><img src='images/abtn_make_bulk_remove.gif' title='Bulk Reject...'></td>"
 - 
 
983 
                        End If
 968 
                        End If
984 
                     End If
 969 
                     End If
985 
                  End If
 970 
                  End If
986 
                  rsTest.Close()
 - 
 
987 
                  Set rsTest = nothing
 - 
 
988 
                  %>
 971 
                  %>
989 
                  <td width="100%"><img src="images/spacer.gif" width="1" height="1"></td>
 972 
                  <td width="100%"><img src="images/spacer.gif" width="1" height="1"></td>
990 
               </tr>
 973 
               </tr>
991 
            </table>
 974 
            </table>
992 
         </td>
 975 
         </td>