| Line 574... |
Line 574... |
| 574 |
</script>
|
574 |
</script>
|
| 575 |
|
575 |
|
| 576 |
<%
|
576 |
<%
|
| 577 |
'------------------------------------------------------------------------------------------------------------------------------------------------
|
577 |
'------------------------------------------------------------------------------------------------------------------------------------------------
|
| 578 |
Function GetEnvTab ( sEnvTab )
|
578 |
Function GetEnvTab ( sEnvTab )
|
| - |
|
579 |
' rmDebug = rmDebug & "Cookie[" & Request.Cookies(COOKIE_RELEASEMANAGER_MEMORY) &"] "
|
| - |
|
580 |
' rmDebug = rmDebug & ", Arg[" & sEnvTab & "] "
|
| 579 |
If sEnvTab <> "" Then
|
581 |
If sEnvTab <> "" Then
|
| 580 |
GetEnvTab = sEnvTab
|
582 |
GetEnvTab = sEnvTab
|
| 581 |
Response.Cookies(COOKIE_RELEASEMANAGER_MEMORY)("envtab") = sEnvTab
|
583 |
Response.Cookies(COOKIE_RELEASEMANAGER_MEMORY)("envtab") = sEnvTab
|
| 582 |
Else
|
584 |
Else
|
| 583 |
If Request.Cookies(COOKIE_RELEASEMANAGER_MEMORY)("envtab") <> "" Then
|
585 |
If Request.Cookies(COOKIE_RELEASEMANAGER_MEMORY)("envtab") <> "" Then
|
| Line 585... |
Line 587... |
| 585 |
Else
|
587 |
Else
|
| 586 |
GetEnvTab = enumENVTAB_WORK_IN_PROGRESS
|
588 |
GetEnvTab = enumENVTAB_WORK_IN_PROGRESS
|
| 587 |
Response.Cookies(COOKIE_RELEASEMANAGER_MEMORY)("envtab") = enumENVTAB_WORK_IN_PROGRESS
|
589 |
Response.Cookies(COOKIE_RELEASEMANAGER_MEMORY)("envtab") = enumENVTAB_WORK_IN_PROGRESS
|
| 588 |
End If
|
590 |
End If
|
| 589 |
End If
|
591 |
End If
|
| 590 |
rmDebug = rmDebug & "GetEnvTab:" & GetEnvTab
|
592 |
' rmDebug = rmDebug & ", GetEnvTab:" & GetEnvTab
|
| 591 |
End Function
|
593 |
End Function
|
| 592 |
'------------------------------------------------------------------------------------------------------------------------------------------------
|
594 |
'------------------------------------------------------------------------------------------------------------------------------------------------
|
| 593 |
Sub Display_Env_BaseView ( NNbase_view_id, SSbase_view, BBviewCollapsed, SScontents )
|
595 |
Sub Display_Env_BaseView ( NNbase_view_id, SSbase_view, BBviewCollapsed, SScontents )
|
| 594 |
%>
|
596 |
%>
|
| 595 |
<table width="100%" border="0" cellspacing="0" cellpadding="0">
|
597 |
<table width="100%" border="0" cellspacing="0" cellpadding="0">
|
| Line 639... |
Line 641... |
| 639 |
qstrPar = "Bshow"
|
641 |
qstrPar = "Bshow"
|
| 640 |
ElseIf SSviewtype = "personal" Then
|
642 |
ElseIf SSviewtype = "personal" Then
|
| 641 |
nViewType = 2
|
643 |
nViewType = 2
|
| 642 |
qstrPar = "Pshow"
|
644 |
qstrPar = "Pshow"
|
| 643 |
End If
|
645 |
End If
|
| 644 |
rmDebug = rmDebug & "[" & NNEnvTab & "," & CInt(NNEnvTab) & "]"
|
646 |
'rmDebug = rmDebug & " ,NNEnvTab[" & NNEnvTab & "," & CInt(NNEnvTab) & "]"
|
| 645 |
OraDatabase.Parameters.Add "VIEW_TYPE", nViewType, ORAPARM_INPUT, ORATYPE_NUMBER
|
647 |
OraDatabase.Parameters.Add "VIEW_TYPE", nViewType, ORAPARM_INPUT, ORATYPE_NUMBER
|
| 646 |
'OraDatabase.Parameters.Add "VIEW_ID_SHOW_LIST", ShowView( Pipes2Commas( SSshowviews ), SSviewtype ), ORAPARM_INPUT, ORATYPE_VARCHAR2
|
648 |
'OraDatabase.Parameters.Add "VIEW_ID_SHOW_LIST", ShowView( Pipes2Commas( SSshowviews ), SSviewtype ), ORAPARM_INPUT, ORATYPE_VARCHAR2
|
| 647 |
OraDatabase.Parameters.Add "VIEW_ID_SHOW_LIST", GetShowViewList(), ORAPARM_INPUT, ORATYPE_VARCHAR2
|
649 |
OraDatabase.Parameters.Add "VIEW_ID_SHOW_LIST", GetShowViewList(), ORAPARM_INPUT, ORATYPE_VARCHAR2
|
| 648 |
OraDatabase.Parameters.Add "RTAG_ID", NNrtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
|
650 |
OraDatabase.Parameters.Add "RTAG_ID", NNrtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
|
| 649 |
OraDatabase.Parameters.Add "USER_ID", NNuser_id, ORAPARM_INPUT, ORATYPE_NUMBER
|
651 |
OraDatabase.Parameters.Add "USER_ID", NNuser_id, ORAPARM_INPUT, ORATYPE_NUMBER
|
| Line 745... |
Line 747... |
| 745 |
checked = NULL
|
747 |
checked = NULL
|
| 746 |
disabled = NULL
|
748 |
disabled = NULL
|
| 747 |
' disable check box if not logged in, or if not in open mode and user has no permission to approve pending
|
749 |
' disable check box if not logged in, or if not in open mode and user has no permission to approve pending
|
| 748 |
If objAccessControl.UserLogedIn Then
|
750 |
If objAccessControl.UserLogedIn Then
|
| 749 |
If ( ReleaseMode <> enumDB_RELEASE_IN_OPEN_MODE ) Then
|
751 |
If ( ReleaseMode <> enumDB_RELEASE_IN_OPEN_MODE ) Then
|
| 750 |
If NOT objAccessControl.IsActive("ApproveForAutoBuild") Then
|
752 |
If NOT canActionControlInProject("ApproveForAutoBuild") Then
|
| 751 |
disabled = "disabled"
|
753 |
disabled = "disabled"
|
| 752 |
End If
|
754 |
End If
|
| 753 |
End If
|
755 |
End If
|
| 754 |
Else
|
756 |
Else
|
| 755 |
disabled = "disabled"
|
757 |
disabled = "disabled"
|
| Line 912... |
Line 914... |
| 912 |
<td width="1" background="images/bg_action_norm.gif"><img src="images/spacer.gif" width="10" height="35"></td>
|
914 |
<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" >
|
915 |
<td width="100%" nowrap background="images/bg_action_norm.gif" >
|
| 914 |
<table width="100%" border="0" cellspacing="0" cellpadding="0">
|
916 |
<table width="100%" border="0" cellspacing="0" cellpadding="0">
|
| 915 |
<tr>
|
917 |
<tr>
|
| 916 |
<%
|
918 |
<%
|
| 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
|
919 |
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
|
| 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>"
|
920 |
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>"
|
| 919 |
Else
|
921 |
Else
|
| 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>"
|
922 |
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>"
|
| 921 |
End If
|
923 |
End If
|
| 922 |
|
924 |
|
| 923 |
If (pkgInfoHash.Item("dlocked") <> "Y") AND (Request("pv_id") <> "") Then
|
925 |
If (pkgInfoHash.Item("dlocked") <> "Y") AND (Request("pv_id") <> "") Then
|
| 924 |
If (objAccessControl.UserLogedIn) AND ( (objAccessControl.UserName = pkgInfoHash.Item("creator")) OR (objAccessControl.IsActive("DestroyPackageFromRelease")) ) Then
|
926 |
If (objAccessControl.UserLogedIn) AND ( (objAccessControl.UserName = pkgInfoHash.Item("creator")) OR (canActionControlInProject("DestroyPackageFromRelease")) ) Then
|
| 925 |
Response.write "<td width='1'><a href='_destroy_package.asp?rtag_id="& Request("rtag_id") &"&bfile="& ScriptName &"&pkg_id="& pkgInfoHash.Item("pkg_id") &"&pv_id="& Request("pv_id") &"' title='Destroy the selected Package Version' onClick='return confirmAction(""You are about to destroy ["& pkgInfoHash.Item("pkg_name") &" "& pkgInfoHash.Item("pkg_version") &"]. You cannot undo this operation.\nDo you want to proceed?"");'><img src='icons/i_destroy_package.gif' alt='Destroy the selected Package Version' width='26' height='26' hspace='1' border='0'></td>"
|
927 |
Response.write "<td width='1'><a href='_destroy_package.asp?rtag_id="& Request("rtag_id") &"&bfile="& ScriptName &"&pkg_id="& pkgInfoHash.Item("pkg_id") &"&pv_id="& Request("pv_id") &"' title='Destroy the selected Package Version' onClick='return confirmAction(""You are about to destroy ["& pkgInfoHash.Item("pkg_name") &" "& pkgInfoHash.Item("pkg_version") &"]. You cannot undo this operation.\nDo you want to proceed?"");'><img src='icons/i_destroy_package.gif' alt='Destroy the selected Package Version' width='26' height='26' hspace='1' border='0'></td>"
|
| 926 |
Else
|
928 |
Else
|
| 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>"
|
929 |
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>"
|
| 928 |
End If
|
930 |
End If
|
| 929 |
End If
|
931 |
End If
|
| 930 |
|
932 |
|
| 931 |
If objAccessControl.IsActive("CreateNewRelease") Then
|
933 |
' Anybody can view properties
|
| 932 |
Response.write "<td width='1'><a href='form_edit_release.asp?rtag_id_list="&parRtag_id&"' title='Release properties'><img src='images/abtn_release_properties.gif' width='25' height='25' hspace='1' border='0'></a></td>"
|
934 |
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>"
|
| 933 |
Else
|
- |
|
| 934 |
Response.write "<td width='1'><img src='images/abtn_release_properties_off.gif' width='25' height='25' hspace='1' border='0'></td>"
|
- |
|
| 935 |
End If
|
- |
|
| 936 |
|
935 |
|
| 937 |
Response.write "<td width='1'><img src='images/spacer.gif' width='7' height='25'></td>"
|
936 |
Response.write "<td width='1'><img src='images/spacer.gif' width='7' height='25'></td>"
|
| 938 |
If objAccessControl.UserLogedIn Then
|
937 |
If objAccessControl.UserLogedIn Then
|
| 939 |
If QStrPar("Pview") = "disable" Then
|
938 |
If QStrPar("Pview") = "disable" Then
|
| - |
|
939 |
Dim ref : ref = RefreshedURL(QStrPar("Dview"), "", Request("pv_id"), Request("rtag_id"))
|
| 940 |
Response.write "<td width='1'><a href='"& RefreshedURL(QStrPar("Dview"), "", Request("pv_id"), Request("rtag_id")) &"' title='Personal view disabled. Click to enable.'><img src='images/abtn_base_view.gif' width='25' height='25' hspace='1' border='0'></a></td>"
|
940 |
Response.write "<td width='1'><a href='"& RefreshedURL(QStrPar("Dview"), "", Request("pv_id"), Request("rtag_id")) &"' title='Personal view disabled. Click to enable."&ref&"'><img src='images/abtn_base_view.gif' width='25' height='25' hspace='1' border='0'></a></td>"
|
| 941 |
Else
|
941 |
Else
|
| - |
|
942 |
ref = RefreshedURL(QStrPar("Dview"), "disable", Request("pv_id"), Request("rtag_id"))
|
| 942 |
Response.write "<td width='1'><a href='"& RefreshedURL(QStrPar("Dview"), "disable", Request("pv_id"), Request("rtag_id")) &"' 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>"
|
943 |
Response.write "<td width='1'><a href='"& RefreshedURL(QStrPar("Dview"), "disable", Request("pv_id"), Request("rtag_id")) &"' title='Personal view enabled. Click for full view."&ref&"'><img src='images/abtn_personal_view.gif' width='25' height='25' hspace='1' border='0'></a></td>"
|
| 943 |
End If
|
944 |
End If
|
| 944 |
Else
|
945 |
Else
|
| 945 |
Response.write "<td width='1'><img src='images/abtn_personal_view_off.gif' width='26' height='26' hspace='1' border='0'></td>"
|
946 |
Response.write "<td width='1'><img src='images/abtn_personal_view_off.gif' width='26' height='26' hspace='1' border='0'></td>"
|
| 946 |
End If
|
947 |
End If
|
| 947 |
|
948 |
|
| Line 960... |
Line 961... |
| 960 |
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>"
|
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>"
|
| 961 |
|
962 |
|
| 962 |
If ( (QStrPar("Dview") <> "enable") AND ( (CInt(nEnvTab) = enumENVTAB_PLANNED) OR (Request("envtab") = enumENVTAB_PLANNED) ) ) Then
|
963 |
If ( (QStrPar("Dview") <> "enable") AND ( (CInt(nEnvTab) = enumENVTAB_PLANNED) OR (Request("envtab") = enumENVTAB_PLANNED) ) ) Then
|
| 963 |
If objAccessControl.UserLogedIn Then
|
964 |
If objAccessControl.UserLogedIn Then
|
| 964 |
If ( ReleaseMode = enumDB_RELEASE_IN_OPEN_MODE ) OR _
|
965 |
If ( ReleaseMode = enumDB_RELEASE_IN_OPEN_MODE ) OR _
|
| 965 |
objAccessControl.IsActive("ApproveForAutoBuild") OR _
|
966 |
canActionControlInProject("ApproveForAutoBuild") OR _
|
| 966 |
objAccessControl.IsActive("ApproveForManualBuild") Then
|
967 |
canActionControlInProject("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>"
|
968 |
Response.write "<td width='1'><a href='#' onClick='makeBulkRelease();'><img src='images/abtn_make_release_bulk.gif' title='Make Bulk Release...'></td>"
|
| 968 |
Response.write "<td width='1'><img src='images/spacer.gif' width='1' height='25'></td>"
|
969 |
Response.write "<td width='1'><img src='images/spacer.gif' width='1' height='25'></td>"
|
| 969 |
Response.write "<td width='1'><a href='#' onClick='makeBulkReject();'><img src='images/abtn_make_bulk_remove.gif' title='Bulk Reject...'></td>"
|
970 |
Response.write "<td width='1'><a href='#' onClick='makeBulkReject();'><img src='images/abtn_make_bulk_remove.gif' title='Bulk Reject...'></td>"
|
| 970 |
End If
|
971 |
End If
|
| 971 |
End If
|
972 |
End If
|