Subversion Repositories DevTools

Rev

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

Rev 119 Rev 127
Line 1... Line 1...
1 
<%
 1 
<%
2 
'=====================================================
 2 
'=====================================================
3 
'				    MENU DEFINITION
 3 
'                MENU DEFINITION
4 
'=====================================================
 4 
'=====================================================
5 
%>
 5 
%>
6 
<%
 6 
<%
7 
'------------ CONSTANTS -----------------------
 7 
'------------ CONSTANTS -----------------------
8 
Const LMENU_TICK = "<img src=""images/i_boxtick_on.gif"" width=""13"" height=""13"" border=""0"" vspace=""2"" align=""absmiddle"">"
 8 
Const LMENU_TICK = "<img src=""images/i_boxtick_on.gif"" width=""13"" height=""13"" border=""0"" vspace=""2"" align=""absmiddle"">"
Line 17... Line 17...
17 
imgReleaseNotesIcon = "<img src='images/i_release_note.gif' border='0' align='absmiddle' hspace='3'>"
 17 
imgReleaseNotesIcon = "<img src='images/i_release_note.gif' border='0' align='absmiddle' hspace='3'>"
18 
imgPatchesIcon = "<img src='images/i_patch_small.gif' border='0' align='absmiddle' hspace='3'>"
 18 
imgPatchesIcon = "<img src='images/i_patch_small.gif' border='0' align='absmiddle' hspace='3'>"
19 
 
 19 
 
20 
' Used for cancel button history
 20 
' Used for cancel button history
21 
If Request("click") <> "" Then
 21 
If Request("click") <> "" Then
22 
	ppClick = Request("click")
 22 
   ppClick = Request("click")
23 
Else
 23 
Else
24 
	ppClick = 1
 24 
   ppClick = 1
25 
End If
 25 
End If
26 
 
 26 
 
27 
ReleaseMode = GetReleaseMode( Request("rtag_id") )
 27 
ReleaseMode = GetReleaseMode( Request("rtag_id") )
28 
 
 28 
 
29 
'----------------------------------------------
 29 
'----------------------------------------------
30 
If IsObject(pkgInfoHash) Then
 30 
If IsObject(pkgInfoHash) Then
31 
	If IsNull(pkgInfoHash.Item ("is_patch")) Then
 31 
   If IsNull(pkgInfoHash.Item ("is_patch")) Then
32 
		If CInt(pkgInfoHash.Item ("base_view_id")) = enumBASE_VIEW_PRODUCTS Then
 32 
      If CInt(pkgInfoHash.Item ("base_view_id")) = enumBASE_VIEW_PRODUCTS Then
33 
			' Tab for PRODUCTS
 33 
         ' Tab for PRODUCTS
34 
			TABarray1 = Array ( imgDependenciesIcon &"Dependencies@dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"), _
 34 
         TABarray1 = Array ( imgDependenciesIcon &"Dependencies@dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"), _
35 
							   "Runtime@runtime_dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"), _
 35 
                             "Runtime@runtime_dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"), _
36 
						       "Used by@used_by.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"), _
 36 
                             "Used by@used_by.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"), _
37 
						       "Processes@process_dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"), _
 37 
                             "Processes@process_dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"), _
38 
							   imgPatchesIcon &"Patches@patches.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"), _
 38 
                             imgPatchesIcon &"Patches@patches.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"), _
39 
							   imgReleaseNotesIcon &"Release Notes@fixed_issues.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"), _
 39 
                             imgReleaseNotesIcon &"Release Notes@fixed_issues.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"), _
40 
							   "Documentation@documentation.asp?" & Persists_Query_String( Empty ), _
 40 
                             "Documentation@documentation.asp?" & Persists_Query_String( Empty ), _
41 
							   "Files and Folders@files_and_folders.asp?" & Persists_Query_String( Empty ), _
 41 
                             "Files and Folders@files_and_folders.asp?" & Persists_Query_String( Empty ), _
42 
							   "Action Log@action_log.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id") )
 42 
                             "Action Log@action_log.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id") )
43 
		Else
 43 
      Else
44 
			' Tabs for other packages
 44 
         ' Tabs for other packages
45 
			TABarray1 = Array (imgDependenciesIcon &"Dependencies@dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"), _
 45 
         TABarray1 = Array ( imgDependenciesIcon &"Dependencies@dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"), _
46 
						   "Runtime@runtime_dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"), _
 46 
                             "Runtime@runtime_dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"), _
47 
					       "Used by@used_by.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"), _
 47 
                             "Used by@used_by.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"), _
48 
					       "Processes@process_dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"), _
 48 
                             "Processes@process_dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"), _
49 
						   imgPatchesIcon &"Patches@patches.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"), _
 49 
                             imgPatchesIcon &"Patches@patches.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"), _
50 
						   imgReleaseNotesIcon &"Release Notes@fixed_issues.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"), _
 50 
                             imgReleaseNotesIcon &"Release Notes@fixed_issues.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"), _
51 
						   "Documentation@documentation.asp?" & Persists_Query_String( Empty ), _
 51 
                             "Documentation@documentation.asp?" & Persists_Query_String( Empty ), _
52 
						   "Files and Folders@files_and_folders.asp?" & Persists_Query_String( Empty ), _
 52 
                             "Files and Folders@files_and_folders.asp?" & Persists_Query_String( Empty ), _
53 
						   "Action Log@action_log.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id") )
 53 
                             "Action Log@action_log.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id") )
54 
		End If
 54 
      End If
55 
	Else
 55 
   Else
56 
		' Tabs for Patches
 56 
      ' Tabs for Patches
57 
		TABarray1 = Array ( imgDependenciesIcon &"Dependencies@dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"), _
 57 
      TABarray1 = Array ( imgDependenciesIcon &"Dependencies@dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"), _
58 
						   "Used by@used_by.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"), _
 58 
                          "Used by@used_by.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"), _
59 
						   imgReleaseNotesIcon &"Release Notes@fixed_issues.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"), _
 59 
                          imgReleaseNotesIcon &"Release Notes@fixed_issues.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"), _
60 
						   "Files and Folders@files_and_folders.asp?" & Persists_Query_String( Empty ), _
 60 
                          "Files and Folders@files_and_folders.asp?" & Persists_Query_String( Empty ), _
61 
						   "Action Log@action_log.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"))
 61 
                          "Action Log@action_log.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"))
62 
	End If
 62 
   End If
63 
End If
63 
End If
64 
 
 64 
 
65 
' Tabs for Import / Export Dependencies
 65 
' Tabs for Import / Export Dependencies
66 
TABarray2 = Array ("JATS style@form_update_jats_dependencies.asp?click="& CInt(ppClick) + 1 &"&pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"), _
 66 
TABarray2 = Array ( "JATS style@form_update_jats_dependencies.asp?click="& CInt(ppClick) + 1 &"&pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"), _
67 
			       "JANT style@form_update_jant_dependencies.asp?click="& CInt(ppClick) + 1 &"&pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"), _
 67 
                    "JANT style@form_update_jant_dependencies.asp?click="& CInt(ppClick) + 1 &"&pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"), _
68 
				   "ANT-using style@form_update_ant_dependencies.asp?click="& CInt(ppClick) + 1 &"&pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"))
 68 
                    "ANT-using style@form_update_ant_dependencies.asp?click="& CInt(ppClick) + 1 &"&pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"))
- 
 
 69 
 
69 
TABarray3 = Array ("JATS style@form_export_jats_dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"), _
 70 
TABarray3 = Array ( "JATS style@form_export_jats_dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"), _
70 
			       "JANT style@form_export_jant_dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"), _
 71 
                    "JANT style@form_export_jant_dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"), _
71 
				   "ClearCase style@form_export_clearcase_dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"), _
 72 
                    "ClearCase style@form_export_clearcase_dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"), _
72 
				   "ANT-using style@form_export_ant_dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"))
 73 
                    "ANT-using style@form_export_ant_dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"))
- 
 
 74 
 
