Subversion Repositories DevTools

Rev

Details | 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 -----------------------
2365 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
5009 dpurdie 33 
      If CInt(pkgInfoHash.Item ("base_view_id")) = enumBASE_VIEW_PRODUCTS  OR CInt(pkgInfoHash.Item ("base_view_id")) = enumAUTOPRODUCTS_BASE_VIEW_ID Then
127 ghuddy 34 
         ' Tab for PRODUCTS
5009 dpurdie 35 
         TABarray1 = Array ( imgDependenciesIcon &"Dependencies@dependencies.asp?"& Persists_Query_String( Empty ), _
36 
                             "Runtime@runtime_dependencies.asp?"& Persists_Query_String( Empty ), _
37 
                             "Used by@used_by.asp?"& Persists_Query_String( Empty ), _
38 
                             "Processes@process_dependencies.asp?"& Persists_Query_String( Empty ), _
39 
                             imgPatchesIcon &"Patches@patches.asp?"& Persists_Query_String( Empty ), _
40 
                             imgReleaseNotesIcon &"Release Notes@fixed_issues.asp?"& Persists_Query_String( Empty ), _
127 ghuddy 41 
                             "Documentation@documentation.asp?" & Persists_Query_String( Empty ), _
42 
                             "Files and Folders@files_and_folders.asp?" & Persists_Query_String( Empty ), _
5009 dpurdie 43 
                             "Action Log@action_log.asp?"& Persists_Query_String( Empty ), _
44 
                             "Unit Test@unit_test_log.asp?"& Persists_Query_String( Empty ) )
127 ghuddy 45 
      Else
46 
         ' Tabs for other packages
5009 dpurdie 47 
         TABarray1 = Array ( imgDependenciesIcon &"Dependencies@dependencies.asp?"& Persists_Query_String( Empty ), _
48 
                             "Runtime@runtime_dependencies.asp?"& Persists_Query_String( Empty ), _
49 
                             "Used by@used_by.asp?"& Persists_Query_String( Empty ), _
50 
                             "Processes@process_dependencies.asp?"& Persists_Query_String( Empty ), _
51 
                             imgPatchesIcon &"Patches@patches.asp?"& Persists_Query_String( Empty ), _
52 
                             imgReleaseNotesIcon &"Release Notes@fixed_issues.asp?"& Persists_Query_String( Empty ), _
127 ghuddy 53 
                             "Documentation@documentation.asp?" & Persists_Query_String( Empty ), _
54 
                             "Files and Folders@files_and_folders.asp?" & Persists_Query_String( Empty ), _
5009 dpurdie 55 
                             "Action Log@action_log.asp?"& Persists_Query_String( Empty ), _
56 
                             "Unit Test@unit_test_log.asp?"& Persists_Query_String( Empty ) )
5098 dpurdie 57 
 
58 
        ' Add a debug tab to show internal data
59 
        If (IsEmpty(Application("LiveSystem"))) Then
5114 dpurdie 60 
            ReDim Preserve TABarray1(UBound(TABarray1) + 1)
5098 dpurdie 61 
            TABarray1(UBound(TABarray1)) = "Debug@pvdata.asp?"& Persists_Query_String( Empty )
62 
        End If
127 ghuddy 63 
      End If
64 
   Else
65 
      ' Tabs for Patches
66 
      TABarray1 = Array ( imgDependenciesIcon &"Dependencies@dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"), _
67 
                          "Used by@used_by.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"), _
68 
                          imgReleaseNotesIcon &"Release Notes@fixed_issues.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"), _
69 
                          "Files and Folders@files_and_folders.asp?" & Persists_Query_String( Empty ), _
70 
                          "Action Log@action_log.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"))
71 
   End If
72 
End If
119 ghuddy 73 
 
74 
' Tabs for Import / Export Dependencies
127 ghuddy 75 
TABarray2 = Array ( "JATS style@form_update_jats_dependencies.asp?click="& CInt(ppClick) + 1 &"&pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"), _
76 
                    "JANT style@form_update_jant_dependencies.asp?click="& CInt(ppClick) + 1 &"&pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"), _
77 
                    "ANT-using style@form_update_ant_dependencies.asp?click="& CInt(ppClick) + 1 &"&pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"))
119 ghuddy 78 
 
127 ghuddy 79 
TABarray3 = Array ( "JATS style@form_export_jats_dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"), _
80 
                    "JANT style@form_export_jant_dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"), _
81 
                    "ClearCase style@form_export_clearcase_dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"), _
82 
                    "ANT-using style@form_export_ant_dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"))
