Subversion Repositories DevTools

Rev

Rev 3929 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

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