73 
TABarray4 = Array ("Details@_wform_issues_details.asp?iss_db="& Request("iss_db") &"&iss_id="& Request("iss_id") &"&iss_db_name="& Request("iss_db_name") &"&iss_id_num="& Request("iss_id_num") , _
 75 
TABarray4 = Array ( "Details@_wform_issues_details.asp?iss_db="& Request("iss_db") &"&iss_id="& Request("iss_id") &"&iss_db_name="& Request("iss_db_name") &"&iss_id_num="& Request("iss_id_num") , _
74 
				   "Notes@_wform_issues_notes.asp?iss_db="& Request("iss_db") &"&iss_id="& Request("iss_id") &"&iss_db_name="& Request("iss_db_name") &"&iss_id_num="& Request("iss_id_num"), _
 76 
                    "Notes@_wform_issues_notes.asp?iss_db="& Request("iss_db") &"&iss_id="& Request("iss_id") &"&iss_db_name="& Request("iss_db_name") &"&iss_id_num="& Request("iss_id_num"), _
75 
			       "History@_wform_issues_history.asp?iss_db="& Request("iss_db") &"&iss_id="& Request("iss_id") &"&iss_db_name="& Request("iss_db_name") &"&iss_id_num="& Request("iss_id_num") )
 77 
                    "History@_wform_issues_history.asp?iss_db="& Request("iss_db") &"&iss_id="& Request("iss_id") &"&iss_db_name="& Request("iss_db_name") &"&iss_id_num="& Request("iss_id_num") )
76 
 
 78 
 
77 
' Tabs for History window
 79 
' Tabs for History window
78 
TABarray5 = Array ( imgDependenciesIcon &"Dependencies@_wform_versions_history_dependencies.asp?"& Persists_Query_String( Empty ), _
 80 
TABarray5 = Array ( imgDependenciesIcon &"Dependencies@_wform_versions_history_dependencies.asp?"& Persists_Query_String( Empty ), _
79 
				   "Runtime@_wform_versions_history_runtime.asp?"& Persists_Query_String( Empty ), _
 81 
                    "Runtime@_wform_versions_history_runtime.asp?"& Persists_Query_String( Empty ), _
80 
				   "Used by@_wform_versions_history_used_by.asp?"& Persists_Query_String( Empty ), _
 82 
                    "Used by@_wform_versions_history_used_by.asp?"& Persists_Query_String( Empty ), _
81 
				   "Patches@_wform_versions_history_patches.asp?" & Persists_Query_String( Empty ), _
 83 
                    "Patches@_wform_versions_history_patches.asp?" & Persists_Query_String( Empty ), _
82 
				   imgReleaseNotesIcon &"Release Notes@_wform_versions_history_release_notes.asp?" & Persists_Query_String( Empty ), _
 84 
                    imgReleaseNotesIcon &"Release Notes@_wform_versions_history_release_notes.asp?" & Persists_Query_String( Empty ), _
83 
				   "Documentation@_wform_versions_history_documentation.asp?"& Persists_Query_String( Empty ), _
 85 
                    "Documentation@_wform_versions_history_documentation.asp?"& Persists_Query_String( Empty ), _
84 
				   "Action Log@_wform_versions_history_action_log.asp?"& Persists_Query_String( Empty ) )
 86 
                    "Action Log@_wform_versions_history_action_log.asp?"& Persists_Query_String( Empty ) )
- 
 
 87 
 
85 
TABarray5D = Array ( imgDependenciesIcon &"Dependencies@#", _
 88 
TABarray5D = Array ( imgDependenciesIcon &"Dependencies@#", _
86 
				   "Runtime@#", _
 89 
                     "Runtime@#", _
87 
				   "Patches@#", _
 90 
                     "Patches@#", _
88 
				   imgReleaseNotesIcon &"Release Notes@#", _
 91 
                     imgReleaseNotesIcon &"Release Notes@#", _
89 
				   "Documentation@#", _
 92 
                     "Documentation@#", _
90 
				   "Action Log@#" )
 93 
                     "Action Log@#" )
91 
 
 94 
 
92 
' Tabs for Unit Test window
 95 
' Tabs for Unit Test window
93 
TABarray6 = Array ("Unit Test Details@_wform_update_unit_test.asp?rtag_id="& Request("rtag_id") &"&pv_id="& Request("pv_id") &"&test_id="& Request("test_id"), _
 96 
TABarray6 = Array ( "Unit Test Details@_wform_update_unit_test.asp?rtag_id="& Request("rtag_id") &"&pv_id="& Request("pv_id") &"&test_id="& Request("test_id"), _
94 
				   "Acceptance@_wform_update_unit_test_acceptance.asp?rtag_id="& Request("rtag_id") &"&pv_id="& Request("pv_id") &"&test_id="& Request("test_id"))
97 
                    "Acceptance@_wform_update_unit_test_acceptance.asp?rtag_id="& Request("rtag_id") &"&pv_id="& Request("pv_id") &"&test_id="& Request("test_id"))
- 
 
 98 
 
95 
TABarray6D = Array ("Unit Test Details@#", _
 99 
TABarray6D = Array ( "Unit Test Details@#", _
96 
				   "Acceptance@#")
 100 
                     "Acceptance@#")
97 
 
 101 
 
98 
'----------------------------------------------
 102 
'----------------------------------------------
99 
%>
 103 
%>
100 
<script language="JavaScript1.2">
 104 
<script language="JavaScript1.2">
101 
 
 105 
 
Line 106... Line 110...
106 
<%=Projects_Menu ( 0 )%>
 110 
<%=Projects_Menu ( 0 )%>
107 
 
 111 
 
108 
 
 112 
 
109 
linkset[2]=''
 113 
linkset[2]=''
110 
 
 114 
 
111 
<%If (objAccessControl.IsVisible ("ChangeModeFromRestrictive")  OR  objAccessControl.IsVisible ("ChangeModeFromClosed")) And objAccessControl.IsDataActive ("PROJECTS", DB_PROJ_ID, "EditProjects") Then%>
115 
<%If (objAccessControl.IsVisible ("ChangeModeFromRestrictive")  OR  objAccessControl.IsVisible ("ChangeModeFromClosed")) And objAccessControl.IsDataActive ("PROJECTS", DB_PROJ_ID, "EditProjects") Then%>
112 
 
 116 
 
113 
	<%If ReleaseMode = enumDB_RELEASE_IN_OPEN_MODE Then%>
 117 
   <%If ReleaseMode = enumDB_RELEASE_IN_OPEN_MODE Then%>
114
- 
 
115 
		linkset[2]+='<div class="menuitems"><%=LMENU_TICK%>&nbsp;Open&nbsp;Mode</div>'
 - 
 
116 
		linkset[2]+='<div class="menuitems"><a href="_change_release_mode.asp?mode_code=2&<%=objPMod.ComposeURL()%>" title="Packages can only be released on approval."><%=LMENU_BLANK%>&nbsp;Restrictive&nbsp;Mode</a></div>'
 - 
 
117 
		linkset[2]+='<div class="menuitems"><a href="_change_release_mode.asp?mode_code=4&<%=objPMod.ComposeURL()%>" title="Packages can only be released on CCB approval."><%=LMENU_BLANK%>&nbsp;CCB&nbsp;Mode</a></div>'
 - 
 
118 
		linkset[2]+='<div class="menuitems"><a href="_change_release_mode.asp?mode_code=3&<%=objPMod.ComposeURL()%>" title="No changes allowed."><%=LMENU_BLANK%>&nbsp;Closed&nbsp;Mode</a></div>'
 - 
 
119 
		linkset[2]+='<div class="menuitems"><a href="_change_release_mode.asp?mode_code=5&<%=objPMod.ComposeURL()%>" title="This would put the release into archive state."><%=LMENU_BLANK%>&nbsp;Archive&nbsp;Mode</a></div>'
 - 
 
120
- 
 
121 
	<%ElseIf ReleaseMode = enumDB_RELEASE_IN_RESTRICTIVE_MODE Then%>
- 
 
122
- 
 
123 
		<%If objAccessControl.IsVisible ("ChangeModeFromRestrictive") And objAccessControl.IsDataActive ("PROJECTS", DB_PROJ_ID, "EditProjects")  Then%>
 - 
 
124 
		linkset[2]+='<div class="menuitems"><a href="_change_release_mode.asp?mode_code=1&<%=objPMod.ComposeURL()%>" title="Packages can be released freely."><%=LMENU_BLANK%>&nbsp;Open&nbsp;Mode</a></div>'
 - 
 