83 
 
84 
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") , _
85 
                    "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"), _
86 
                    "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") )
87 
 
119 ghuddy 88 
' Tabs for History window
89 
TABarray5 = Array ( imgDependenciesIcon &"Dependencies@_wform_versions_history_dependencies.asp?"& Persists_Query_String( Empty ), _
127 ghuddy 90 
                    "Runtime@_wform_versions_history_runtime.asp?"& Persists_Query_String( Empty ), _
91 
                    "Used by@_wform_versions_history_used_by.asp?"& Persists_Query_String( Empty ), _
92 
                    "Patches@_wform_versions_history_patches.asp?" & Persists_Query_String( Empty ), _
93 
                    imgReleaseNotesIcon &"Release Notes@_wform_versions_history_release_notes.asp?" & Persists_Query_String( Empty ), _
94 
                    "Documentation@_wform_versions_history_documentation.asp?"& Persists_Query_String( Empty ), _
3959 dpurdie 95 
                    "Files and Folders@_wform_versions_history_files_and_folders.asp?" & Persists_Query_String( Empty ), _
5018 dpurdie 96 
                    "Action Log@_wform_versions_history_action_log.asp?"& Persists_Query_String( Empty ) ,_
97 
                    "Unit Tests@_wform_versions_history_unit_test_log.asp?"& Persists_Query_String( Empty ) )
127 ghuddy 98 
 
119 ghuddy 99 
TABarray5D = Array ( imgDependenciesIcon &"Dependencies@#", _
127 ghuddy 100 
                     "Runtime@#", _
101 
                     "Patches@#", _
102 
                     imgReleaseNotesIcon &"Release Notes@#", _
103 
                     "Documentation@#", _
5018 dpurdie 104 
                     "Action Log@#",_
105 
                     "Unit Tests@#" )
119 ghuddy 106 
 
107 
' Tabs for Unit Test window
127 ghuddy 108 
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"), _
109 
                    "Acceptance@_wform_update_unit_test_acceptance.asp?rtag_id="& Request("rtag_id") &"&pv_id="& Request("pv_id") &"&test_id="& Request("test_id"))
119 ghuddy 110 
 
127 ghuddy 111 
TABarray6D = Array ( "Unit Test Details@#", _
112 
                     "Acceptance@#")
113 
 
119 ghuddy 114 
'----------------------------------------------
115 
%>
116 
<script language="JavaScript1.2">
117 
 
118 
var linkset=new Array()
119 
// ---- Popup menu definition ----
120 
 
121 
linkset[0]=''
122 
<%=Projects_Menu ( 0 )%>
5066 dpurdie 123 
 
124 
linkset[1] = ''
5097 dpurdie 125 
linkset[1]+='<div class="menuitems"><a target="_blank" href="../Access_Manager">Access&nbsp;Manager</a></div>'
126 
linkset[1]+='<div class="menuitems"><a target="_blank" href="../Deployment_Manager">Deployment&nbsp;Manager</a></div>'
127 
//linkset[1]+='<div class="menuitems"><a target="_blank" href="../Production_Manager">Production&nbsp;Manager</a></div>'
128 
linkset[1]+='<div class="menuitems"><a target="_blank" href="../Release_Manager">Release&nbsp;Manager</a></div>'
5061 dpurdie 129 
<%
130 
'-------------------------------------------------
131 
' Function:     genReleaseMode
132 
' Description:  Generate one line of the Release State dropdown menu
133 
Function genReleaseMode(mode, emode, code, name, title)
134 
    genReleaseMode = ""
135 
    Dim href: href = ""
136 
    Dim mclass : mclass = "menuitems"
137 
        If mode = emode Then
138 
            genReleaseMode = genReleaseMode & LMENU_TICK
139 
            mclass="menuitemDisable"
140 
        Else
141 
            If canActionInProject() Then
5178 dpurdie 142 
                If ReleaseModeAccessCheck(mode, emode) Then
