<% '===================================================== ' MENU DEFINITION '===================================================== %> <% '------------ CONSTANTS ----------------------- Const MenuHeaderDefined = 1 Const LMENU_TICK = "" Const LMENU_BLANK = "" '------------ Variable Definition ------------- Dim TABarray1, TABarray2, TABarray3, TABarray4, TABarray5, TABarray5D, TABarray6, TABarray6D Dim imgDependenciesIcon, imgReleaseNotesIcon, imgPatchesIcon, imgUsedByIcon Dim ReleaseMode, isaSnapshot '-- GLOBAL VARIABLES -------------------------- imgDependenciesIcon = "" imgUsedByIcon = "" imgReleaseNotesIcon = "" imgPatchesIcon = "" ReleaseMode = GetReleaseMode( Request("rtag_id") ) isaSnapshot = (ReleaseMode = "S") ' TABarray* structure ' Array of Arrays of: ' [0] - Image (Optional) ' [1] - Text ' [2] - URL ' '---------------------------------------------- If IsObject(pkgInfoHash) Then If IsNull(pkgInfoHash.Item ("is_patch")) Then Dim TabArray, OptionArray, canDebug TabArray = Array() OptionArray = Array() canDebug = IsEmpty(Application("LiveSystem")) OR canActionControl("MSMaintainer") Sub GenerateOptionList(sSelected) %> Other Opts <% Dim el For each el in OptionArray Dim isSelected : isSelected = "" If el(0) = sSelected Then isSelected = " selected " Response.Write ""&el(0)&"" Next %> <% End Sub ' Add a single entry to the Tab Array as well as the Option Array Sub GenTabEntry(bTab, bOpt, sIcon,sText,sQuery) If bTab Then ReDim Preserve TabArray(UBound(TabArray) + 1) TabArray(UBound(TabArray)) = Array(sIcon, sText, sQuery) End If If bOpt Then ReDim Preserve OptionArray(UBound(OptionArray) + 1) OptionArray(UBound(OptionArray)) = Array(sText, sQuery) End If End Sub ' Tabs for Packages (not Patches) 'Call GenTabEntry(TRUE, FALSE, "", "SelectList", "GenerateOptionList") Call GenTabEntry(TRUE, TRUE, imgDependenciesIcon ,"Dependencies", "dependencies.asp?"& Persists_Query_String( Empty )) Call GenTabEntry(TRUE, TRUE, imgDependenciesIcon ,"Dependencies (All)","dependencies_all.asp?"& Persists_Query_String( Empty )) Call GenTabEntry(TRUE, TRUE, imgUsedByIcon, "Used by", "used_by.asp?"& Persists_Query_String( Empty )) Call GenTabEntry(TRUE, TRUE, imgUsedByIcon, "Used by (All)", "used_by_all.asp?"& Persists_Query_String( Empty )) Call GenTabEntry(TRUE, TRUE,"", "Runtime", "runtime_dependencies.asp?"& Persists_Query_String( Empty )) Call GenTabEntry(TRUE, TRUE,"", "Processes", "process_dependencies.asp?"& Persists_Query_String( Empty )) Call GenTabEntry(TRUE, TRUE, imgPatchesIcon, "Patches", "patches.asp?"& Persists_Query_String( Empty )) Call GenTabEntry(TRUE, TRUE, imgReleaseNotesIcon, "Release Notes", "fixed_issues.asp?"& Persists_Query_String( Empty )) Call GenTabEntry(TRUE, TRUE, "", "Documentation", "documentation.asp?" & Persists_Query_String( Empty )) Call GenTabEntry(TRUE, TRUE, "", "Files and Folders","files_and_folders.asp?" & Persists_Query_String( Empty )) Call GenTabEntry(TRUE, TRUE, "", "Action Log", "action_log.asp?"& Persists_Query_String( Empty )) Call GenTabEntry(TRUE, TRUE, "", "Unit Test", "unit_test_log.asp?"& Persists_Query_String( Empty )) Call GenTabEntry(TRUE, TRUE, "", "Notifications", "notifications.asp?"& Persists_Query_String( Empty )) Call GenTabEntry(canDebug, False, "", "Debug", "pvdata.asp?"& Persists_Query_String( Empty )) TABarray1 = TabArray Else ' Tabs for Patches TABarray1 = Array ( Array( imgDependenciesIcon, "Dependencies", "dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id")), _ Array( imgUsedByIcon, "Used by", "used_by.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id")), _ Array( imgReleaseNotesIcon, "Release Notes", "fixed_issues.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id")), _ Array( "", "Files and Folders", "files_and_folders.asp?" & Persists_Query_String( Empty )), _ Array( "", "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 ( Array( "","JATS style", "form_update_jats_dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id")), _ Array( "","ANT-using style","form_update_ant_dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"))) TABarray3 = Array ( Array( "","JATS style", "form_export_jats_dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id")), _ Array( "","ClearCase style","form_export_clearcase_dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id")), _ Array( "","ANT-using style","form_export_ant_dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id")), _ Array( "","Simple List", "form_export_simple_dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"))) TABarray4 = Array ( 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")) , _ Array( "","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")), _ Array( "","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 ( Array( imgDependenciesIcon , "Dependencies","_wform_versions_history_dependencies.asp?"& Persists_Query_String( Empty )), _ Array( "", "Runtime","_wform_versions_history_runtime.asp?"& Persists_Query_String( Empty )), _ Array( imgUsedByIcon, "Used by","_wform_versions_history_used_by.asp?"& Persists_Query_String( Empty )), _ Array( "", "Patches","_wform_versions_history_patches.asp?" & Persists_Query_String( Empty )), _ Array( imgReleaseNotesIcon , "Release Notes","_wform_versions_history_release_notes.asp?" & Persists_Query_String( Empty )), _ Array( "", "Documentation","_wform_versions_history_documentation.asp?"& Persists_Query_String( Empty )), _ Array( "", "Files and Folders","_wform_versions_history_files_and_folders.asp?" & Persists_Query_String( Empty )), _ Array( "", "Action Log","_wform_versions_history_action_log.asp?"& Persists_Query_String( Empty )) ,_ Array( "", "Unit Tests","_wform_versions_history_unit_test_log.asp?"& Persists_Query_String( Empty )) ) TABarray5D = Array ( Array( imgDependenciesIcon, "Dependencies","#"), _ Array( "", "Runtime","#"), _ Array( "", "Patches","#"), _ Array( imgReleaseNotesIcon, "Release Notes","#"), _ Array( "", "Documentation","#"), _ Array( "", "Action Log","#"),_ Array( "", "Unit Tests","#" )) ' Tabs for Unit Test window TABarray6 = Array ( Array( "","Unit Test Details", "_wform_update_unit_test.asp?rtag_id="& Request("rtag_id") &"&pv_id="& Request("pv_id") &"&test_id="& Request("test_id")), _ Array( "","Acceptance", "_wform_update_unit_test_acceptance.asp?rtag_id="& Request("rtag_id") &"&pv_id="& Request("pv_id") &"&test_id="& Request("test_id"))) TABarray6D = Array ( Array( "","Unit Test Details", "#"), _ Array( "","Acceptance", "#")) '---------------------------------------------- %> <% Sub Print_TopRight_Menu_ROW1 Response.write "" Response.write " " If objAccessControl.UserLogedIn Then Response.write " " Else Response.write " " End If Response.write " " Response.write " " Response.write " " If InStr(1,ScriptName,"sdk_", 1) <> 0 Then Response.write " " Response.write " " Else 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 "