125 
		<%End If%>
 - 
 
126 
		linkset[2]+='<div class="menuitems"><%=LMENU_TICK%>&nbsp;Restrictive&nbsp;Mode</div>'
 - 
 
127 
		linkset[2]+='<div class="menuitems"><a href="_change_release_mode.asp?mode_code=4&<%=objPMod.ComposeURL()%>" title="Packages can only be released on CCB approval."><%=LMENU_BLANK%>&nbsp;CCB&nbsp;Mode</a></div>'
- 
 
128 
		linkset[2]+='<div class="menuitems"><a href="_change_release_mode.asp?mode_code=3&<%=objPMod.ComposeURL()%>" title="No changes allowed."><%=LMENU_BLANK%>&nbsp;Closed&nbsp;Mode</a></div>'
 - 
 
129 
		linkset[2]+='<div class="menuitems"><a href="_change_release_mode.asp?mode_code=5&<%=objPMod.ComposeURL()%>" title="This would put the release into archive state."><%=LMENU_BLANK%>&nbsp;Archive&nbsp;Mode</a></div>'
 - 
 
130
- 
 
131 
	<%ElseIf ReleaseMode = enumDB_RELEASE_IN_CCB_MODE Then%>
- 
 
132
- 
 
133 
		<%If objAccessControl.IsVisible ("ChangeModeFromRestrictive") And objAccessControl.IsDataActive ("PROJECTS", DB_PROJ_ID, "EditProjects")  Then%>
 - 
 
134 
		linkset[2]+='<div class="menuitems"><a href="_change_release_mode.asp?mode_code=1&<%=objPMod.ComposeURL()%>" title="Packages can be released freely."><%=LMENU_BLANK%>&nbsp;Open&nbsp;Mode</a></div>'
 - 
 
135 
		<%End If%>
 - 
 
136 
		linkset[2]+='<div class="menuitems"><a href="_change_release_mode.asp?mode_code=2&<%=objPMod.ComposeURL()%>" title="Packages can only be released on approval."><%=LMENU_BLANK%>&nbsp;Restrictive&nbsp;Mode</a></div>'
 - 
 
137 
		linkset[2]+='<div class="menuitems"><%=LMENU_TICK%>&nbsp;CCB&nbsp;Mode</div>'
 - 
 
138 
		linkset[2]+='<div class="menuitems"><a href="_change_release_mode.asp?mode_code=3&<%=objPMod.ComposeURL()%>" title="No changes allowed."><%=LMENU_BLANK%>&nbsp;Closed&nbsp;Mode</a></div>'
- 
 
139 
		linkset[2]+='<div class="menuitems"><a href="_change_release_mode.asp?mode_code=5&<%=objPMod.ComposeURL()%>" title="This would put the release into archive state."><%=LMENU_BLANK%>&nbsp;Archive&nbsp;Mode</a></div>'
 - 
 
140
- 
 
141 
	<%ElseIf ReleaseMode = enumDB_RELEASE_IN_CLOSED_MODE Then%>
- 
 
142
- 
 
143 
		<%If objAccessControl.IsVisible ("ChangeModeFromClosed") And objAccessControl.IsDataActive ("PROJECTS", DB_PROJ_ID, "EditProjects")  Then%>
 - 
 
144 
		linkset[2]+='<div class="menuitems"><a href="_change_release_mode.asp?mode_code=1&<%=objPMod.ComposeURL()%>" title="Packages can be released freely."><%=LMENU_BLANK%>&nbsp;Open&nbsp;Mode</a></div>'
 - 
 
145 
		linkset[2]+='<div class="menuitems"><a href="_change_release_mode.asp?mode_code=2&<%=objPMod.ComposeURL()%>" title="Packages can only be released on approval."><%=LMENU_BLANK%>&nbsp;Restrictive&nbsp;Mode</a></div>'
 - 
 
146 
		linkset[2]+='<div class="menuitems"><a href="_change_release_mode.asp?mode_code=4&<%=objPMod.ComposeURL()%>" title="Packages can only be released on CCB approval."><%=LMENU_BLANK%>&nbsp;CCB&nbsp;Mode</a></div>'
- 
 
147 
		<%End If%>
 - 
 
148 
		linkset[2]+='<div class="menuitems"><%=LMENU_TICK%>&nbsp;Closed&nbsp;Mode</div>'
 - 
 
149 
		<%If objAccessControl.IsVisible ("ChangeModeFromClosed") And objAccessControl.IsDataActive ("PROJECTS", DB_PROJ_ID, "EditProjects")  Then%>
 - 
 
150 
		linkset[2]+='<div class="menuitems"><a href="_change_release_mode.asp?mode_code=5&<%=objPMod.ComposeURL()%>" title="This would put the release into archive state."><%=LMENU_BLANK%>&nbsp;Archive&nbsp;Mode</a></div>'
 - 
 
151 
		<%End If%>
 - 
 
152 
	<%End If%>
- 
 
153
- 
 
154 
	// Separator
 - 
 
155 
	linkset[2]+='<div class="menuitemDisable">----------------------</div>'
 - 
 
156 
 
 118 
 
- 
 
 119 
      linkset[2]+='<div class="menuitems"><%=LMENU_TICK%>&nbsp;Open&nbsp;Mode</div>'
- 
 
 120 
      linkset[2]+='<div class="menuitems"><a href="_change_release_mode.asp?mode_code=2&<%=objPMod.ComposeURL()%>" title="Packages can only be released on approval."><%=LMENU_BLANK%>&nbsp;Restrictive&nbsp;Mode</a></div>'
- 
 
 121 
      linkset[2]+='<div class="menuitems"><a href="_change_release_mode.asp?mode_code=4&<%=objPMod.ComposeURL()%>" title="Packages can only be released on CCB approval."><%=LMENU_BLANK%>&nbsp;CCB&nbsp;Mode</a></div>'
- 
 
 122 
      linkset[2]+='<div class="menuitems"><a href="_change_release_mode.asp?mode_code=3&<%=objPMod.ComposeURL()%>" title="No changes allowed."><%=LMENU_BLANK%>&nbsp;Closed&nbsp;Mode</a></div>'
- 
 
 123 
      linkset[2]+='<div class="menuitems"><a href="_change_release_mode.asp?mode_code=5&<%=objPMod.ComposeURL()%>" title="This would put the release into archive state."><%=LMENU_BLANK%>&nbsp;Archive&nbsp;Mode</a></div>'
- 
 
 124 
 
- 
 
 125 
   <%ElseIf ReleaseMode = enumDB_RELEASE_IN_RESTRICTIVE_MODE Then%>
- 
 
 126 
 
- 
 
 127 
      <%If objAccessControl.IsVisible ("ChangeModeFromRestrictive") And objAccessControl.IsDataActive ("PROJECTS", DB_PROJ_ID, "EditProjects")  Then%>
- 
 
 128 
         linkset[2]+='<div class="menuitems"><a href="_change_release_mode.asp?mode_code=1&<%=objPMod.ComposeURL()%>" title="Packages can be released freely."><%=LMENU_BLANK%>&nbsp;Open&nbsp;Mode</a></div>'
- 
 
 129 
      <%End If%>
- 
 
 130 
      linkset[2]+='<div class="menuitems"><%=LMENU_TICK%>&nbsp;Restrictive&nbsp;Mode</div>'
- 
 
 131 
      linkset[2]+='<div class="menuitems"><a href="_change_release_mode.asp?mode_code=4&<%=objPMod.ComposeURL()%>" title="Packages can only be released on CCB approval."><%=LMENU_BLANK%>&nbsp;CCB&nbsp;Mode</a></div>'
- 
 
 132 
      linkset[2]+='<div class="menuitems"><a href="_change_release_mode.asp?mode_code=3&<%=objPMod.ComposeURL()%>" title="No changes allowed."><%=LMENU_BLANK%>&nbsp;Closed&nbsp;Mode</a></div>'
- 
 
 133 
      linkset[2]+='<div class="menuitems"><a href="_change_release_mode.asp?mode_code=5&<%=objPMod.ComposeURL()%>" title="This would put the release into archive state."><%=LMENU_BLANK%>&nbsp;Archive&nbsp;Mode</a></div>'
