Subversion Repositories DevTools

Rev

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

Rev 6877 Rev 6878
Line 592... Line 592...
592
End Function
592
End Function
593
'------------------------------------------------------------------------------------------------------------------------------------------------
593
'------------------------------------------------------------------------------------------------------------------------------------------------
594
Sub Display_Env_BaseView ( NNbase_view_id, SSbase_view, BBviewCollapsed, SScontents )
594
Sub Display_Env_BaseView ( NNbase_view_id, SSbase_view, BBviewCollapsed, SScontents )
595
%>
595
%>
596
<table width="100%"  border="0" cellspacing="0" cellpadding="0" style="border-radius: 3px;border-style: solid;border-top-width: 3px;border-color: #dad7c8;">
596
<table width="100%"  border="0" cellspacing="0" cellpadding="0" style="border-radius: 3px;border-style: solid;border-top-width: 3px;border-color: #dad7c8;">
597
   <tr>
597
   <tr class='bg_dialog'>
598
      <td width="1" align="left" valign="top" bgcolor="#dad7c8">&nbsp;</td>
598
      <td width="1%" align="left" valign="top">&nbsp;</td>
599
      <td width="100%" bgcolor="#dad7c8"><SPAN id="SPANVIEW<%=NNbase_view_id%>" <%If BBviewCollapsed Then%>class="body_scol_thin"<%Else%>class="body_txt"<%End If%>>&nbsp;<b><%=SSbase_view%></b></SPAN></td>
599
      <td width="100%"><SPAN id="SPANVIEW<%=NNbase_view_id%>" <%If BBviewCollapsed Then%>class="body_scol_thin"<%Else%>class="body_txt"<%End If%>>&nbsp;<b><%=SSbase_view%></b></SPAN></td>
600
      <td width="1" align="right" bgcolor="#dad7c8"><span title="Expand/Collapse View" onClick="RequestViewContent('<%=NNbase_view_id%>');"><img id="ENVIMG<%=NNbase_view_id%>" src="images/<%If BBviewCollapsed Then %>btn_max.gif<%Else%>btn_min.gif<%End If%>" border="0"></span></td>
600
      <td width="1%" align="right"><span title="Expand/Collapse View" onClick="RequestViewContent('<%=NNbase_view_id%>');"><img id="ENVIMG<%=NNbase_view_id%>" src="images/<%If BBviewCollapsed Then %>btn_max.gif<%Else%>btn_min.gif<%End If%>" border="0"></span></td>
601
      <td width="1" align="right" valign="top" bgcolor="#dad7c8">&nbsp;</td>
601
      <td width="1%" align="right" valign="top">&nbsp;</td>
602
   </tr>
602
   </tr>
603
</table>
603
</table>
604
<DIV id="ENVDIV<%=NNbase_view_id%>" class="envContent" <%If BBviewCollapsed Then %>style="display:none;"<%Else%>style="display:block;"<%End If%>>
604
<DIV id="ENVDIV<%=NNbase_view_id%>" class="envContent" <%If BBviewCollapsed Then %>style="display:none;"<%Else%>style="display:block;"<%End If%>>
605
   <%If NOT BBviewCollapsed Then %>
605
   <%If NOT BBviewCollapsed Then %>
606
      <%=SScontents%>
606
      <%=SScontents%>
Line 928... Line 928...
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
                  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
933
                     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>"
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
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>"
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
936
                  End If
937
 
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 )
-
 
939
 
938
                  If (pkgInfoHash.Item("dlocked") <> "Y") AND (Request("pv_id") <> "") Then
940
                  If (pkgInfoHash.Item("dlocked") <> "Y") AND (Request("pv_id") <> "") Then
939
                     If  (objAccessControl.UserLogedIn) AND ( (objAccessControl.UserName = pkgInfoHash.Item("creator")) OR (canActionControlInProject("DestroyPackageFromRelease")) ) Then
941
                     If  (objAccessControl.UserLogedIn) AND ( (objAccessControl.UserName = pkgInfoHash.Item("creator")) OR (canActionControlInProject("DestroyPackageFromRelease")) ) Then
940
                        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');"">"
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');"">"
941
                        Response.Write "<img src='icons/i_destroy_package.gif' width='26' height='26' hspace='1' border='0'></td>"
943
                        Response.Write "<img src='icons/i_destroy_package.gif' width='25' height='25' hspace='1' border='0'></td>"
942
                     Else
944
                     Else
943
                        Response.write "<td width='1'><img title='Destroy the selected Package Version' src='icons/i_destroy_package_off.gif' width='26' height='26' hspace='1' border='0'></td>"