" & enum_imgUserLg & objAccessControl.FullName &"

Login

|

Suite

|

Releases

|

SDK

|

Projects

|

Reports

|

Build

|

Admin

|

Help

" End Sub Sub Print_TopRight_Menu_ROW2 Response.write "" Response.write " " If QStrPar("rtag_id") <> "" Then Dim s3Content : s3Content = RenderS3ManifestStateString(releaseInfoHash("rtag_id"),releaseInfoHash("S3MANIFEST"), releaseInfoHash("official")," S3 Manifest") Dim lxrContent : lxrContent = RenderLxrStateString(releaseInfoHash("rtag_id"),releaseInfoHash("lxr"),releaseInfoHash("lxrServer"), releaseInfoHash("official")," LXR") If s3Content <> "" Then Response.write " " Response.write " " End If If lxrContent <> "" Then Response.write " " Response.write " " End If Response.write " " Response.write " " Response.write " " Else Response.write " " Response.write " " Response.write " " End If Response.write " " Response.write "

"& s3Content &"

|

"& lxrContent &"

|

Release

|

Build

Release

|

Build

" End Sub Sub Print_TopLeft_Menu Dim HomeSTR, ProjSTR, RtagSTR,ModeSTR Dim ActionSTR HomeSTR = "HOME" RtagSTR = "" ProjSTR = "" If DB_RTAG_ID > 0 Then RtagSTR = " > "& DB_RTAG_NAME &"" If DB_PROJ_ID > 0 Then ProjSTR = " > "& DB_PROJ_NAME &"" '-- Calculate authorisation state ActionSTR = "" If NOT canActionInProject Then ActionSTR = " [Not Authorised]" ActionSTR = "" End If '-- Append Mode indication ModeSTR = "" If ReleaseMode = enumDB_RELEASE_IN_RESTRICTIVE_MODE Then ModeSTR = " [Restrictive Mode]" ElseIf ReleaseMode = enumDB_RELEASE_IN_SNAPSHOT_MODE Then ModeSTR = " [SnapShot]" ElseIf ReleaseMode = enumDB_RELEASE_IN_CCB_MODE Then ModeSTR = " [CCB Mode!]" ElseIf ReleaseMode = enumDB_RELEASE_IN_CLOSED_MODE Then ModeSTR = " [Closed Mode]" ElseIf ReleaseMode = enumDB_RELEASE_IN_CLOSED_MODE Then ModeSTR = " [Closed Mode]" ElseIf ReleaseMode = enumDB_RELEASE_IN_PRESERVE_MODE Then ModeSTR = " [Preserve Mode]" ElseIf ReleaseMode = enumDB_RELEASE_IN_ARCHIVE_MODE Then ModeSTR = " [Archived Mode]" End If Dim PkgNameSTR, PkgVersionSTR PkgNameSTR = "" PkgVersionSTR = "" If IsObject(pkgInfoHash) Then If pkgInfoHash.Item("pkg_name") <> "" Then PkgNameSTR = " > "& pkgInfoHash.Item("pkg_name")& "" PkgVersionSTR = " > "& pkgInfoHash.Item("pkg_version") &"" End If End IF '-- Render Menu -- Response.write "" Response.write " " Response.write " " Response.write " " Response.write " " Response.write "

"& HomeSTR & ProjSTR & ActionSTR & RtagSTR & ModeSTR & PkgNameSTR & PkgVersionSTR Response.write "  " & enum_imgClipBoard10 & "" Response.write "

" End Sub '----------------------------------------------------------- ' Display package breadcrumbs, when displaying package details ' outside the context of a Release ' 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 " " Response.write " " Response.write " " Response.write "

"& PkgNameSTR & PkgVersionSTR If (PkgLock= "Y") OR (PkgLock = "A") Then Response.write "" End If Response.write "

" End Sub '----------------------------------------------------------- ' Generate the list of projects in a menu item Function Projects_Menu ( NNarrIndex ) Dim rsTemp, Query_String, tempSTR tempSTR = "" Query_String = _ "select unique p.* from release_tags rt, projects p where rt.PROJ_ID = p.PROJ_ID and rt.official in ('N','R','C','P') ORDER BY p.proj_name ASC" '" 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 %>