- 
 
 134 
 
- 
 
 135 
   <%ElseIf ReleaseMode = enumDB_RELEASE_IN_CCB_MODE Then%>
- 
 
 136 
 
- 
 
 137 
      <%If objAccessControl.IsVisible ("ChangeModeFromRestrictive") And objAccessControl.IsDataActive ("PROJECTS", DB_PROJ_ID, "EditProjects")  Then%>
- 
 
 138 
         linkset[2]+='<div class="menuitems"><a href="_change_release_mode.asp?mode_code=1&<%=objPMod.ComposeURL()%>" title="Packages can be released freely."><%=LMENU_BLANK%>&nbsp;Open&nbsp;Mode</a></div>'
- 
 
 139 
      <%End If%>
- 
 
 140 
 
- 
 
 141 
      linkset[2]+='<div class="menuitems"><a href="_change_release_mode.asp?mode_code=2&<%=objPMod.ComposeURL()%>" title="Packages can only be released on approval."><%=LMENU_BLANK%>&nbsp;Restrictive&nbsp;Mode</a></div>'
- 
 
 142 
      linkset[2]+='<div class="menuitems"><%=LMENU_TICK%>&nbsp;CCB&nbsp;Mode</div>'
- 
 
 143 
      linkset[2]+='<div class="menuitems"><a href="_change_release_mode.asp?mode_code=3&<%=objPMod.ComposeURL()%>" title="No changes allowed."><%=LMENU_BLANK%>&nbsp;Closed&nbsp;Mode</a></div>'
- 
 
 144 
      linkset[2]+='<div class="menuitems"><a href="_change_release_mode.asp?mode_code=5&<%=objPMod.ComposeURL()%>" title="This would put the release into archive state."><%=LMENU_BLANK%>&nbsp;Archive&nbsp;Mode</a></div>'
- 
 
 145 
 
- 
 
 146 
   <%ElseIf ReleaseMode = enumDB_RELEASE_IN_CLOSED_MODE Then%>
- 
 
 147 
 
- 
 
 148 
      <%If objAccessControl.IsVisible ("ChangeModeFromClosed") And objAccessControl.IsDataActive ("PROJECTS", DB_PROJ_ID, "EditProjects")  Then%>
- 
 
 149 
         linkset[2]+='<div class="menuitems"><a href="_change_release_mode.asp?mode_code=1&<%=objPMod.ComposeURL()%>" title="Packages can be released freely."><%=LMENU_BLANK%>&nbsp;Open&nbsp;Mode</a></div>'
- 
 
 150 
         linkset[2]+='<div class="menuitems"><a href="_change_release_mode.asp?mode_code=2&<%=objPMod.ComposeURL()%>" title="Packages can only be released on approval."><%=LMENU_BLANK%>&nbsp;Restrictive&nbsp;Mode</a></div>'
- 
 
 151 
         linkset[2]+='<div class="menuitems"><a href="_change_release_mode.asp?mode_code=4&<%=objPMod.ComposeURL()%>" title="Packages can only be released on CCB approval."><%=LMENU_BLANK%>&nbsp;CCB&nbsp;Mode</a></div>'
- 
 
 152 
      <%End If%>
- 
 
 153 
 
- 
 
 154 
      linkset[2]+='<div class="menuitems"><%=LMENU_TICK%>&nbsp;Closed&nbsp;Mode</div>'
- 
 
 155 
 
- 
 
 156 
      <%If objAccessControl.IsVisible ("ChangeModeFromClosed") And objAccessControl.IsDataActive ("PROJECTS", DB_PROJ_ID, "EditProjects")  Then%>
- 
 
 157 
         linkset[2]+='<div class="menuitems"><a href="_change_release_mode.asp?mode_code=5&<%=objPMod.ComposeURL()%>" title="This would put the release into archive state."><%=LMENU_BLANK%>&nbsp;Archive&nbsp;Mode</a></div>'
- 
 
 158 
      <%End If%>
- 
 
 159 
   <%End If%>
- 
 
 160 
 
- 
 
 161 
   // Separator
- 
 
 162 
   linkset[2]+='<div class="menuitemDisable">----------------------</div>'
- 
 
 163 
 
157 
<%End If%>
164 
<%End If%>
158 
 
 165 
 
159 
 
 166 
 
160 
 
 167 
 
161 
 
 168 
 
162 
 
 169 
 
163 
<%If (ReleaseMode = enumDB_RELEASE_IN_OPEN_MODE) AND objAccessControl.IsVisible ("CloneReleaseContents") Then%>
 170 
<%If (ReleaseMode = enumDB_RELEASE_IN_OPEN_MODE) AND objAccessControl.IsVisible ("CloneReleaseContents") Then%>
164 
	linkset[2]+='<div class="menuitems"><a href="javascript:;" onClick="MM_openBrWindow(\'_wform_import_release.asp?ToRtag_id=<%=parRtag_id%>&<%=objPMod.ComposeURL()%>\',\'ReleaseManager\',\'scrollbars=yes,resizable=yes,width=400,height=200\')">Import&nbsp;Release&nbsp;Contents</a></div>'
 171 
   linkset[2]+='<div class="menuitems"><a href="javascript:;" onClick="MM_openBrWindow(\'_wform_import_release.asp?ToRtag_id=<%=parRtag_id%>&<%=objPMod.ComposeURL()%>\',\'ReleaseManager\',\'scrollbars=yes,resizable=yes,width=400,height=200\')">Import&nbsp;Release&nbsp;Contents</a></div>'
165 
<%Else%>
 172 
<%Else%>
166 
	linkset[2]+='<div class="menuitemDisable">Import&nbsp;Release&nbsp;Contents</div>'
 173 
   linkset[2]+='<div class="menuitemDisable">Import&nbsp;Release&nbsp;Contents</div>'
167 
<%End If%>
 174 
<%End If%>
- 
 
 175 
 
168 
<%If (ReleaseMode = enumDB_RELEASE_IN_OPEN_MODE) AND objAccessControl.IsVisible ("ImportDependencies") Then%>
 176 
<%If (ReleaseMode = enumDB_RELEASE_IN_OPEN_MODE) AND objAccessControl.IsVisible ("ImportDependencies") Then%>
169 
	linkset[2]+='<div class="menuitems"><a href="javascript:;" onClick="MM_openBrWindow(\'_wform_import_dependency.asp?ToRtag_id=<%=parRtag_id%>&<%=objPMod.ComposeURL()%>\',\'ReleaseManager\',\'scrollbars=yes,resizable=yes,width=800,height=200\')">Import&nbsp;Dependencies</a></div>'
 177 
   linkset[2]+='<div class="menuitems"><a href="javascript:;" onClick="MM_openBrWindow(\'_wform_import_dependency.asp?ToRtag_id=<%=parRtag_id%>&<%=objPMod.ComposeURL()%>\',\'ReleaseManager\',\'scrollbars=yes,resizable=yes,width=800,height=200\')">Import&nbsp;Dependencies</a></div>'
170 
<%Else%>
 178 
<%Else%>
171 
	linkset[2]+='<div class="menuitemDisable">Import&nbsp;Dependencies</div>'
 179 
   linkset[2]+='<div class="menuitemDisable">Import&nbsp;Dependencies</div>'
172 
<%End If%>
 180 
<%End If%>
- 
 
 181 
 
173 
linkset[2]+='<div class="menuitems"><a href="diff.asp?rtagB=<%=parRtag_id%>" >Merge&nbsp;Manager</a></div>'
 182 
linkset[2]+='<div class="menuitems"><a href="diff.asp?rtagB=<%=parRtag_id%>" >Merge&nbsp;Manager</a></div>'
174 
linkset[2]+='<div class="menuitems"><a href="build_order.asp?rtag_id=<%=parRtag_id%>">Build&nbsp;Order</a></div>'
 183 
linkset[2]+='<div class="menuitems"><a href="build_order.asp?rtag_id=<%=parRtag_id%>">Build&nbsp;Order</a></div>'
- 
 
 184 
linkset[2]+='<div class="menuitems"><a href="form_view_release_licencing.asp?rtag_id=<%=parRtag_id%>">View Licencing</a></div>'
- 
 
 185 
