Rev 5899 | Rev 5983 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed
<%'=====================================================' MENU DEFINITION'=====================================================%><%'------------ CONSTANTS -----------------------Const MenuHeaderDefined = 1Const LMENU_TICK = "<img src=""images/i_boxtick_on.gif"" width=""13"" height=""13"" border=""0"" vspace=""2"" align=""absmiddle"">"Const LMENU_BLANK = "<img src=""images/spacer.gif"" width=""13"" height=""13"" border=""0"" vspace=""2"" align=""absmiddle"">"'------------ Variable Definition -------------Dim TABarray1, TABarray2, TABarray3, TABarray4, TABarray5, TABarray5D, TABarray6, TABarray6DDim ppClickDim imgDependenciesIcon, imgReleaseNotesIcon, imgPatchesIconDim ReleaseMode'-- GLOBAL VARIABLES --------------------------imgDependenciesIcon = "<img src='images/i_dependency.gif' border='0' align='absmiddle' hspace='3'>"imgReleaseNotesIcon = "<img src='images/i_release_note.gif' border='0' align='absmiddle' hspace='3'>"imgPatchesIcon = "<img src='images/i_patch_small.gif' border='0' align='absmiddle' hspace='3'>"' Used for cancel button historyIf Request("click") <> "" ThenppClick = Request("click")ElseppClick = 1End IfReleaseMode = GetReleaseMode( Request("rtag_id") )'----------------------------------------------If IsObject(pkgInfoHash) ThenIf IsNull(pkgInfoHash.Item ("is_patch")) ThenIf CInt(pkgInfoHash.Item ("base_view_id")) = enumBASE_VIEW_PRODUCTS OR CInt(pkgInfoHash.Item ("base_view_id")) = enumAUTOPRODUCTS_BASE_VIEW_ID Then' Tab for PRODUCTSTABarray1 = Array ( imgDependenciesIcon &"Dependencies@dependencies.asp?"& Persists_Query_String( Empty ), _"Runtime@runtime_dependencies.asp?"& Persists_Query_String( Empty ), _"Used by@used_by.asp?"& Persists_Query_String( Empty ), _"Processes@process_dependencies.asp?"& Persists_Query_String( Empty ), _imgPatchesIcon &"Patches@patches.asp?"& Persists_Query_String( Empty ), _imgReleaseNotesIcon &"Release Notes@fixed_issues.asp?"& Persists_Query_String( Empty ), _"Documentation@documentation.asp?" & Persists_Query_String( Empty ), _"Files and Folders@files_and_folders.asp?" & Persists_Query_String( Empty ), _"Action Log@action_log.asp?"& Persists_Query_String( Empty ), _"Unit Test@unit_test_log.asp?"& Persists_Query_String( Empty ) )Else' Tabs for other packagesTABarray1 = Array ( imgDependenciesIcon &"Dependencies@dependencies.asp?"& Persists_Query_String( Empty ), _"Runtime@runtime_dependencies.asp?"& Persists_Query_String( Empty ), _"Used by@used_by.asp?"& Persists_Query_String( Empty ), _"Processes@process_dependencies.asp?"& Persists_Query_String( Empty ), _imgPatchesIcon &"Patches@patches.asp?"& Persists_Query_String( Empty ), _imgReleaseNotesIcon &"Release Notes@fixed_issues.asp?"& Persists_Query_String( Empty ), _"Documentation@documentation.asp?" & Persists_Query_String( Empty ), _"Files and Folders@files_and_folders.asp?" & Persists_Query_String( Empty ), _"Action Log@action_log.asp?"& Persists_Query_String( Empty ), _"Unit Test@unit_test_log.asp?"& Persists_Query_String( Empty ) )End IfElse' Tabs for PatchesTABarray1 = Array ( imgDependenciesIcon &"Dependencies@dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"), _"Used by@used_by.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"), _imgReleaseNotesIcon &"Release Notes@fixed_issues.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"), _"Files and Folders@files_and_folders.asp?" & Persists_Query_String( Empty ), _"Action Log@action_log.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"))End If' Add a debug tab to show internal dataIf (IsEmpty(Application("LiveSystem"))) ThenReDim Preserve TABarray1(UBound(TABarray1) + 1)TABarray1(UBound(TABarray1)) = "Debug@pvdata.asp?"& Persists_Query_String( Empty )End IfEnd If' Tabs for Import / Export DependenciesTABarray2 = Array ( "JATS style@form_update_jats_dependencies.asp?click="& CInt(ppClick) + 1 &"&pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"), _"ANT-using style@form_update_ant_dependencies.asp?click="& CInt(ppClick) + 1 &"&pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"))TABarray3 = Array ( "JATS style@form_export_jats_dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"), _"ClearCase style@form_export_clearcase_dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"), _"ANT-using style@form_export_ant_dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"))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") , _"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"), _"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") )' Tabs for History windowTABarray5 = Array ( imgDependenciesIcon &"Dependencies@_wform_versions_history_dependencies.asp?"& Persists_Query_String( Empty ), _"Runtime@_wform_versions_history_runtime.asp?"& Persists_Query_String( Empty ), _"Used by@_wform_versions_history_used_by.asp?"& Persists_Query_String( Empty ), _"Patches@_wform_versions_history_patches.asp?" & Persists_Query_String( Empty ), _imgReleaseNotesIcon &"Release Notes@_wform_versions_history_release_notes.asp?" & Persists_Query_String( Empty ), _"Documentation@_wform_versions_history_documentation.asp?"& Persists_Query_String( Empty ), _"Files and Folders@_wform_versions_history_files_and_folders.asp?" & Persists_Query_String( Empty ), _"Action Log@_wform_versions_history_action_log.asp?"& Persists_Query_String( Empty ) ,_"Unit Tests@_wform_versions_history_unit_test_log.asp?"& Persists_Query_String( Empty ) )TABarray5D = Array ( imgDependenciesIcon &"Dependencies@#", _"Runtime@#", _"Patches@#", _imgReleaseNotesIcon &"Release Notes@#", _"Documentation@#", _"Action Log@#",_"Unit Tests@#" )' Tabs for Unit Test windowTABarray6 = Array ( "Unit Test Details@_wform_update_unit_test.asp?rtag_id="& Request("rtag_id") &"&pv_id="& Request("pv_id") &"&test_id="& Request("test_id"), _"Acceptance@_wform_update_unit_test_acceptance.asp?rtag_id="& Request("rtag_id") &"&pv_id="& Request("pv_id") &"&test_id="& Request("test_id"))TABarray6D = Array ( "Unit Test Details@#", _"Acceptance@#")'----------------------------------------------%><script language="JavaScript1.2">var linkset=new Array()// ---- Popup menu definition ----linkset[0]=''<%=Projects_Menu ( 0 )%>linkset[1] = ''linkset[1]+='<div class="menuitems"><a target="_blank" href="<%=ACCESS_MANAGER_URL%>">Access Manager</a></div>'linkset[1]+='<div class="menuitems"><a target="_blank" href="<%=DEPLOYMENT_MANAGER_URL%>">Deployment Manager</a></div>'//linkset[1]+='<div class="menuitems"><a target="_blank" href="<%=PRODUCTION_MANAGER_URL%>">Production Manager</a></div>'linkset[1]+='<div class="menuitems"><a target="_blank" href="<%=RELEASE_MANAGER_URL%>">Release Manager</a></div>'<%'-------------------------------------------------' Function: genReleaseMode' Description: Generate one line of the Release State dropdown menuFunction genReleaseMode(mode, emode, code, name, title)genReleaseMode = ""Dim href: href = ""Dim mclass : mclass = "menuitems"If mode = emode ThengenReleaseMode = genReleaseMode & LMENU_TICKmclass="menuitemDisable"ElseIf canActionInProject() ThenIf ReleaseModeAccessCheck(mode, emode) Thenhref = "<a href=""_change_release_mode.asp?mode_code=" & code & "&"& objPMod.ComposeURL() &""">"genReleaseMode = genReleaseMode & hrefElsemclass="menuitemDisable"End IfgenReleaseMode = genReleaseMode & LMENU_BLANKEnd IfEnd IfIf genReleaseMode <> "" ThengenReleaseMode = genReleaseMode & "<span title=""" & title & """> " & name &"</span>"If href <> "" Then genReleaseMode = genReleaseMode & "</a>"genReleaseMode = "<div class="""&mclass&""">" & genReleaseMode & "</div>"End IfgenReleaseMode = "'" & genReleaseMode & "'"End Function%>linkset[2]=''linkset[2]+=<%=genReleaseMode(ReleaseMode,enumDB_RELEASE_IN_OPEN_MODE, 1, "Open Mode" , "Packages can be released freely.")%>linkset[2]+=<%=genReleaseMode(ReleaseMode,enumDB_RELEASE_IN_RESTRICTIVE_MODE, 2, "Restrictive Mode" , "Packages can only be released on approval.")%>linkset[2]+=<%=genReleaseMode(ReleaseMode,enumDB_RELEASE_IN_CCB_MODE, 4, "CCB Mode" , "Packages can only be released on CCB approval.")%>linkset[2]+=<%=genReleaseMode(ReleaseMode,enumDB_RELEASE_IN_CLOSED_MODE, 3, "Closed Mode" , "No changes allowed.")%>linkset[2]+=<%=genReleaseMode(ReleaseMode,enumDB_RELEASE_IN_PRESERVE_MODE, 6, "Preserve Mode" , "No change allowed. Archived, but artifacts retained in dpkg_archive")%>linkset[2]+=<%=genReleaseMode(ReleaseMode,enumDB_RELEASE_IN_ARCHIVE_MODE, 5, "Archive Mode" , "No change allowed. Packages may be purged from dpkg_archive.")%>linkset[2]+='<hr>'<%If (ReleaseMode = enumDB_RELEASE_IN_OPEN_MODE) AND canShowControlInProject ("CloneReleaseContents") Then%>linkset[2]+='<div class="menuitems"><a href="javascript:;" onClick="MM_openVixIFrame(\'_wform_import_release.asp?ToRtag_id=<%=parRtag_id%>&<%=objPMod.ComposeURL()%>\',\'Import Release Contents\')">Import Release Contents</a></div>'<%Else%>linkset[2]+='<div class="menuitemDisable">Import Release Contents</div>'<%End If%><%If (ReleaseMode = enumDB_RELEASE_IN_OPEN_MODE) AND canShowControlInProject ("ImportDependencies") Then%>linkset[2]+='<div class="menuitems"><a href="javascript:;" onClick="MM_openVixIFrame(\'_wform_import_dependency.asp?<%=objPMod.ComposeURL()%>\',\'Import Package Dependencies\')">Import Dependencies</a></div>'<%Else%>linkset[2]+='<div class="menuitemDisable">Import Dependencies</div>'<%End If%><%If (ReleaseMode = enumDB_RELEASE_IN_OPEN_MODE) AND canShowControlInProject ("ImportDependencies") Then%>linkset[2]+='<div class="menuitems"><a href="javascript:;" onClick="MM_openVixIFrame(\'_wform_import_daemonconfig.asp?<%=objPMod.ComposeURL()%>\',\'Import Daemon Configuration\')">Import Daemon Config</a></div>'// linkset[2]+='<div class="menuitems"><a href="import_daemonconfig.asp?rtag_id=<%=parRtag_id%>">Import Daemon Config</a></div>'<%Else%>linkset[2]+='<div class="menuitemDisable">Import Daemon Config</div>'<%End If%><%If canActionControlInProject ("CreateSdk") Then%>linkset[2]+='<hr>'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 SDK</a></div>'<%End If%>linkset[2]+='<hr>'linkset[2]+='<div class="menuitems"><a href="form_edit_release.asp?rtag_id=<%=parRtag_id%>">Release Properties</a></div>'linkset[2]+='<div class="menuitems"><a href="diff.asp?rtagA=<%=parRtag_id%>&rtagB=<%=parRtag_id%>" >Merge Manager</a></div>'linkset[2]+='<div class="menuitems"><a href="form_view_release_licencing.asp?rtag_id=<%=parRtag_id%>">View Licencing</a></div>'<%If canActionControlInProject ("EditPackageLicence") OR canActionControl("MSMaintainer") Then%>linkset[2]+='<div class="menuitems"><a href="form_edit_release_licencing.asp?rtag_id=<%=parRtag_id%>">Edit Licencing</a></div>'<%Else%>linkset[2]+='<div class="menuitemDisable">Edit Licencing</div>'<%End If%>linkset[2]+='<div class="menuitems"><a href="javascript:;" onClick="MM_openVixIFrame(\'wAddDaemonInstruction.asp?ToRtag_id=<%=parRtag_id%>&<%=objPMod.ComposeURL()%>\',\'Add Daemon Instruction\')">Add Daemon Instruction</a></div>'linkset[2]+='<hr>'linkset[2]+='<div class="menuitems"><a href="build_order.asp?rtag_id=<%=parRtag_id%>">Build Order</a></div>'linkset[2]+='<div class="menuitems"><a href="dependencies.asp?rtag_id=<%=parRtag_id%>&RebuildIcons=1">Rebuild Status Icons</a></div>'linkset[2]+='<div class="menuitems"><a href="unused_packages.asp?rtag_id=<%=parRtag_id%>">Unused Packages</a></div>'linkset[6]=''linkset[6]+='<div class="menuitems"><a href="admin_build_test_page.asp">Release Manager Tests</a></div>'<%If canActionControl("MSMaintainer") Then%>linkset[6]+='<div class="menuitems"><a href="admin_session_details.asp">Session Details</a></div>'<%End If%><%If canActionControl("ConfigureBuildService") Then%>linkset[6]+='<hr>'linkset[6]+='<div class="menuitems"><a href="admin_gbe_machtype.asp">GBE MachType</a></div>'linkset[6]+='<div class="menuitems"><a href="admin_gbe_machclass.asp">GBE MachClass</a></div>'linkset[6]+='<div class="menuitems"><a href="admin_build_machine.asp">Build Machine</a></div>'linkset[6]+='<div class="menuitems"><a href="admin_gbe_buildstandard.asp">Build Standards</a></div>'<%End If%><%If canActionControl("ConfigureLicenses") Then%>linkset[6]+='<div class="menuitems"><a href="admin_licences.asp">Licences</a></div>'<%End If%><%If canActionControl("ConfigureVersionControl") Then%>linkset[6]+='<div class="menuitems"><a href="admin_vcs_types.asp">Version Control Systems</a></div>'<%End If%><%If (canActionControl("CreateNewProject")) Then%>linkset[6]+='<hr>'linkset[6]+='<div class="menuitems"><a href="javascript:;" onClick="MM_openVixIFrame(\'_wform_new_project.asp\',\'Create a New Project\')">New Project</a></div>'linkset[6]+='<div class="menuitems"><a href="admin_projects.asp">Project Info</a></div>'linkset[6]+='<div class="menuitems"><a href="admin_project_suffix.asp">Project Suffix</a></div>'<%End If%><%If objAccessControl.UserLogedIn Then%>linkset[6]+='<hr>'linkset[6]+='<div class="menuitems"><a href="admin_package_properties.asp">Package Properties</a></div>'<%End If%>linkset[6]+='<hr>'linkset[6]+='<div class="menuitems"><a href="project_log.asp">Project Log</a></div>'linkset[6]+='<div class="menuitems"><a href="DanglingVersions.asp">Dangling Packages</a></div>'linkset[5]=''<%If Not objAccessControl.UserLogedIn Then%>linkset[5]+='<div class="menuitems"><a href="Login.asp?rfile=<%=scriptName & QSTR_FullQuery%>">Login</a></div>'linkset[5]+='<div class="menuitemDisable">Logout</div>'<%Else%>linkset[5]+='<div class="menuitems"><a href="Login.asp?rfile=<%=scriptName & QSTR_FullQuery%>">Login as ...</a></div>'linkset[5]+='<div class="menuitems"><a href="_Logout.asp">Logout</a></div>'<%End If%>linkset[5]+='<div class="menuitems"><a href="members_pkgs_followed.asp">Notifications</a></div>'linkset[5]+='<div class="menuitems"><a href="members_personal_view.asp">Views</a></div>'linkset[5]+='<div class="menuitems"><a href="members_my_details.asp">My Details</a></div>'linkset[5]+='<div class="menuitems"><a href="members_my_roles.asp">My Roles</a></div>'linkset[7]=''linkset[7]+='<div class="menuitems"><a href="release_config.asp?rtag_id=<%=parRtag_id%>">Configuration</a></div>'linkset[7]+='<div class="menuitems"><a href="build_status.asp?rtag_id=<%=parRtag_id%>">Status</a></div>'linkset[7]+='<div class="menuitems"><a href="build_plan.asp?rtag_id=<%=parRtag_id%>">Plan</a></div>'linkset[7]+='<div class="menuitems"><a href="build_release_log.asp?rtag_id=<%=parRtag_id%>">Build Log</a></div>'linkset[8]=''linkset[8]+='<div class="menuitems"><a href="admin_build_service.asp">Build Service</a></div>'linkset[8]+='<div class="menuitems"><a href="admin_build_status.asp">Daemon Status</a></div>'linkset[8]+='<div class="menuitems"><a href="build_release_log.asp">Daemon Build Log</a></div>'linkset[8]+='<div class="menuitems"><a href="admin_daemon_instructions.asp">Daemon Instructions</a></div>'linkset[9]=''linkset[9]+='<div class="menuitems"><a href="Wikiasp/wiki.asp" target="_blank">Release Notes</a></div>'<%If (IsEmpty(Application("LiveSystem"))) Then%>linkset[9]+='<div class="menuitems"><a href="Wikiasp/wiki.asp?db=ImplementationNotes" target="_blank">Development Notes</a></div>'<%End If%>linkset[9]+='<div class="menuitems"><a href="help/index.asp" target="_blank">Internal Help(old)</a></div>'linkset[9]+='<div class="menuitems"><a href="_about.asp" target="_blank">About</a></div>'</script><%Sub Print_TopRight_Menu_ROW1Response.write "<table bgcolor='#ffffff' border='0' cellpadding='0' cellspacing='0' height='26'>"Response.write " <tr> "If objAccessControl.UserLogedIn ThenResponse.write " <td class='mmEntry'><a class=mmItem href='' onMouseover=""showmenu(event,linkset[5])"" onMouseout=""delayhidemenu()""><img src='images/i_user.gif' border='0' hspace='3'>"& objAccessControl.FullName &"</a> </td>"ElseResponse.write " <td class='mmEntry'><a class=mmItem href='Login.asp?rfile=" & scriptName & QSTR_FullQuery & "' onMouseover=""showmenu(event,linkset[5])"" onMouseout=""delayhidemenu()"">Login</a> </td>"End IfResponse.write " <td align=middle>|</td>"Response.write " <td class='mmEntry'><a class=mmItem href='' onMouseover=""showmenu(event,linkset[1])"" onMouseout=""delayhidemenu()"">Suite</a></td>"Response.write " <td align=middle>|</td>"If InStr(1,ScriptName,"sdk_", 1) <> 0 ThenResponse.write " <td class='mmEntry'><a class=mmItem href='index.asp'>Releases</a></td>"Response.write " <td align=middle>|</td>"ElseResponse.write " <td class='mmEntry'><a class=mmItem href='sdk_main_page.asp#url=sdk_names_body.asp'>SDK</a></td>"Response.write " <td align=middle>|</td>"End IfResponse.write " <td class='mmEntry'><a class=mmItem href='index.asp' onMouseover=""showmenu(event,linkset[0])"" onMouseout=""delayhidemenu()"">Projects</a></td>"Response.write " <td align=middle>|</td>"Response.write " <td class='mmEntry'><a class=mmItem href='reports.asp'>Reports</a></td>"Response.write " <td align=middle>|</td>"Response.write " <td class='mmEntry'><a class=mmItem href='' onMouseover=""showmenu(event,linkset[8])"" onMouseout=""delayhidemenu()"">Build</a></td>"Response.write " <td align=middle>|</td>"Response.write " <td class='mmEntry'><a class=mmItem href='' onMouseover=""showmenu(event,linkset[6])"" onMouseout=""delayhidemenu()"">Admin</a></td>"Response.write " <td align=middle>|</td>"Response.write " <td class='mmEntry'><a class=mmItem href='' onMouseover=""showmenu(event,linkset[9])"" onMouseout=""delayhidemenu()"">Help</a></td>"Response.write " </tr>"Response.write "</table>"End SubSub Print_TopRight_Menu_ROW2Response.write "<table bgcolor='#ffffff' border='0' cellpadding='0' cellspacing='0' height='35'>"Response.write " <tr> "If QStrPar("rtag_id") <> "" ThenDim lxrContent : lxrContent = RenderLxrStateString(releaseInfoHash("rtag_id"),releaseInfoHash("lxr"),releaseInfoHash("lxrserver"), releaseInfoHash("official")," LXR")If lxrContent <> "" ThenResponse.write " <td class='mmEntry'>"& lxrContent &"</td>"Response.write " <td align=middle>|</td>"End IfResponse.write " <td class='mmEntry'><a class=mmItem href='#' onMouseover=""showmenu(event,linkset[2])"" onMouseout=""delayhidemenu()"">Release</a></td>"Response.write " <td align=middle>|</td>"Response.write " <td class='mmEntry'><a class=mmItem href='#' onMouseover=""showmenu(event,linkset[7])"" onMouseout=""delayhidemenu()"">Build</a></td>"ElseResponse.write " <td class='mmEntry mmItemDisable'>Release</td>"Response.write " <td align=middle>|</td>"Response.write " <td class='mmEntry mmItemDisable'>Build</td>"End IfResponse.write " </tr>"Response.write "</table>"End SubSub Print_TopLeft_MenuDim rsTemp, Query_StringDim myProj, myRtagDim HomeSTR, ProjSTR, RtagSTR,ModeSTRDim ActionSTRmyProj = QStrPar("proj_id")myRtag = QStrPar("rtag_id")HomeSTR = "<a class=mmItem href='index.asp'>HOME</a>"If myRtag <> "" ThenOraDatabase.Parameters.Add "RTAG_ID", myRtag, ORAPARM_INPUT, ORATYPE_NUMBERQuery_String = _" SELECT rel.rtag_id, rel.rtag_name, proj.proj_id, proj.proj_name"&_" FROM release_tags rel, projects proj"&_" WHERE rel.proj_id = proj.proj_id AND rel.rtag_id = :RTAG_ID"Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) ThenProjSTR = " > <a class=mmItem href='rtree.asp?proj_id="& rsTemp.Fields("proj_id") &"'>"& UCase(rsTemp.Fields("proj_name")) &"</a>"RtagSTR = " > <a class=mmItem href='dependencies.asp?rtag_id="& rsTemp.Fields("rtag_id") &"'>"& rsTemp.Fields("rtag_name") &"</a>"End IfOraDatabase.Parameters.Remove "RTAG_ID"ElseIf myProj <> "" ThenOraDatabase.Parameters.Add "PROJ_ID", myProj, ORAPARM_INPUT, ORATYPE_NUMBERQuery_String = _" SELECT proj.proj_name, proj.proj_id"&_" FROM projects proj"&_" WHERE proj.proj_id = :PROJ_ID"Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) ThenProjSTR = " > <a class=mmItem href='rtree.asp?proj_id="& rsTemp.Fields("proj_id") &"'>"& UCase(rsTemp.Fields("proj_name")) &"</a>"RtagSTR = ""End IfOraDatabase.Parameters.Remove "PROJ_ID"End If'-- Calculate authorisation stateActionSTR = ""If NOT canActionInProject ThenActionSTR = " [Not Authorised]"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'>"End If'-- Append Mode indicationModeSTR = ""If ReleaseMode = enumDB_RELEASE_IN_RESTRICTIVE_MODE ThenModeSTR = " [Restrictive Mode]"ElseIf ReleaseMode = enumDB_RELEASE_IN_CCB_MODE ThenModeSTR = " [CCB Mode!]"ElseIf ReleaseMode = enumDB_RELEASE_IN_CLOSED_MODE ThenModeSTR = "<img src='images/i_locked.gif' width='7' height='10' border='0' hspace='2' > [Closed Mode]"ElseIf ReleaseMode = enumDB_RELEASE_IN_CLOSED_MODE ThenModeSTR = "<img src='images/i_locked.gif' width='7' height='10' border='0' hspace='2' > [Closed Mode]"ElseIf ReleaseMode = enumDB_RELEASE_IN_PRESERVE_MODE ThenModeSTR = "<img src='images/i_locked.gif' width='7' height='10' border='0' hspace='2' > [Preserve Mode]"ElseIf ReleaseMode = enumDB_RELEASE_IN_ARCHIVE_MODE ThenModeSTR = "<img src='images/i_archived.gif' width='7' height='10' border='0' hspace='2' > [Archived Mode]"End If'-- Render Menu --Response.write "<table width='100%' border='0' cellspacing='0' cellpadding='0'>"Response.write " <tr>"Response.write " <td width='1%'><img src='images/h_trsp_dot.gif' width='30' height='35'></td>"Response.write " <td nowrap width='100%' class=mmItem>"& HomeSTR & ProjSTR & ActionSTR & RtagSTR & ModeSTR & "</td>"Response.write " </tr>"Response.write "</table>"rsTemp.Close()Set rsTemp = nothingEnd SubREM Used when displaying package details outside the context of a ReleaseSub Print_Package_TopLeft_MenuDim PkgNameSTR, PkgVersionSTR, PkgLockIf IsObject(pkgInfoHash) ThenPkgNameSTR = "<a class=mmItem href='view_by_version.asp?pkg_id="& pkgInfoHash.Item("pkg_id") &"&listby=1'>"& pkgInfoHash.Item("pkg_name")& "</a>"PkgVersionSTR = " > <a class=mmItem href='#'>"& pkgInfoHash.Item("pkg_version") &"</a>"PkgLock = pkgInfoHash.Item("dlocked")elseDim SSpkgID, SSpkgName, SSpkgVersion, SSsrc_path, SSpkgDesc, BBdlockedCall Get_Pkg_Short_Info( Request("pv_id"), SSpkgID, SSpkgName, SSpkgVersion, SSsrc_path, SSpkgDesc, BBdlocked )PkgNameSTR = "<a class=mmItem href='view_by_version.asp?pkg_id="& SSpkgID &"&listby=1'>"& SSpkgName& "</a>"PkgVersionSTR = " > <a class=mmItem href='#'>"& SSpkgVersion &"</a>"PkgLock = BBdlockedEnd IfResponse.write "<table width='100%' border='0' cellspacing='0' cellpadding='0'>"Response.write " <tr>"Response.write " <td width='1%'><img src='images/h_trsp_dot.gif' width='30' height='35'></td>"If (PkgLock= "Y") OR (PkgLock = "A") ThenResponse.write " <td nowrap width='100%' class=mmItem>"& PkgNameSTR & PkgVersionSTR &"<img src='images/i_locked.gif' width='7' height='10' border='0' hspace='2' ></td>"ElseResponse.write " <td nowrap width='100%' class=mmItem>"& PkgNameSTR & PkgVersionSTR &"</td>"End IfResponse.write " </tr>"Response.write "</table>"End SubFunction Projects_Menu ( NNarrIndex )Dim rsTemp, Query_String, tempSTRtempSTR = ""Query_String = _" SELECT * FROM projects ORDER BY proj_name ASC"Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))tempSTR = tempSTR & "linkset["& NNarrIndex &"]+='<div class=""menuitems""><a href=""rtree.asp?proj_id="& rsTemp.Fields("proj_id") &""">"& Replace(rsTemp.Fields("proj_name"), " ", " ") &"</a></div>'"& VBNewLinersTemp.MoveNextWEndProjects_Menu = tempSTRrsTemp.CloseSet rsTemp = nothingEnd Function'Function Get_Proj ( NNrtag_id, NNvtree_id )' Dim rsTemp, Query_String, tempRtag_id' If NNvtree_id = "" Then' If NNrtag_id = "" Then' tempRtag_id = -1' Else' tempRtag_id = NNrtag_id' End If' Query_String = _' " SELECT vt.vtree_id, vt.proj_id"&_' " FROM release_tags rel, vtrees vt"&_' " WHERE vt.vtree_id = rel.vtree_id AND rel.rtag_id = "& tempRtag_id' Else' Query_String = _' " SELECT vt.vtree_id, vt.proj_id"&_' " FROM vtrees vt"&_' " WHERE vt.vtree_id = "& NNvtree_id' End If'' Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))'' If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then' Get_Proj = (rsTemp.Fields("proj_id"))' NNvtree_id = (rsTemp.Fields("vtree_id"))' Else' Get_Proj = -1' NNvtree_id = -1' End If'' rsTemp.Close' Set rsTemp = nothing'End Function%>