945
                        Response.write "<td width='1'><img title='Destroy the selected Package Version' src='icons/i_destroy_package_off.gif' width='26' height='26' hspace='1' border='0'></td>"
944
                     End If
946
                     End If
945
                  End If
947
                  End If
946
 
948
 
947
                   ' Anybody can view properties
949
                   ' Anybody can view properties
948
                   Response.write "<td width='1'><a href='form_edit_release.asp?rtag_id="&parRtag_id&"' title='Release properties'><img src='images/abtn_release_properties.gif'  width='25' height='25' hspace='1' border='0'></a></td>"
950
                   Response.write "<td width='1'><span class=pointer onClick='location.href=""form_edit_release.asp?rtag_id="&parRtag_id&"""' title='Release properties'><img src='images/abtn_release_properties.gif'  width='25' height='25' hspace='1' border='0'></span></td>"
949
 
951
 
950
                  Response.write "<td width='1'><img src='images/spacer.gif' width='7' height='25'></td>"
952
                  Response.write "<td width='1'><img src='images/spacer.gif' width='7' height='25'></td>"
951
                  If objAccessControl.UserLogedIn Then
953
                  If objAccessControl.UserLogedIn Then
952
                      If hasPview Then
954
                      If hasPview Then
953
                         If parPview = "disable" Then
955
                         If parPview = "disable" Then
954
                            Dim ref : ref = RefreshedURL(parDview, "", Request("pv_id"), Request("rtag_id"))
956
                            Dim ref : ref = RefreshedURL(parDview, "", Request("pv_id"), Request("rtag_id"))
955
                            Response.write "<td width='1'><a href='"&ref&"' title='Personal view disabled. Click to enable.'><img src='images/abtn_base_view.gif'  width='25' height='25' hspace='1' border='0'></a></td>"
957
                            Response.write "<td width='1'><span class=pointer onClick='location.href="""&ref&"""' title='Personal view disabled. Click to enable.'><img src='images/abtn_base_view.gif'  width='25' height='25' hspace='1' border='0'></span></td>"
956
                         Else
958
                         Else
957
                            ref = RefreshedURL(parDview, "disable", Request("pv_id"), Request("rtag_id")) 
959
                            ref = RefreshedURL(parDview, "disable", Request("pv_id"), Request("rtag_id")) 
958
                            Response.write "<td width='1'><a href='"&ref&"' title='Personal view enabled. Click for full view.'><img src='images/abtn_personal_view.gif'  width='25' height='25' hspace='1' border='0'></a></td>"
960
                            Response.write "<td width='1'><span class=pointer onClick='location.href="""&ref&"""' title='Personal view enabled. Click for full view.'><img src='images/abtn_personal_view.gif'  width='25' height='25' hspace='1' border='0'></span></td>"
959
                         End If
961
                         End If
960
                      Else
962
                      Else
961
                            Response.write "<td width='1'><span title='No Personal View configured.'><img src='images/abtn_personal_view_off.gif'  width='26' height='26' hspace='1' border='0'></span></td>"
963
                            Response.write "<td width='1'><span title='No Personal View configured.'><img src='images/abtn_personal_view_off.gif'  width='26' height='26' hspace='1' border='0'></span></td>"
962
                      End If
964
                      End If
963
                  Else
965
                  Else
964
                     Response.write "<td width='1'><img src='images/abtn_personal_view_off.gif' width='26' height='26' hspace='1' border='0'></td>"
966
                     Response.write "<td width='1'><img src='images/abtn_personal_view_off.gif' width='26' height='26' hspace='1' border='0'></td>"
965
                  End If
967
                  End If
966
 
968
 
967
                  If parDview = "enable" Then
969
                  If parDview = "enable" Then
968
                     Response.write "<td width='1'><a href='"& RefreshedURL("", parPview, Request("pv_id"), Request("rtag_id")) &"' title='Click to switch to Release View'><img src='icons/ReleaseView.gif'  width='25' height='25' hspace='1' border='0'></a></td>"
970
                     Response.write "<td width='1'><span class=pointer onClick='location.href="""& RefreshedURL("", parPview, Request("pv_id"), Request("rtag_id")) &""";' title='Click to switch to Release View'><img src='icons/ReleaseView.gif'  width='25' height='25' hspace='1' border='0'></span></td>"
969
                  Else
971
                  Else
970
                     Response.write "<td width='1'><a href='"& RefreshedURL("enable", parPview, Request("pv_id"), Request("rtag_id")) &"' title='Click to switch to Deployment View'><img src='icons/DeploymentView.gif'  width='25' height='25' hspace='1' border='0'></a></td>"
972
                     Response.write "<td width='1'><span class=pointer onClick='location.href="""& RefreshedURL("enable", parPview, Request("pv_id"), Request("rtag_id")) &""";' title='Click to switch to Deployment View'><img src='icons/DeploymentView.gif'  width='25' height='25' hspace='1' border='0'></span></td>"
971
                  End If
973
                  End If
972
 
974
 
973
                  Response.write "<td width='1'><img src='images/spacer.gif' width='7' height='25'></td>"
975
                  Response.write "<td width='1'><img src='images/spacer.gif' width='7' height='25'></td>"
974
 
976
 
975
                  Response.write "<td width='1' title='SDK Managment' onClick='ToggleDisplay(""DIV_RELEASE_SDK"",""SPAN_RELEASE_SDK"",""SPAN_RELEASE_SDK_ON""); ' ><SPAN name='SPAN_RELEASE_SDK' id='SPAN_RELEASE_SDK' style='display:block;'><img src='images/abtn_link_release.gif' width='25' height='25' border='0' hspace='1' ></SPAN><SPAN name='SPAN_RELEASE_SDK_ON' id='SPAN_RELEASE_SDK_ON' style='display:none;'><img src='images/abtn_link_release_on.gif' width='25' height='25' border='0' hspace='1' ></SPAN></td>"
977
                  Response.write "<td width='1' class='pointer' title='SDK Managment' onClick='ToggleDisplay(""DIV_RELEASE_SDK"",""SPAN_RELEASE_SDK"",""SPAN_RELEASE_SDK_ON""); ' ><SPAN name='SPAN_RELEASE_SDK' id='SPAN_RELEASE_SDK' style='display:block;'><img src='images/abtn_link_release.gif' width='25' height='25' border='0' hspace='1' ></SPAN><SPAN name='SPAN_RELEASE_SDK_ON' id='SPAN_RELEASE_SDK_ON' style='display:none;'><img src='images/abtn_link_release_on.gif' width='25' height='25' border='0' hspace='1' ></SPAN></td>"
976
 
978
 
977
                  Response.write "<td width='1'><img src='images/spacer.gif' width='7' height='25'></td>"
979
                  Response.write "<td width='1'><img src='images/spacer.gif' width='7' height='25'></td>"
978
 
980
 
979
                  Response.write "<td width='1' 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></td>"
981
                  Response.write "<td width='1' class='pointer' 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></td>"
980
 
982
 
981
                  If ( (parDview <> "enable") AND ( (CInt(nEnvTab) = enumENVTAB_PLANNED) OR (Request("envtab") = enumENVTAB_PLANNED) ) ) Then
983
                  If ( (parDview <> "enable") AND ( (CInt(nEnvTab) = enumENVTAB_PLANNED) OR (Request("envtab") = enumENVTAB_PLANNED) ) ) Then
982
                     If objAccessControl.UserLogedIn Then
984
                     If objAccessControl.UserLogedIn Then
983
                        If ( ReleaseMode = enumDB_RELEASE_IN_OPEN_MODE ) OR _
985
                        If ( ReleaseMode = enumDB_RELEASE_IN_OPEN_MODE ) OR _
984
                                canActionControlInProject("ApproveForAutoBuild") OR _
986
                                canActionControlInProject("ApproveForAutoBuild") OR _
985
                                canActionControlInProject("ApproveForManualBuild") Then
987
                                canActionControlInProject("ApproveForManualBuild") Then
986
                              Response.write "<td width='1'><a href='#' onClick='makeBulkRelease();'><img src='images/abtn_make_release_bulk.gif' title='Make Bulk Release...'></td>"
988
                              Response.write "<td width='1'><span class='pointer' onClick='makeBulkRelease();'><img src='images/abtn_make_release_bulk.gif' title='Make Bulk Release...'></span></td>"
987
                              Response.write "<td width='1'><img src='images/spacer.gif' width='1' height='25'></td>"
989
                              Response.write "<td width='1'><img src='images/spacer.gif' width='1' height='25'></td>"
988
                              Response.write "<td width='1'><a href='#' onClick='makeBulkReject();'><img src='images/abtn_make_bulk_remove.gif' title='Bulk Reject...'></td>"
990
                              Response.write "<td width='1'><span class='pointer' onClick='makeBulkReject();'><img src='images/abtn_make_bulk_remove.gif' title='Bulk Reject...'></span></td>"
989
                        End If
991
                        End If
990
                     End If
992
                     End If
991
                  End If
993
                  End If
992
                  %>
994
                  %>
993
                  <td width="100%"><img src="images/spacer.gif" width="1" height="1"></td>
995
                  <td width="100%"><img src="images/spacer.gif" width="1" height="1"></td>