linkset[2]+='<div class="menuitems"><a href="form_edit_release_licencing.asp?rtag_id=<%=parRtag_id%>">Edit Licencing</a></div>'
175 
//linkset[2]+='<div class="menuitems"><a href="build_status.asp?rtag_id=<%=parRtag_id%>">Build&nbsp;Status</a></div>'
 186 
//linkset[2]+='<div class="menuitems"><a href="build_status.asp?rtag_id=<%=parRtag_id%>">Build&nbsp;Status</a></div>'
176 
 
 187 
 
177 
 
 188 
 
178 
 
 189 
 
179 
//linkset[4]='<div class="menuitems"><a href="help/index.asp" target="_blank">Index</a></div>'
 190 
//linkset[4]='<div class="menuitems"><a href="help/index.asp" target="_blank">Index</a></div>'
180 
//linkset[4]+='<div class="menuitems"><a href="_about.asp" target="_blank">About</a></div>'
 191 
//linkset[4]+='<div class="menuitems"><a href="_about.asp" target="_blank">About</a></div>'
181 
 
 192 
 
182 
<%If objAccessControl.IsActive("ConfigureBuildService") Then%>
 193 
<%If objAccessControl.IsActive("ConfigureBuildService") Then%>
183 
	linkset[6]=''
 194 
   linkset[6]=''
184 
	linkset[6]+='<div class="menuitems"><a href="admin_build_service.asp">Build&nbsp;Service</a></div>'
 195 
   linkset[6]+='<div class="menuitems"><a href="admin_build_service.asp">Build&nbsp;Service</a></div>'
185 
	linkset[6]+='<div class="menuitems"><a href="admin_gbe_machtype.asp">GBE&nbsp;MachType</a></div>'
 196 
   linkset[6]+='<div class="menuitems"><a href="admin_gbe_machtype.asp">GBE&nbsp;MachType</a></div>'
- 
 
 197 
   linkset[6]+='<div class="menuitems"><a href="admin_licences.asp">Licences</a></div>'
186 
	linkset[6]+='<div class="menuitems"><a href="admin_archive.asp">Archive</a></div>'
 198 
   linkset[6]+='<div class="menuitems"><a href="admin_archive.asp">Archive</a></div>'
187 
	linkset[6]+='<div class="menuitems"><a href="admin_projects.asp">Projects</a></div>'
 199 
   linkset[6]+='<div class="menuitems"><a href="admin_projects.asp">Projects</a></div>'
188 
<%Else%>
 200 
<%Else%>
189 
	linkset[6]=''
201 
   linkset[6]=''
190 
	linkset[6]='<b>Not Authorised!!!</b>'
 202 
   linkset[6]='<b>Not Authorised!!!</b>'
191 
<%End If%>
 203 
<%End If%>
192 
 
 204 
 
193 
linkset[5]=''
 205 
linkset[5]=''
194 
<%If Not objAccessControl.UserLogedIn Then%>
 206 
<%If Not objAccessControl.UserLogedIn Then%>
195 
linkset[5]+='<div class="menuitems"><a href="Login.asp?rfile=<%=scriptName & QSTR_All%>">Login</a></div>'
 207 
   linkset[5]+='<div class="menuitems"><a href="Login.asp?rfile=<%=scriptName & QSTR_All%>">Login</a></div>'
196 
<%Else%>
 208 
<%Else%>
197 
linkset[5]+='<div class="menuitemDisable">Login</div>'
 209 
   linkset[5]+='<div class="menuitemDisable">Login</div>'
198 
<%End If%>
 210 
<%End If%>
199 
 
 211 
 
200 
<%If objAccessControl.UserLogedIn Then%>
 212 
<%If objAccessControl.UserLogedIn Then%>
201 
linkset[5]+='<div class="menuitems"><a href="_Logout.asp?rfile=<%=scriptName & QSTR_All%>">Logout</a></div>'
 213 
   linkset[5]+='<div class="menuitems"><a href="_Logout.asp?rfile=<%=scriptName & QSTR_All%>">Logout</a></div>'
202 
<%Else%>
 214 
<%Else%>
203 
linkset[5]+='<div class="menuitemDisable">Logout</div>'
 215 
   linkset[5]+='<div class="menuitemDisable">Logout</div>'
204 
<%End If%>
 216 
<%End If%>
- 
 
 217 
 
205 
<!-- linkset[5]+='<div class="menuitems"><a href="sign_up.asp">Sign&nbsp;Up</a></div>' -->
 218 
<!-- linkset[5]+='<div class="menuitems"><a href="sign_up.asp">Sign&nbsp;Up</a></div>' -->
206 
linkset[5]+='<div class="menuitems"><a href="members_notifications.asp">Notifications</a></div>'
 219 
linkset[5]+='<div class="menuitems"><a href="members_notifications.asp">Notifications</a></div>'
207 
linkset[5]+='<div class="menuitems"><a href="members_personal_view.asp">Views</a></div>'
 220 
linkset[5]+='<div class="menuitems"><a href="members_personal_view.asp">Views</a></div>'
208 
linkset[5]+='<div class="menuitems"><a href="members_my_details.asp">My&nbsp;Details</a></div>'
 221 
linkset[5]+='<div class="menuitems"><a href="members_my_details.asp">My&nbsp;Details</a></div>'
209 
linkset[5]+='<div class="menuitems"><a href="members_my_roles.asp">My&nbsp;Roles</a></div>'
 222 
linkset[5]+='<div class="menuitems"><a href="members_my_roles.asp">My&nbsp;Roles</a></div>'
210 
 
 223 
 
211 
linkset[7]=''
 224 
linkset[7]=''
212 
<%If objAccessControl.IsVisible("ConfigureRelease") Then%>
 225 
<%If objAccessControl.IsVisible("ConfigureRelease") Then%>
213 
linkset[7]+='<div class="menuitems"><a href="release_config.asp?rtag_id=<%=parRtag_id%>">Configuration</a></div>'
 226 
   linkset[7]+='<div class="menuitems"><a href="release_config.asp?rtag_id=<%=parRtag_id%>">Configuration</a></div>'
214 
<%Else%>
 227 
<%Else%>
215 
linkset[7]+='<div class="menuitemDisable">Configuration</div>'
 228 
   linkset[7]+='<div class="menuitemDisable">Configuration</div>'
216 
<%End If%>
 229 
<%End If%>
- 
 
 230 
 
217 
linkset[7]+='<div class="menuitems"><a href="build_status.asp?rtag_id=<%=parRtag_id%>">Status</a></div>'
 231 
linkset[7]+='<div class="menuitems"><a href="build_status.asp?rtag_id=<%=parRtag_id%>">Status</a></div>'
218 
 
 232 
 
219 
 
 233 
 
220 
 
 234 
 
221 
</script>
 235 
</script>
222 
<%
 236 
<%
223 
Sub Print_TopRight_Menu_ROW1
 237 
Sub Print_TopRight_Menu_ROW1
224 
	Response.write "<table bgcolor='#ffffff' border='0' cellpadding='0' cellspacing='0' height='35'>"
 238 
   Response.write "<table bgcolor='#ffffff' border='0' cellpadding='0' cellspacing='0' height='35'>"
225 
    Response.write "  <tr>"
 239 
   Response.write "  <tr>"
226 
	If objAccessControl.UserLogedIn Then
 240 
   If objAccessControl.UserLogedIn Then
227 
		Response.write "    <td align=middle noWrap valign=center><img src='images/h_trsp_dot.gif' width='70' height='1'></td>"
 241 
      Response.write "    <td align=middle noWrap valign=center><img src='images/h_trsp_dot.gif' width='70' height='1'></td>"
228 
		Response.write "    <td></td>"
 242 
      Response.write "    <td></td>"
229 
	End If
 243 
   End If
230 
    Response.write "    <td align=middle noWrap valign=center><img src='images/h_trsp_dot.gif' width='80' height='1'></td>"
 244 
   Response.write "    <td align=middle noWrap valign=center><img src='images/h_trsp_dot.gif' width='80' height='1'></td>"
231 
	Response.write "    <td></td>"
 245 
   Response.write "    <td></td>"
