<% '===================================================== ' MENU DEFINITION '===================================================== %> <% '------------ CONSTANTS ----------------------- Const MenuHeaderDefined = 1 Const LMENU_TICK = "" Const LMENU_BLANK = "" '------------ Variable Definition ------------- Dim TABarray1, TABarray2, TABarray3, TABarray4, TABarray5, TABarray5D, TABarray6, TABarray6D Dim ppClick Dim imgDependenciesIcon, imgReleaseNotesIcon, imgPatchesIcon Dim ReleaseMode '-- GLOBAL VARIABLES -------------------------- imgDependenciesIcon = "" imgReleaseNotesIcon = "" imgPatchesIcon = "" ' Used for cancel button history If Request("click") <> "" Then ppClick = Request("click") Else ppClick = 1 End If ReleaseMode = GetReleaseMode( Request("rtag_id") ) '---------------------------------------------- If IsObject(pkgInfoHash) Then If IsNull(pkgInfoHash.Item ("is_patch")) Then If CInt(pkgInfoHash.Item ("base_view_id")) = enumBASE_VIEW_PRODUCTS Then ' Tab for PRODUCTS TABarray1 = Array ( imgDependenciesIcon &"Dependencies@dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"), _ "Runtime@runtime_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"), _ "Processes@process_dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"), _ imgPatchesIcon &"Patches@patches.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"), _ "Documentation@documentation.asp?" & Persists_Query_String( Empty ), _ "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") ) Else ' Tabs for other packages TABarray1 = Array ( imgDependenciesIcon &"Dependencies@dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"), _ "Runtime@runtime_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"), _ "Processes@process_dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"), _ imgPatchesIcon &"Patches@patches.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"), _ "Documentation@documentation.asp?" & Persists_Query_String( Empty ), _ "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 Else ' Tabs for Patches TABarray1 = 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 End If ' Tabs for Import / Export Dependencies TABarray2 = Array ( "JATS style@form_update_jats_dependencies.asp?click="& CInt(ppClick) + 1 &"&pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"), _ "JANT style@form_update_jant_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"), _ "JANT style@form_export_jant_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 window TABarray5 = 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 ) ) TABarray5D = Array ( imgDependenciesIcon &"Dependencies@#", _ "Runtime@#", _ "Patches@#", _ imgReleaseNotesIcon &"Release Notes@#", _ "Documentation@#", _ "Action Log@#" ) ' Tabs for Unit Test window 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"), _ "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@#") '---------------------------------------------- %> <% Sub Print_TopRight_Menu_ROW1 Response.write "" Response.write " " If objAccessControl.UserLogedIn Then Response.write " " Response.write " " End If Response.write " " Response.write " " Response.write " " Response.write " " Response.write " " Response.write " " Response.write " " Response.write " " Response.write " " Response.write " " Response.write " " If objAccessControl.UserLogedIn Then Response.write " " Response.write " " End If Response.write " " Response.write " " Response.write " " Response.write " " Response.write " " Response.write " " Response.write " " Response.write " " Response.write " " Response.write " " Response.write "
"& objAccessControl.FullName &"  |My Account|Reports|Status|Admin|Help
" End Sub Sub Print_TopRight_Menu_ROW2 Response.write "" Response.write " " Response.write " " Response.write " " Response.write " " Response.write " " Response.write " " Response.write " " Response.write " " Response.write " " Response.write " " If QStrPar("rtag_id") <> "" Then Response.write " " Response.write " " Response.write " " Else Response.write " " Response.write " " Response.write " " End If Response.write " " Response.write "
Projects|Release|BuildRelease|Build
" End Sub Sub Print_TopLeft_Menu Dim rsTemp, Query_String Dim myProj, myRtag Dim HomeSTR, ProjSTR, RtagSTR myProj = QStrPar("proj_id") myRtag = QStrPar("rtag_id") HomeSTR = "HOME" If myRtag <> "" Then OraDatabase.Parameters.Add "RTAG_ID", myRtag, ORAPARM_INPUT, ORATYPE_NUMBER Query_String = _ " SELECT rel.rtag_id, rel.rtag_name, proj.proj_id, proj.proj_name, rel.official"&_ " 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)) Then ProjSTR = " > "& UCase(rsTemp.Fields("proj_name")) &"" RtagSTR = " > "& rsTemp.Fields("rtag_name") &"" End If OraDatabase.Parameters.Remove "RTAG_ID" ElseIf myProj <> "" Then OraDatabase.Parameters.Add "PROJ_ID", myProj, ORAPARM_INPUT, ORATYPE_NUMBER Query_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)) Then ProjSTR = " > "& UCase(rsTemp.Fields("proj_name")) &"" RtagSTR = "" End If OraDatabase.Parameters.Remove "PROJ_ID" End If '-- Render Menu -- Response.write "" Response.write " " Response.write " " If ReleaseMode = enumDB_RELEASE_IN_RESTRICTIVE_MODE Then Response.write " " ElseIf ReleaseMode = enumDB_RELEASE_IN_CCB_MODE Then Response.write " " ElseIf ReleaseMode = enumDB_RELEASE_IN_CLOSED_MODE Then Response.write " " Else Response.write " " End If Response.write " " Response.write "
"& HomeSTR & ProjSTR & RtagSTR &" [Restrictive Mode]"& HomeSTR & ProjSTR & RtagSTR &" [CCB Mode!]"& HomeSTR & ProjSTR & RtagSTR &" [Closed Mode]"& HomeSTR & ProjSTR & RtagSTR &"
" rsTemp.Close() Set rsTemp = nothing End Sub Sub Print_Package_TopLeft_Menu Dim PkgNameSTR, PkgVersionSTR, PkgLock If IsObject(pkgInfoHash) Then PkgNameSTR = ""& pkgInfoHash.Item("pkg_name")& "" PkgVersionSTR = " > "& pkgInfoHash.Item("pkg_version") &"" PkgLock = pkgInfoHash.Item("dlocked") else Dim SSpkgID, SSpkgName, SSpkgVersion, SSsrc_path, SSpkgDesc, BBdlocked Call Get_Pkg_Short_Info( Request("pv_id"), SSpkgID, SSpkgName, SSpkgVersion, SSsrc_path, SSpkgDesc, BBdlocked ) PkgNameSTR = ""& SSpkgName& "" PkgVersionSTR = " > "& SSpkgVersion &"" PkgLock = BBdlocked End If Response.write "" Response.write " " Response.write " " If (PkgLock= "Y") OR (PkgLock = "A") Then Response.write " " Else Response.write " " End If Response.write " " Response.write "
"& PkgNameSTR & PkgVersionSTR &""& PkgNameSTR & PkgVersionSTR &"
" End Sub Function Projects_Menu ( NNarrIndex ) Dim rsTemp, Query_String, tempSTR tempSTR = "" 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 &"]+='
"& Replace(rsTemp.Fields("proj_name"), " ", " ") &"
'"& VBNewLine rsTemp.MoveNext WEnd Projects_Menu = tempSTR rsTemp.Close Set rsTemp = nothing End 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 %>