5061 dpurdie 143 
                    href = "<a href=""_change_release_mode.asp?mode_code=" & code & "&"& objPMod.ComposeURL() &""">"
144 
                    genReleaseMode = genReleaseMode & href
145 
                Else
146 
                    mclass="menuitemDisable"
147 
                End If
148 
                genReleaseMode = genReleaseMode & LMENU_BLANK
149 
            End If
150 
        End If
151 
        If genReleaseMode <> "" Then
152 
            genReleaseMode = genReleaseMode & "<span title=""" & title & """>&nbsp;" & name &"</span>"
153 
            If href <> "" Then genReleaseMode = genReleaseMode & "</a>"
154 
            genReleaseMode = "<div class="""&mclass&""">" & genReleaseMode & "</div>"
155 
        End If
156 
    genReleaseMode = "'" & genReleaseMode & "'"
157 
End Function
158 
%>
119 ghuddy 159 
linkset[2]=''
5178 dpurdie 160 
linkset[2]+=<%=genReleaseMode(ReleaseMode,enumDB_RELEASE_IN_OPEN_MODE,        1, "Open&nbsp;Mode" , "Packages can be released freely.")%>
5061 dpurdie 161 
linkset[2]+=<%=genReleaseMode(ReleaseMode,enumDB_RELEASE_IN_RESTRICTIVE_MODE, 2, "Restrictive&nbsp;Mode" , "Packages can only be released on approval.")%>
5178 dpurdie 162 
linkset[2]+=<%=genReleaseMode(ReleaseMode,enumDB_RELEASE_IN_CCB_MODE,         4, "CCB&nbsp;Mode" , "Packages can only be released on CCB approval.")%>
163 
linkset[2]+=<%=genReleaseMode(ReleaseMode,enumDB_RELEASE_IN_CLOSED_MODE,      3, "Closed&nbsp;Mode" , "No changes allowed.")%>
164 
linkset[2]+=<%=genReleaseMode(ReleaseMode,enumDB_RELEASE_IN_PRESERVE_MODE,    6, "Preserve&nbsp;Mode" , "No change allowed. Archived, but artifacts retained in dpkg_archive")%>
165 
linkset[2]+=<%=genReleaseMode(ReleaseMode,enumDB_RELEASE_IN_ARCHIVE_MODE,     5, "Archive&nbsp;Mode" , "No change allowed. Packages may be purged from dpkg_archive.")%>
5061 dpurdie 166 
linkset[2]+='<hr>'
119 ghuddy 167 
 
5061 dpurdie 168 
<%If (ReleaseMode = enumDB_RELEASE_IN_OPEN_MODE) AND canShowControlInProject ("CloneReleaseContents") Then%>
127 ghuddy 169 
   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 170 
<%Else%>
127 ghuddy 171 
   linkset[2]+='<div class="menuitemDisable">Import&nbsp;Release&nbsp;Contents</div>'
119 ghuddy 172 
<%End If%>
127 ghuddy 173 
 
5061 dpurdie 174 
<%If (ReleaseMode = enumDB_RELEASE_IN_OPEN_MODE) AND canShowControlInProject ("ImportDependencies") Then%>
4301 dpurdie 175 
   linkset[2]+='<div class="menuitems"><a href="javascript:;" onClick="MM_openBrWindow(\'_wform_import_dependency.asp?<%=objPMod.ComposeURL()%>\',\'ReleaseManager\',\'scrollbars=yes,resizable=yes,width=800,height=200\')">Import&nbsp;Dependencies</a></div>'
119 ghuddy 176 
<%Else%>
127 ghuddy 177 
   linkset[2]+='<div class="menuitemDisable">Import&nbsp;Dependencies</div>'
119 ghuddy 178 
<%End If%>
127 ghuddy 179 
 
5061 dpurdie 180 
<%If (ReleaseMode = enumDB_RELEASE_IN_OPEN_MODE) AND canShowControlInProject ("ImportDependencies") Then%>
4307 dpurdie 181 
   linkset[2]+='<div class="menuitems"><a href="javascript:;" onClick="MM_openBrWindow(\'_wform_import_daemonconfig.asp?<%=objPMod.ComposeURL()%>\',\'ReleaseManager\',\'scrollbars=yes,resizable=yes,width=800,height=200\')">Import&nbsp;Daemon&nbsp;Config</a></div>'
4399 dpurdie 182 
//   linkset[2]+='<div class="menuitems"><a href="import_daemonconfig.asp?rtag_id=<%=parRtag_id%>">Import&nbsp;Daemon&nbsp;Config</a></div>'
183 
 
4307 dpurdie 184 
<%Else%>
185 
   linkset[2]+='<div class="menuitemDisable">Import&nbsp;Daemon&nbsp;Config</div>'
186 
<%End If%>
187 
 
5103 dpurdie 188 
<%If canActionControlInProject ("CreateSdk") Then%>
189 
    linkset[2]+='<hr>'
190 
    linkset[2]+='<div class="menuitems"><a href="javascript:;" onclick="$(\'#popmenu\').load(\'sdk_version_add.asp\', {sdk_id : 1, rtag_id : <%=parRtag_id%>, proj_id : <%=DB_PROJ_ID%>} );">Create&nbsp;SDK</a></div>'
191 
<%End If%>
5049 dpurdie 192 
 
193 
linkset[2]+='<hr>'
5061 dpurdie 194 
linkset[2]+='<div class="menuitems"><a href="form_edit_release.asp?rtag_id=<%=parRtag_id%>">Release&nbsp;Properties</a></div>'
119 ghuddy 195 
linkset[2]+='<div class="menuitems"><a href="diff.asp?rtagB=<%=parRtag_id%>" >Merge&nbsp;Manager</a></div>'
127 ghuddy 196 
linkset[2]+='<div class="menuitems"><a href="form_view_release_licencing.asp?rtag_id=<%=parRtag_id%>">View Licencing</a></div>'
197 
linkset[2]+='<div class="menuitems"><a href="form_edit_release_licencing.asp?rtag_id=<%=parRtag_id%>">Edit Licencing</a></div>'
147 ghuddy 198 
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>'
5176 dpurdie 199 
linkset[2]+='<hr>'
200 
linkset[2]+='<div class="menuitems"><a href="build_order.asp?rtag_id=<%=parRtag_id%>">Build&nbsp;Order</a></div>'
201 
linkset[2]+='<div class="menuitems"><a href="dependencies.asp?rtag_id=<%=parRtag_id%>&RebuidIcons=1">Rebuild&nbsp;Status&nbsp;Icons</a></div>'
119 ghuddy 202 
 
127 ghuddy 203 
   linkset[6]=''
204 
   linkset[6]+='<div class="menuitems"><a href="admin_build_service.asp">Build&nbsp;Service</a></div>'
3616 dpurdie 205 
   linkset[6]+='<div class="menuitems"><a href="admin_build_test_page.asp">Release&nbsp;Manager&nbsp;Tests</a></div>'
5061 dpurdie 206 
<%If canActionControl("MSMaintainer") Then%>
4399 dpurdie 207 
   linkset[6]+='<div class="menuitems"><a href="admin_session_details.asp">Session&nbsp;Details</a></div>'
208 
<%End If%>
5061 dpurdie 209 
<%If canActionControl("ConfigureBuildService") Then%>
3959 dpurdie 210 
   linkset[6]+='<hr>'
127 ghuddy 211 
   linkset[6]+='<div class="menuitems"><a href="admin_gbe_machtype.asp">GBE&nbsp;MachType</a></div>'
4029 dpurdie 212 
   linkset[6]+='<div class="menuitems"><a href="admin_gbe_machclass.asp">GBE&nbsp;MachClass</a></div>'
161 iaugusti 213 
   linkset[6]+='<div class="menuitems"><a href="admin_build_machine.asp">Build&nbsp;Machine</a></div>'
5122 dpurdie 214 
   linkset[6]+='<div class="menuitems"><a href="admin_gbe_buildstandard.asp">Build&nbsp;Standards</a></div>'
127 ghuddy 215 
   linkset[6]+='<div class="menuitems"><a href="admin_licences.asp">Licences</a></div>'
147 ghuddy 216 
   linkset[6]+='<div class="menuitems"><a href="admin_vcs_types.asp">Version&nbsp;Control&nbsp;Systems</a></div>'
119 ghuddy 217 
<%End If%>
5061 dpurdie 218 
<%If (canActionControl("CreateNewProject")) Then%>
3959 dpurdie 219 
   linkset[6]+='<hr>'
220 
   linkset[6]+='<div class="menuitems"><a href="javascript:;" onClick="MM_openBrWindow(\'_wform_new_project.asp\',\'ReleaseManager\',\'resizable=yes,width=400,height=200\')">New&nbsp;Project</a></div>'
221 
   linkset[6]+='<div class="menuitems"><a href="admin_projects.asp">Project&nbsp;Info</a></div>'
222 
   linkset[6]+='<div class="menuitems"><a href="admin_project_suffix.asp">Project&nbsp;Suffix</a></div>'
223 
<%End If%>
4585 dpurdie 224 
<%If objAccessControl.UserLogedIn Then%>
225 
   linkset[6]+='<hr>'
226 
   linkset[6]+='<div class="menuitems"><a href="admin_package_properties.asp">Package&nbsp;Properties</a></div>'
227 
<%End If%>
119 ghuddy 228 
 
229 
linkset[5]=''
230 
<%If Not objAccessControl.UserLogedIn Then%>
4955 dpurdie 231 
   linkset[5]+='<div class="menuitems"><a href="Login.asp?rfile=<%=scriptName & QSTR_FullQuery%>">Login</a></div>'
119 ghuddy 232 
<%Else%>
127 ghuddy 233 
   linkset[5]+='<div class="menuitemDisable">Login</div>'
119 ghuddy 234 
<%End If%>
235 
 
236 
<%If objAccessControl.UserLogedIn Then%>
4955 dpurdie 237 
   linkset[5]+='<div class="menuitems"><a href="_Logout.asp">Logout</a></div>'
119 ghuddy 238 
<%Else%>
127 ghuddy 239 
   linkset[5]+='<div class="menuitemDisable">Logout</div>'
119 ghuddy 240 
<%End If%>
127 ghuddy 241 
 
119 ghuddy 242 
<!-- linkset[5]+='<div class="menuitems"><a href="sign_up.asp">Sign&nbsp;Up</a></div>' -->
3959 dpurdie 243 
linkset[5]+='<div class="menuitems"><a href="members_pkgs_followed.asp">Notifications</a></div>'
119 ghuddy 244 
linkset[5]+='<div class="menuitems"><a href="members_personal_view.asp">Views</a></div>'
245 
linkset[5]+='<div class="menuitems"><a href="members_my_details.asp">My&nbsp;Details</a></div>'
246 
linkset[5]+='<div class="menuitems"><a href="members_my_roles.asp">My&nbsp;Roles</a></div>'
247 
 
248 
linkset[7]=''
151 ghuddy 249 
linkset[7]+='<div class="menuitems"><a href="release_config.asp?rtag_id=<%=parRtag_id%>">Configuration</a></div>'
119 ghuddy 250 
linkset[7]+='<div class="menuitems"><a href="build_status.asp?rtag_id=<%=parRtag_id%>">Status</a></div>'
5008 dpurdie 251 
linkset[7]+='<div class="menuitems"><a href="build_release_log.asp?rtag_id=<%=parRtag_id%>">Build Log</a></div>'
119 ghuddy 252 
 
147 ghuddy 253 
linkset[8]=''
5097 dpurdie 254 
linkset[8]+='<div class="menuitems"><a href="admin_build_status.asp">Daemon&nbsp;Status</a></div>'
5008 dpurdie 255 
linkset[8]+='<div class="menuitems"><a href="build_release_log.asp">Daemon&nbsp;Build&nbsp;Log</a></div>'
5097 dpurdie 256 
linkset[8]+='<div class="menuitems"><a href="admin_daemon_instructions.asp">Daemon&nbsp;Instructions</a></div>'
119 ghuddy 257 
 
3959 dpurdie 258 
linkset[9]=''
259 
linkset[9]+='<div class="menuitems"><a href="Wikiasp/wiki.asp" target="_blank">Release&nbsp;Notes</a></div>'
260 
<%If (IsEmpty(Application("LiveSystem"))) Then%>
261 
linkset[9]+='<div class="menuitems"><a href="Wikiasp/wiki.asp?db=ImplementationNotes" target="_blank">Development&nbsp;Notes</a></div>'
262 
<%End If%>
263 
linkset[9]+='<div class="menuitems"><a href="help/index.asp" target="_blank">Internal&nbsp;Help(old)</a></div>'
264 
linkset[9]+='<div class="menuitems"><a href="_about.asp" target="_blank">About</a></div>'
119 ghuddy 265 
 
266 
</script>
267 
<%
268 
Sub Print_TopRight_Menu_ROW1
5102 dpurdie 269 
   Response.write "<table bgcolor='#ffffff' border='0' cellpadding='0' cellspacing='0' height='26'>"
127 ghuddy 270 
   Response.write "  <tr> "
271 
   If objAccessControl.UserLogedIn Then
5071 dpurdie 272 
      Response.write "    <td align=middle noWrap valign=center><a class=mmItem href='members_index.asp' onMouseover=""showmenu(event,linkset[5])"" onMouseout=""delayhidemenu()""><img src='images/i_user.gif' border='0' hspace='3'>"&  objAccessControl.FullName &"</a>&nbsp;&nbsp;</td>"
273 
   Else
5114 dpurdie 274 
      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>&nbsp;&nbsp;</td>"
127 ghuddy 275 
   End If
276 
   Response.write "   <td align=middle>|</td>"
5102 dpurdie 277 
   Response.write "    <td align=middle noWrap valign=center width='70'><a class=mmItem href='' onMouseover=""showmenu(event,linkset[1])"" onMouseout=""delayhidemenu()"">Suite</a></td>"
5066 dpurdie 278 
   Response.write "   <td align=middle>|</td>"
5102 dpurdie 279 
   If InStr(1,ScriptName,"sdk_", 1) <> 0 Then
280 
   Response.write "    <td align=middle noWrap valign=center width='70'><a class=mmItem href='index.asp'>Releases</a></td>"
127 ghuddy 281 
   Response.write "   <td align=middle>|</td>"
5102 dpurdie 282 
   Else
283 
   Response.write "    <td align=middle noWrap valign=center width='70'><a class=mmItem href='sdk_main_page.asp#url=sdk_names_body.asp'>SDK</a></td>"
147 ghuddy 284 
   Response.write "   <td align=middle>|</td>"
5102 dpurdie 285 
   End If
286 
   Response.write "   <td align=middle noWrap valign=center width='70'><a class=mmItem href='index.asp' onMouseover=""showmenu(event,linkset[0])"" onMouseout=""delayhidemenu()"">Projects</a></td>"
127 ghuddy 287 
   Response.write "   <td align=middle>|</td>"
5102 dpurdie 288 
   Response.write "    <td align=middle noWrap valign=center width='70'><a class=mmItem href='reports.asp'>Reports</a></td>"
289 
   Response.write "   <td align=middle>|</td>"
290 
   Response.write "    <td align=middle noWrap valign=center width='70'><a class=mmItem href='' onMouseover=""showmenu(event,linkset[8])"" onMouseout=""delayhidemenu()"">Build</a></td>"
291 
   Response.write "   <td align=middle>|</td>"
292 
   Response.write "    <td align=middle noWrap valign=center width='70'><a class=mmItem href='' onMouseover=""showmenu(event,linkset[6])"" onMouseout=""delayhidemenu()"">Admin</a></td>"
293 
   Response.write "   <td align=middle>|</td>"
294 
   Response.write "    <td align=middle noWrap valign=center width='70'><a class=mmItem href='' onMouseover=""showmenu(event,linkset[9])"" onMouseout=""delayhidemenu()"">Help</a></td>"
127 ghuddy 295 
   Response.write "  </tr>"
296 
   Response.write "</table>"
119 ghuddy 297 
End Sub
298 
 
299 
 
300 
Sub Print_TopRight_Menu_ROW2
127 ghuddy 301 
   Response.write "<table bgcolor='#ffffff' border='0' cellpadding='0' cellspacing='0' height='35'>"
302 
   Response.write "  <tr> "
303 
   If QStrPar("rtag_id") <> "" Then
5102 dpurdie 304 
      Response.write "    <td align=middle noWrap valign=center width='70'><a class=mmItem href='#' onMouseover=""showmenu(event,linkset[2])"" onMouseout=""delayhidemenu()"">Release</a></td>"
127 ghuddy 305 
      Response.write "   <td align=middle>|</td>"
5102 dpurdie 306 
      Response.write "    <td align=middle noWrap valign=center width='70'><a class=mmItem href='#' onMouseover=""showmenu(event,linkset[7])"" onMouseout=""delayhidemenu()"">Build</a></td>"
127 ghuddy 307 
   Else
5102 dpurdie 308 
      Response.write "    <td align=middle noWrap valign=center  width='70'class=mmItemDisable>Release</td>"
127 ghuddy 309 
      Response.write "   <td align=middle>|</td>"
5102 dpurdie 310 
      Response.write "    <td align=middle noWrap valign=center  width='70'class=mmItemDisable>Build</td>"
127 ghuddy 311 
   End If
312 
   Response.write "  </tr>"
313 
   Response.write "</table>"
119 ghuddy 314 
End Sub
315 
 
316 
 
317 
Sub Print_TopLeft_Menu
127 ghuddy 318 
   Dim rsTemp, Query_String
319 
   Dim myProj, myRtag
5071 dpurdie 320 
   Dim HomeSTR, ProjSTR, RtagSTR,ModeSTR
321 
   Dim ActionSTR
127 ghuddy 322 
   myProj = QStrPar("proj_id")
323 
   myRtag = QStrPar("rtag_id")
324 
 
325 
   HomeSTR = "<a class=mmItem href='index.asp'>HOME</a>"
326 
 
327 
   If myRtag <> "" Then
328 
      OraDatabase.Parameters.Add "RTAG_ID", myRtag, ORAPARM_INPUT, ORATYPE_NUMBER
329 
 
330 
      Query_String = _
331 
      " SELECT rel.rtag_id, rel.rtag_name, proj.proj_id, proj.proj_name, rel.official"&_
332 
      " FROM release_tags rel, projects proj"&_
333 
      " WHERE rel.proj_id = proj.proj_id AND rel.rtag_id = :RTAG_ID"
334 
 
335 
      Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
336 
      If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
337 
         ProjSTR = " &gt; <a class=mmItem href='rtree.asp?proj_id="& rsTemp.Fields("proj_id") &"'>"& UCase(rsTemp.Fields("proj_name")) &"</a>"
338 
         RtagSTR = " &gt; <a class=mmItem href='dependencies.asp?rtag_id="& rsTemp.Fields("rtag_id") &"'>"& rsTemp.Fields("rtag_name") &"</a>"
339 
      End If
340 
 
341 
      OraDatabase.Parameters.Remove "RTAG_ID"
342 
 
343 
   ElseIf myProj <> "" Then
344 
 
345 
      OraDatabase.Parameters.Add "PROJ_ID", myProj, ORAPARM_INPUT, ORATYPE_NUMBER
346 
 
347 
      Query_String = _
348 
      " SELECT proj.proj_name, proj.proj_id"&_
349 
      " FROM projects proj"&_
350 
      " WHERE proj.proj_id = :PROJ_ID"
351 
 
352 
      Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
353 
      If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
354 
         ProjSTR = " &gt; <a class=mmItem href='rtree.asp?proj_id="& rsTemp.Fields("proj_id") &"'>"& UCase(rsTemp.Fields("proj_name")) &"</a>"
355 
         RtagSTR = ""
356 
      End If
357 
 
358 
      OraDatabase.Parameters.Remove "PROJ_ID"
359 
 
360 
   End If
361 
 
5071 dpurdie 362 
   '-- Calculate authorisation state
363 
   ActionSTR = ""
364 
   If NOT canActionInProject Then
365 
    ActionSTR = "&nbsp;[Not Authorised]"
366 
    ActionSTR = "<img src='images/i_not_authorised.png' width='10' height='10' border='0' hspace='2' title='Not Authorised to make changes in this project'>"
367 
   End If
127 ghuddy 368 
 
5071 dpurdie 369 
   '-- Append Mode indication
370 
   ModeSTR = ""
127 ghuddy 371 
   If ReleaseMode = enumDB_RELEASE_IN_RESTRICTIVE_MODE Then
5071 dpurdie 372 
      ModeSTR = "&nbsp;[Restrictive Mode]"
127 ghuddy 373 
 
374 
   ElseIf ReleaseMode = enumDB_RELEASE_IN_CCB_MODE Then
5071 dpurdie 375 
      ModeSTR = "&nbsp;[CCB Mode!]"
127 ghuddy 376 
 
377 
   ElseIf ReleaseMode = enumDB_RELEASE_IN_CLOSED_MODE Then
5071 dpurdie 378 
      ModeSTR = "<img src='images/i_locked.gif' width='7' height='10' border='0' hspace='2' >&nbsp;[Closed Mode]"
127 ghuddy 379 
 
5177 dpurdie 380 
   ElseIf ReleaseMode = enumDB_RELEASE_IN_CLOSED_MODE Then
381 
      ModeSTR = "<img src='images/i_locked.gif' width='7' height='10' border='0' hspace='2' >&nbsp;[Closed Mode]"
382 
 
383 
   ElseIf ReleaseMode = enumDB_RELEASE_IN_PRESERVE_MODE Then
384 
      ModeSTR = "<img src='images/i_locked.gif' width='7' height='10' border='0' hspace='2' >&nbsp;[Preserve Mode]"
385 
 
4078 dpurdie 386 
   ElseIf ReleaseMode = enumDB_RELEASE_IN_ARCHIVE_MODE Then
5071 dpurdie 387 
       ModeSTR = "<img src='images/i_archived.gif' width='7' height='10' border='0' hspace='2' >&nbsp;[Archived Mode]"
4078 dpurdie 388 
 
127 ghuddy 389 
   End If
390 
 
5071 dpurdie 391 
   '-- Render Menu --
392 
   Response.write "<table width='100%' border='0' cellspacing='0' cellpadding='0'>"
393 
   Response.write "  <tr>"
394 
   Response.write "    <td width='1%'><img src='images/h_trsp_dot.gif' width='30' height='35'></td>"
395 
   Response.write "    <td nowrap width='100%' class=mmItem>"& HomeSTR & ProjSTR & ActionSTR &  RtagSTR & ModeSTR & "</td>"
396 
   Response.write "  </tr>"
397 
   Response.write "</table>"
127 ghuddy 398 
 
399 
   rsTemp.Close()
400 
   Set rsTemp = nothing
119 ghuddy 401 
End Sub
402 
 
4955 dpurdie 403 
REM Used when displaying package details outside the context of a Release
119 ghuddy 404 
Sub Print_Package_TopLeft_Menu
2365 dpurdie 405 
   Dim PkgNameSTR, PkgVersionSTR, PkgLock
406 
If IsObject(pkgInfoHash) Then
407 
   PkgNameSTR = "<a class=mmItem href='view_by_version.asp?pkg_id="& pkgInfoHash.Item("pkg_id") &"&listby=1'>"& pkgInfoHash.Item("pkg_name")& "</a>"
127 ghuddy 408 
   PkgVersionSTR = " &gt; <a class=mmItem href='#'>"& pkgInfoHash.Item("pkg_version") &"</a>"
2365 dpurdie 409 
   PkgLock = pkgInfoHash.Item("dlocked")
410 
else
411 
    Dim SSpkgID, SSpkgName, SSpkgVersion, SSsrc_path, SSpkgDesc, BBdlocked
412 
    Call Get_Pkg_Short_Info( Request("pv_id"), SSpkgID, SSpkgName, SSpkgVersion, SSsrc_path, SSpkgDesc, BBdlocked )
127 ghuddy 413 
 
2365 dpurdie 414 
   PkgNameSTR = "<a class=mmItem href='view_by_version.asp?pkg_id="& SSpkgID &"&listby=1'>"& SSpkgName& "</a>"
415 
   PkgVersionSTR = " &gt; <a class=mmItem href='#'>"& SSpkgVersion &"</a>"
416 
   PkgLock = BBdlocked
417 
End If
418 
 
127 ghuddy 419 
   Response.write "<table width='100%' border='0' cellspacing='0' cellpadding='0'>"
420 
   Response.write "  <tr>"
421 
   Response.write "    <td width='1%'><img src='images/h_trsp_dot.gif' width='30' height='35'></td>"
2365 dpurdie 422 
   If (PkgLock= "Y") OR (PkgLock = "A") Then
127 ghuddy 423 
       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>"
424 
   Else
425 
      Response.write "    <td nowrap width='100%' class=mmItem>"& PkgNameSTR & PkgVersionSTR &"</td>"
426 
   End If
427 
   Response.write "  </tr>"
428 
   Response.write "</table>"
119 ghuddy 429 
End Sub
430 
 
431 
 
432 
Function Projects_Menu ( NNarrIndex )
127 ghuddy 433 
   Dim rsTemp, Query_String, tempSTR
434 
   tempSTR = ""
435 
   Query_String = _
436 
   " SELECT * FROM projects ORDER BY proj_name ASC"
437 
   Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
438 
   While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
439 
      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
440 
      rsTemp.MoveNext
441 
   WEnd
442 
   Projects_Menu = tempSTR
443 
   rsTemp.Close
444 
   Set rsTemp = nothing
119 ghuddy 445 
End Function
446 
 
447 
 
448 
'Function Get_Proj ( NNrtag_id, NNvtree_id )
127 ghuddy 449 
'   Dim rsTemp, Query_String, tempRtag_id
450 
'   If NNvtree_id = "" Then
451 
'      If NNrtag_id = "" Then
452 
'         tempRtag_id = -1
453 
'      Else
454 
'         tempRtag_id = NNrtag_id
455 
'      End If
456 
'      Query_String = _
457 
'      " SELECT vt.vtree_id, vt.proj_id"&_
458 
'        "   FROM release_tags rel, vtrees vt"&_
459 
'       "   WHERE vt.vtree_id = rel.vtree_id AND rel.rtag_id = "& tempRtag_id
460 
'   Else
461 
'      Query_String = _
462 
'      " SELECT vt.vtree_id, vt.proj_id"&_
463 
'        "   FROM vtrees vt"&_
464 
'       "   WHERE vt.vtree_id = "& NNvtree_id
465 
'   End If
466 
'
467 
'   Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
468 
'
469 
'   If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
470 
'      Get_Proj = (rsTemp.Fields("proj_id"))
471 
'      NNvtree_id = (rsTemp.Fields("vtree_id"))
472 
'   Else
473 
'      Get_Proj = -1
474 
'      NNvtree_id = -1
475 
'   End If
476 
'
477 
'   rsTemp.Close
478 
'   Set rsTemp = nothing
119 ghuddy 479 
'End Function
480 
 
481 
 
482 
 
127 ghuddy 483 
%>