232 
    Response.write "    <td align=middle noWrap valign=center><img src='images/h_trsp_dot.gif' width='70' height='1'></td>"
 246 
   Response.write "    <td align=middle noWrap valign=center><img src='images/h_trsp_dot.gif' width='70' height='1'></td>"
233 
	Response.write "    <td></td>"
 247 
   Response.write "    <td></td>"
234 
	Response.write "    <td align=middle noWrap valign=center><img src='images/h_trsp_dot.gif' width='70' height='1'></td>"
 248 
   Response.write "    <td align=middle noWrap valign=center><img src='images/h_trsp_dot.gif' width='70' height='1'></td>"
235 
	Response.write "    <td></td>"
 249 
   Response.write "    <td></td>"
236 
	Response.write "    <td align=middle noWrap valign=center><img src='images/h_trsp_dot.gif' width='70' height='1'></td>"
 250 
   Response.write "    <td align=middle noWrap valign=center><img src='images/h_trsp_dot.gif' width='70' height='1'></td>"
237 
	Response.write "    <td></td>"
 251 
   Response.write "    <td></td>"
238 
    Response.write "    <td align=middle noWrap valign=center><img src='images/h_trsp_dot.gif' width='70' height='1'></td>"
 252 
   Response.write "    <td align=middle noWrap valign=center><img src='images/h_trsp_dot.gif' width='70' height='1'></td>"
239 
    Response.write "  </tr>"
 253 
   Response.write "  </tr>"
240 
    Response.write "  <tr> "
 254 
   Response.write "  <tr> "
241 
	If objAccessControl.UserLogedIn Then
 255 
   If objAccessControl.UserLogedIn Then
242 
		Response.write "    <td align=middle noWrap valign=center><a class=mmItem href='members_index.asp'><img src='images/i_user.gif' border='0' hspace='3'>"&  objAccessControl.FullName &"</a>&nbsp;&nbsp;</td>"
 256 
      Response.write "    <td align=middle noWrap valign=center><a class=mmItem href='members_index.asp'><img src='images/i_user.gif' border='0' hspace='3'>"&  objAccessControl.FullName &"</a>&nbsp;&nbsp;</td>"
243 
		Response.write "	<td align=middle>|</td>"
 257 
      Response.write "   <td align=middle>|</td>"
244 
	End If
 258 
   End If
245 
    Response.write "    <td align=middle noWrap valign=center><a class=mmItem href='members_index.asp' onMouseover=""showmenu(event,linkset[5])"" onMouseout=""delayhidemenu()"">My Account</a></td>"
 259 
   Response.write "    <td align=middle noWrap valign=center><a class=mmItem href='members_index.asp' onMouseover=""showmenu(event,linkset[5])"" onMouseout=""delayhidemenu()"">My Account</a></td>"
246 
	Response.write "	<td align=middle>|</td>"
 260 
   Response.write "   <td align=middle>|</td>"
247 
    Response.write "    <td align=middle noWrap valign=center><a class=mmItem href='reports.asp'>Reports</a></td>"
 261 
   Response.write "    <td align=middle noWrap valign=center><a class=mmItem href='reports.asp'>Reports</a></td>"
248 
	Response.write "	<td align=middle>|</td>"
 262 
   Response.write "   <td align=middle>|</td>"
249 
	Response.write "    <td align=middle noWrap valign=center><a class=mmItem href='' onMouseover=""showmenu(event,linkset[6])"" onMouseout=""delayhidemenu()"">Admin</a></td>"
 263 
   Response.write "    <td align=middle noWrap valign=center><a class=mmItem href='' onMouseover=""showmenu(event,linkset[6])"" onMouseout=""delayhidemenu()"">Admin</a></td>"
250 
	Response.write "	<td align=middle>|</td>"
 264 
   Response.write "   <td align=middle>|</td>"
251 
	Response.write "    <td align=middle noWrap valign=center><a class=mmItem href='help/index.asp' target='_blank'>Help</a></td>"
 265 
   Response.write "    <td align=middle noWrap valign=center><a class=mmItem href='help/index.asp' target='_blank'>Help</a></td>"
252 
	Response.write "	<td align=middle>|</td>"
 266 
   Response.write "   <td align=middle>|</td>"
253 
	Response.write "    <td align=middle noWrap valign=center><a class=mmItem href='_about.asp' target='_blank'>About</a></td>"
 267 
   Response.write "    <td align=middle noWrap valign=center><a class=mmItem href='_about.asp' target='_blank'>About</a></td>"
254 
    Response.write "  </tr>"
 268 
   Response.write "  </tr>"
255 
    Response.write "</table>"
 269 
   Response.write "</table>"
256 
End Sub
 270 
End Sub
257 
 
 271 
 
258 
 
 272 
 
259 
Sub Print_TopRight_Menu_ROW2
 273 
Sub Print_TopRight_Menu_ROW2
260 
    Response.write "<table bgcolor='#ffffff' border='0' cellpadding='0' cellspacing='0' height='35'>"
 274 
   Response.write "<table bgcolor='#ffffff' border='0' cellpadding='0' cellspacing='0' height='35'>"
261 
    Response.write "  <tr>"
 275 
   Response.write "  <tr>"
262 
    Response.write "    <td align=middle noWrap valign=center><img src='images/h_trsp_dot.gif' width='70' height='1'></td>"
 276 
   Response.write "    <td align=middle noWrap valign=center><img src='images/h_trsp_dot.gif' width='70' height='1'></td>"
263 
	Response.write "	<td></td>"
 277 
   Response.write "   <td></td>"
264 
    Response.write "    <td align=middle noWrap valign=center><img src='images/h_trsp_dot.gif' width='70' height='1'></td>"
 278 
   Response.write "    <td align=middle noWrap valign=center><img src='images/h_trsp_dot.gif' width='70' height='1'></td>"
265 
	Response.write "	<td></td>"
 279 
   Response.write "   <td></td>"
266 
    Response.write "    <td align=middle noWrap valign=center><img src='images/h_trsp_dot.gif' width='70' height='1'></td>"
 280 
   Response.write "    <td align=middle noWrap valign=center><img src='images/h_trsp_dot.gif' width='70' height='1'></td>"
267 
    Response.write "  </tr>"
 281 
   Response.write "  </tr>"
268 
    Response.write "  <tr> "
 282 
   Response.write "  <tr> "
269 
    Response.write "    <td align=middle noWrap valign=center><a class=mmItem href='index.asp' onMouseover=""showmenu(event,linkset[0])"" onMouseout=""delayhidemenu()"">Projects</a></td>"
 283 
   Response.write "    <td align=middle noWrap valign=center><a class=mmItem href='index.asp' onMouseover=""showmenu(event,linkset[0])"" onMouseout=""delayhidemenu()"">Projects</a></td>"
270 
	Response.write "	<td align=middle>|</td>"
 284 
   Response.write "   <td align=middle>|</td>"
271 
	If QStrPar("rtag_id") <> "" Then
 285 
   If QStrPar("rtag_id") <> "" Then
272 
		Response.write "    <td align=middle noWrap valign=center><a class=mmItem href='#' onMouseover=""showmenu(event,linkset[2])"" onMouseout=""delayhidemenu()"">Release</a></td>"
 286 
      Response.write "    <td align=middle noWrap valign=center><a class=mmItem href='#' onMouseover=""showmenu(event,linkset[2])"" onMouseout=""delayhidemenu()"">Release</a></td>"
273 
		Response.write "	<td align=middle>|</td>"
 287 
      Response.write "   <td align=middle>|</td>"
274 
		Response.write "    <td align=middle noWrap valign=center><a class=mmItem href='#' onMouseover=""showmenu(event,linkset[7])"" onMouseout=""delayhidemenu()"">Build</a></td>"
 288 
      Response.write "    <td align=middle noWrap valign=center><a class=mmItem href='#' onMouseover=""showmenu(event,linkset[7])"" onMouseout=""delayhidemenu()"">Build</a></td>"
275 
	Else
 289 
   Else
276 
		Response.write "    <td align=middle noWrap valign=center class=mmItemDisable>Release</td>"
 290 
      Response.write "    <td align=middle noWrap valign=center class=mmItemDisable>Release</td>"
277 
		Response.write "	<td align=middle>|</td>"
 291 
      Response.write "   <td align=middle>|</td>"
278 
		Response.write "    <td align=middle noWrap valign=center class=mmItemDisable>Build</td>"
 292 
      Response.write "    <td align=middle noWrap valign=center class=mmItemDisable>Build</td>"
279 
	End If
 293 
   End If
280 
    Response.write "  </tr>"
 294 
   Response.write "  </tr>"
281 
    Response.write "</table>"
 295 
   Response.write "</table>"
282 
End Sub
 296 
End Sub
283 
 
 297 
 
284 
 
 298 
 
285 
Sub Print_TopLeft_Menu
 299 
Sub Print_TopLeft_Menu
286 
	Dim rsTemp, Query_String
 300 
   Dim rsTemp, Query_String
287 
	Dim myProj, myRtag
 301 
   Dim myProj, myRtag
288 
	Dim HomeSTR, ProjSTR, RtagSTR
 302 
   Dim HomeSTR, ProjSTR, RtagSTR
289 
	myProj = QStrPar("proj_id")
 303 
   myProj = QStrPar("proj_id")
290 
	myRtag = QStrPar("rtag_id")
 304 
   myRtag = QStrPar("rtag_id")
291
305 
 
292 
	HomeSTR = "<a class=mmItem href='index.asp'>HOME</a>"
 306 
   HomeSTR = "<a class=mmItem href='index.asp'>HOME</a>"
293
307 
 
294 
	If myRtag <> "" Then
 308 
   If myRtag <> "" Then
295 
		OraDatabase.Parameters.Add "RTAG_ID", myRtag, ORAPARM_INPUT, ORATYPE_NUMBER
309 
      OraDatabase.Parameters.Add "RTAG_ID", myRtag, ORAPARM_INPUT, ORATYPE_NUMBER
296
310 
 
297 
		Query_String = _
 311 
      Query_String = _
298 
		" SELECT rel.rtag_id, rel.rtag_name, proj.proj_id, proj.proj_name, rel.official"&_
 312 
      " SELECT rel.rtag_id, rel.rtag_name, proj.proj_id, proj.proj_name, rel.official"&_
299 
  		" FROM release_tags rel, projects proj"&_
 313 
      " FROM release_tags rel, projects proj"&_
300 
 		" WHERE rel.proj_id = proj.proj_id AND rel.rtag_id = :RTAG_ID"
 314 
      " WHERE rel.proj_id = proj.proj_id AND rel.rtag_id = :RTAG_ID"
301
315 
 
302 
		Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
 316 
      Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
303 
		If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
 317 
      If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
304 
			ProjSTR = " &gt; <a class=mmItem href='rtree.asp?proj_id="& rsTemp.Fields("proj_id") &"'>"& UCase(rsTemp.Fields("proj_name")) &"</a>"
 318 
         ProjSTR = " &gt; <a class=mmItem href='rtree.asp?proj_id="& rsTemp.Fields("proj_id") &"'>"& UCase(rsTemp.Fields("proj_name")) &"</a>"
305 
			RtagSTR = " &gt; <a class=mmItem href='dependencies.asp?rtag_id="& rsTemp.Fields("rtag_id") &"'>"& rsTemp.Fields("rtag_name") &"</a>"
 319 
         RtagSTR = " &gt; <a class=mmItem href='dependencies.asp?rtag_id="& rsTemp.Fields("rtag_id") &"'>"& rsTemp.Fields("rtag_name") &"</a>"
306 
		End If
 320 
      End If
307
321 
 
308 
		OraDatabase.Parameters.Remove "RTAG_ID"
 322 
      OraDatabase.Parameters.Remove "RTAG_ID"
309
- 
 
310
- 
 
311
- 
 
312
323 
 
313 
	ElseIf myProj <> "" Then
 324 
   ElseIf myProj <> "" Then
314
325 
 
315 
		OraDatabase.Parameters.Add "PROJ_ID", myProj, ORAPARM_INPUT, ORATYPE_NUMBER
326 
      OraDatabase.Parameters.Add "PROJ_ID", myProj, ORAPARM_INPUT, ORATYPE_NUMBER
316
327 
 
317 
		Query_String = _
 328 
      Query_String = _
318 
		" SELECT proj.proj_name, proj.proj_id"&_
 329 
      " SELECT proj.proj_name, proj.proj_id"&_
319 
  		" FROM projects proj"&_
 330 
      " FROM projects proj"&_
320 
 		" WHERE proj.proj_id = :PROJ_ID"
 331 
      " WHERE proj.proj_id = :PROJ_ID"
321
332 
 
322 
		Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
 333 
      Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
323 
		If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
 334 
      If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
324 
			ProjSTR = " &gt; <a class=mmItem href='rtree.asp?proj_id="& rsTemp.Fields("proj_id") &"'>"& UCase(rsTemp.Fields("proj_name")) &"</a>"
 335 
         ProjSTR = " &gt; <a class=mmItem href='rtree.asp?proj_id="& rsTemp.Fields("proj_id") &"'>"& UCase(rsTemp.Fields("proj_name")) &"</a>"
325 
			RtagSTR = ""
 336 
         RtagSTR = ""
326 
		End If
 337 
      End If
327
338 
 
328 
		OraDatabase.Parameters.Remove "PROJ_ID"
 339 
      OraDatabase.Parameters.Remove "PROJ_ID"
329
340 
 
330 
	End If
 341 
   End If
331
342 
 
332
343 
 
333 
	'-- Render Menu --
 344 
   '-- Render Menu --
334 
    Response.write "<table width='100%' border='0' cellspacing='0' cellpadding='0'>"
 345 
   Response.write "<table width='100%' border='0' cellspacing='0' cellpadding='0'>"
335 
    Response.write "  <tr>"
 346 
   Response.write "  <tr>"
336 
    Response.write "    <td width='1%'><img src='images/h_trsp_dot.gif' width='30' height='35'></td>"
 347 
   Response.write "    <td width='1%'><img src='images/h_trsp_dot.gif' width='30' height='35'></td>"
337
348 
 
338 
	If ReleaseMode = enumDB_RELEASE_IN_RESTRICTIVE_MODE Then
 349 
   If ReleaseMode = enumDB_RELEASE_IN_RESTRICTIVE_MODE Then
339 
		Response.write "    <td nowrap width='100%' class=mmItem>"& HomeSTR & ProjSTR &  RtagSTR &"&nbsp;[Restrictive Mode]</td>"
 350 
      Response.write "    <td nowrap width='100%' class=mmItem>"& HomeSTR & ProjSTR &  RtagSTR &"&nbsp;[Restrictive Mode]</td>"
340
351 
 
341 
	ElseIf ReleaseMode = enumDB_RELEASE_IN_CCB_MODE Then
 352 
   ElseIf ReleaseMode = enumDB_RELEASE_IN_CCB_MODE Then
342 
		Response.write "    <td nowrap width='100%' class=mmItem>"& HomeSTR & ProjSTR &  RtagSTR &"&nbsp;[CCB Mode!]</td>"
353 
      Response.write "    <td nowrap width='100%' class=mmItem>"& HomeSTR & ProjSTR &  RtagSTR &"&nbsp;[CCB Mode!]</td>"
343
354 
 
344 
	ElseIf ReleaseMode = enumDB_RELEASE_IN_CLOSED_MODE Then
 355 
   ElseIf ReleaseMode = enumDB_RELEASE_IN_CLOSED_MODE Then
345 
    	Response.write "    <td nowrap width='100%' class=mmItem>"& HomeSTR & ProjSTR &  RtagSTR &"<img src='images/i_locked.gif' width='7' height='10' border='0' hspace='2' >&nbsp;[Closed Mode]</td>"
 356 
       Response.write "    <td nowrap width='100%' class=mmItem>"& HomeSTR & ProjSTR &  RtagSTR &"<img src='images/i_locked.gif' width='7' height='10' border='0' hspace='2' >&nbsp;[Closed Mode]</td>"
346
357 
 
347 
	Else
 358 
   Else
348 
		Response.write "    <td nowrap width='100%' class=mmItem>"& HomeSTR & ProjSTR &  RtagSTR &"</td>"
 359 
      Response.write "    <td nowrap width='100%' class=mmItem>"& HomeSTR & ProjSTR &  RtagSTR &"</td>"
349
360 
 
350 
	End If
 361 
   End If
351
362 
 
352 
    Response.write "  </tr>"
 363 
    Response.write "  </tr>"
353 
    Response.write "</table>"
 364 
    Response.write "</table>"
354
365 
 
355 
	rsTemp.Close()
 366 
   rsTemp.Close()
356 
	Set rsTemp = nothing
 367 
   Set rsTemp = nothing
357 
End Sub
 368 
End Sub
358 
 
 369 
 
359 
Sub Print_Package_TopLeft_Menu
 370 
Sub Print_Package_TopLeft_Menu
360 
	Dim PkgNameSTR, PkgVersionSTR
 371 
   Dim PkgNameSTR, PkgVersionSTR
361
372 
 
362 
	PkgNameSTR = "<a class=mmItem href='view_by_version.asp?pkg_id="& pkgInfoHash.Item("pkg_id") &"&listby=1'>"& pkgInfoHash.Item("pkg_name") &"</a>"
 373 
   PkgNameSTR = "<a class=mmItem href='view_by_version.asp?pkg_id="& pkgInfoHash.Item("pkg_id") &"&listby=1'>"& pkgInfoHash.Item("pkg_name") &"</a>"
363 
	PkgVersionSTR = " &gt; <a class=mmItem href='#'>"& pkgInfoHash.Item("pkg_version") &"</a>"
 374 
   PkgVersionSTR = " &gt; <a class=mmItem href='#'>"& pkgInfoHash.Item("pkg_version") &"</a>"
364
375 
 
365 
    Response.write "<table width='100%' border='0' cellspacing='0' cellpadding='0'>"
 376 
   Response.write "<table width='100%' border='0' cellspacing='0' cellpadding='0'>"
366 
    Response.write "  <tr>"
 377 
   Response.write "  <tr>"
367 
    Response.write "    <td width='1%'><img src='images/h_trsp_dot.gif' width='30' height='35'></td>"
 378 
   Response.write "    <td width='1%'><img src='images/h_trsp_dot.gif' width='30' height='35'></td>"
368 
	If (pkgInfoHash.Item("dlocked") = "Y") OR (pkgInfoHash.Item("dlocked") = "A") Then
 379 
   If (pkgInfoHash.Item("dlocked") = "Y") OR (pkgInfoHash.Item("dlocked") = "A") Then
369 
    	Response.write "    <td nowrap width='100%' class=mmItem>"& PkgNameSTR & PkgVersionSTR &"<img src='images/i_locked.gif' width='7' height='10' border='0' hspace='2' ></td>"
 380 
       Response.write "    <td nowrap width='100%' class=mmItem>"& PkgNameSTR & PkgVersionSTR &"<img src='images/i_locked.gif' width='7' height='10' border='0' hspace='2' ></td>"
370 
	Else
 381 
   Else
371 
		Response.write "    <td nowrap width='100%' class=mmItem>"& PkgNameSTR & PkgVersionSTR &"</td>"
 382 
      Response.write "    <td nowrap width='100%' class=mmItem>"& PkgNameSTR & PkgVersionSTR &"</td>"
372 
	End If
 383 
   End If
373 
    Response.write "  </tr>"
 384 
   Response.write "  </tr>"
374 
    Response.write "</table>"
 385 
   Response.write "</table>"
375
386 
 
376 
End Sub
 387 
End Sub
377 
 
 388 
 
378 
 
 389 
 
379 
Function Projects_Menu ( NNarrIndex )
 390 
Function Projects_Menu ( NNarrIndex )
380 
	Dim rsTemp, Query_String, tempSTR
 391 
   Dim rsTemp, Query_String, tempSTR
381 
	tempSTR = ""
 392 
   tempSTR = ""
382 
	Query_String = _
 393 
   Query_String = _
383 
	" SELECT * FROM projects ORDER BY proj_name ASC"
 394 
   " SELECT * FROM projects ORDER BY proj_name ASC"
384 
	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
 395 
   Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
385 
	While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
 396 
   While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
386 
		tempSTR = tempSTR & "linkset["& NNarrIndex &"]+='<div class=""menuitems""><a href=""rtree.asp?proj_id="& rsTemp.Fields("proj_id") &""">"& Replace(rsTemp.Fields("proj_name"), " ", "&nbsp;") &"</a></div>'"& VBNewLine
 397 
      tempSTR = tempSTR & "linkset["& NNarrIndex &"]+='<div class=""menuitems""><a href=""rtree.asp?proj_id="& rsTemp.Fields("proj_id") &""">"& Replace(rsTemp.Fields("proj_name"), " ", "&nbsp;") &"</a></div>'"& VBNewLine
387 
		rsTemp.MoveNext
 398 
      rsTemp.MoveNext
388 
	WEnd
 399 
   WEnd
389 
	Projects_Menu = tempSTR
 400 
   Projects_Menu = tempSTR
390 
	rsTemp.Close
 401 
   rsTemp.Close
391 
	Set rsTemp = nothing
 402 
   Set rsTemp = nothing
392 
End Function
 403 
End Function
393 
 
 404 
 
394 
 
 405 
 
395 
'Function Get_Proj ( NNrtag_id, NNvtree_id )
 406 
'Function Get_Proj ( NNrtag_id, NNvtree_id )
396 
'	Dim rsTemp, Query_String, tempRtag_id
 407 
'   Dim rsTemp, Query_String, tempRtag_id
397 
'	If NNvtree_id = "" Then
 408 
'   If NNvtree_id = "" Then
398 
'		If NNrtag_id = "" Then
409 
'      If NNrtag_id = "" Then
399 
'			tempRtag_id = -1
 410 
'         tempRtag_id = -1
400 
'		Else
 411 
'      Else
401 
'			tempRtag_id = NNrtag_id
 412 
'         tempRtag_id = NNrtag_id
402 
'		End If
 413 
'      End If
403 
'		Query_String = _
 414 
'      Query_String = _
404 
'		" SELECT vt.vtree_id, vt.proj_id"&_
 415 
'      " SELECT vt.vtree_id, vt.proj_id"&_
405 
'	  	"	FROM release_tags rel, vtrees vt"&_
 416 
'        "   FROM release_tags rel, vtrees vt"&_
406 
'	 	"   WHERE vt.vtree_id = rel.vtree_id AND rel.rtag_id = "& tempRtag_id
 417 
'       "   WHERE vt.vtree_id = rel.vtree_id AND rel.rtag_id = "& tempRtag_id
407 
'	Else
 418 
'   Else
408 
'		Query_String = _
 419 
'      Query_String = _
409 
'		" SELECT vt.vtree_id, vt.proj_id"&_
 420 
'      " SELECT vt.vtree_id, vt.proj_id"&_
410 
'	  	"	FROM vtrees vt"&_
 421 
'        "   FROM vtrees vt"&_
411 
'	 	"   WHERE vt.vtree_id = "& NNvtree_id
 422 
'       "   WHERE vt.vtree_id = "& NNvtree_id
412 
'	End If
 423 
'   End If
413 
'
424 
'
414 
'	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
 425 
'   Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
415 
'
426 
'
416 
'	If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
 427 
'   If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
417 
'		Get_Proj = (rsTemp.Fields("proj_id"))
 428 
'      Get_Proj = (rsTemp.Fields("proj_id"))
418 
'		NNvtree_id = (rsTemp.Fields("vtree_id"))
 429 
'      NNvtree_id = (rsTemp.Fields("vtree_id"))
419 
'	Else
 430 
'   Else
420 
'		Get_Proj = -1
 431 
'      Get_Proj = -1
421 
'		NNvtree_id = -1
 432 
'      NNvtree_id = -1
422 
'	End If
 433 
'   End If
423 
'
434 
'
424 
'	rsTemp.Close
 435 
'   rsTemp.Close
425 
'	Set rsTemp = nothing
 436 
'   Set rsTemp = nothing
426 
'End Function
 437 
'End Function
427 
 
 438 
 
428 
 
 439 
 
429 
 
 440 
 
430 
%>
 - 
 
431 

            441
            
%>

          

          

            -
            
 

            442