Rev 6793 | Rev 6873 | 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 imgDependenciesIcon, imgReleaseNotesIcon, imgPatchesIcon, imgUsedByIconDim ReleaseMode'-- GLOBAL VARIABLES --------------------------imgDependenciesIcon = "<img src='images/i_dependency.gif' border='0' align='absmiddle' hspace='3'>"imgUsedByIcon = "<img src='images/i_used_by.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'>"ReleaseMode = GetReleaseMode( Request("rtag_id") )'----------------------------------------------If IsObject(pkgInfoHash) ThenIf IsNull(pkgInfoHash.Item ("is_patch")) ThenDim TabArray, OptionArray, canDebugTabArray = Array()OptionArray = Array()canDebug = IsEmpty(Application("LiveSystem")) OR canActionControl("MSMaintainer")Sub GenerateOptionList(sSelected)%><select onchange='optionRedirect(this);' style='background-color: #c2c3c2;border: none;' class='tabItem'><option value=''>Other Opts</option><%Dim elFor each el in OptionArrayDim isSelected : isSelected = ""If el(0) = sSelected Then isSelected = " selected "Response.Write "<option value='"&el(1)&"' "& isSelected &">"&el(0)&"</option>"Next%></select><%End Sub' Add a single entry to the Tab Array as well as the Option ArraySub GenTabEntry(bTab, bOpt, sIcon,sText,sQuery)If bTab ThenReDim Preserve TabArray(UBound(TabArray) + 1)TabArray(UBound(TabArray)) = Array(sIcon, sText, sQuery)End IfIf bOpt ThenReDim Preserve OptionArray(UBound(OptionArray) + 1)OptionArray(UBound(OptionArray)) = Array(sText, sQuery)End IfEnd 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 = TabArrayElse' Tabs for PatchesTABarray1 = 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 IfEnd If' Tabs for Import / Export DependenciesTABarray2 = 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 windowTABarray5 = 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 windowTABarray6 = 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", "#"))'----------------------------------------------%><script language="JavaScript1.2">// Selection Option: OnChange goto new pagefunction optionRedirect(el) {var val = el.value;if ( val ) {location.href = el.value;}}// ---- Popup menu helper functions----function destroyThisRelease() {vixConfirm('This Release will be permanently destroyed.<p>Are you sure?', {button : 'Destroy Release',title : 'Destroy Release',icon : 'images/i_critical.gif',url : '_destroy_release.asp?rtag_id_list=<%=parRtag_id%>&proj_id=<%=DB_PROJ_ID%>&rfile=rtree.asp'});}// Support function to copy package name into the users clipboard// Would like to have used a <select>, but can't copy to clipboard in onChange under FireFox<%Dim cpm_HavePkg :cpm_HavePkg = falseIf IsObject(pkgInfoHash) ThenIf pkgInfoHash.Item ("pkg_name") <> "" Then cpm_HavePkg = trueEnd If%>var copyPackageMenu='';<%If cpm_HavePkg Then %>copyPackageMenu+='<div class="rex_clm" > Copy Text to Clipboard</div>';copyPackageMenu+='<div class="mmItem clipThis"><%=pkgInfoHash.Item ("pkg_name")%></div>';copyPackageMenu+='<div class="mmItem clipThis"><%=pkgInfoHash.Item ("pkg_version")%></div>';copyPackageMenu+='<div class="mmItem clipThis"><%=pkgInfoHash.Item ("pkg_name")%>\ <%=pkgInfoHash.Item ("pkg_version")%></div>';copyPackageMenu+='<div class="mmItem clipThis"><%=pkgInfoHash.Item ("pkg_name")%>/<%=pkgInfoHash.Item ("pkg_version")%></div>';copyPackageMenu+='<div class="mmItem clipThis">LinkPkgArchive (\'<%=pkgInfoHash.Item ("pkg_name")%>\', \'<%=pkgInfoHash.Item ("pkg_version")%>\');</div>';copyPackageMenu+='<div class="mmItem clipThis">BuildPkgArchive (\'<%=pkgInfoHash.Item ("pkg_name")%>\', \'<%=pkgInfoHash.Item ("pkg_version")%>\');</div>';copyPackageMenu+='<div class="mmItem clipThis">BuildName (\'<%=pkgInfoHash.Item ("pkg_name")%>\', \'<%=pkgInfoHash.Item ("pkg_version")%>\');</div>';copyPackageMenu+='<hr>'<%If DB_RTAG_ID <> -1 Then %>copyPackageMenu+='<div class="mmItem clipData" data-clip="<%=siteRootUrl%><%=RELEASE_MANAGER_URL%>/gotoLatestInRelease.asp?rtag_id=<%=DB_RTAG_ID%>&pv_id=<%=DB_PV_ID%>&page=<%=scriptName%>">URL to Latest Version in Release</div>';copyPackageMenu+='<div class="mmItem clipData" data-clip="<%=DB_RTAG_ID%>">RtagId - <%=DB_RTAG_ID%></div>';<%End If%>copyPackageMenu+='<div class="mmItem clipData" data-clip="<%=DB_PV_ID%>">PvId - <%=DB_PV_ID%></div>';<%If DB_PROJ_ID <> -1 Then %>copyPackageMenu+='<div class="mmItem clipData" data-clip="<%=DB_PROJ_ID%>">ProjId - <%=DB_PROJ_ID%></div>';<%End If%><%End If%>var copyReleaseMenu=[];copyReleaseMenu[0]='<div class="rex_clm" > Copy Text to Clipboard</div>'var fullName='';<%If DB_PROJ_NAME <> "" Then %>copyReleaseMenu[3]='<div class="mmItem clipThis"><%=DB_PROJ_NAME%></div>';fullName+='<%=DB_PROJ_NAME%>';<%End If%><%If DB_RTAG_NAME <> "" Then %>copyReleaseMenu[2]='<div class="mmItem clipThis"><%=DB_PROJ_NAME%> > <%=DB_RTAG_NAME%></div>';copyReleaseMenu[4]='<div class="mmItem clipThis"><%=DB_RTAG_NAME%></div>';fullName+=' > <%=DB_RTAG_NAME%>';<%End If%><%If cpm_HavePkg Then %>fullName+=' > <%=pkgInfoHash.Item ("pkg_name")%>';fullName+=' > <%=pkgInfoHash.Item ("pkg_version")%>';<%End If%>copyReleaseMenu[1]='<div class="mmItem clipThis">'+fullName+'</div>'if ( copyReleaseMenu[2] == copyReleaseMenu[1] ) {copyReleaseMenu[2] = '';}if ( copyReleaseMenu[3] == copyReleaseMenu[1] ) {copyReleaseMenu[3] = '';}copyReleaseMenu = copyReleaseMenu.join('');// ---- Popup menu definition ----var linkset=new Array()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 canActionControlInProject("CreateNewRelease") Then%>linkset[2]+='<div class="menuitems"><a href="form_add_release.asp?source_rtag_id=<%=parRtag_id%>&proj_id=<%=DB_PROJ_ID%>&branch=Y&<%=objPMod.ComposeURL()%>">Clone Release</a></div>'<%Else%>linkset[2]+='<div class="menuitemDisable">Clone Release</div>'<%End If%><%If canActionControlInProject("DestroyRelease") AND releaseIsClosed(ReleaseMode) Then%>linkset[2]+='<div class="menuitems menufake"><span onClick="destroyThisRelease();">Destroy Release</span></div>'<%Else%>linkset[2]+='<div class="menuitemDisable">Destroy Release</div>'<%End If%>linkset[2]+='<hr>'<%If (releaseIsWritable(ReleaseMode)) AND canShowControlInProject ("CloneReleaseContents") Then%>linkset[2]+='<div class="menuitems menufake"><span onClick="MM_openVixIFrame(\'_wform_import_release.asp?ToRtag_id=<%=parRtag_id%>&<%=objPMod.ComposeURL()%>\',\'Import Release Contents\')">Import Release Contents</span></div>'<%Else%>linkset[2]+='<div class="menuitemDisable">Import Release Contents</div>'<%End If%><%If (releaseIsWritable(ReleaseMode)) AND canShowControlInProject ("ImportDependencies") Then%>linkset[2]+='<div class="menuitems menufake"><span onClick="MM_openVixIFrame(\'_wform_import_dependency.asp?<%=objPMod.ComposeURL()%>\',\'Import Package Dependencies\')">Import Dependencies</span></div>'<%Else%>linkset[2]+='<div class="menuitemDisable">Import Dependencies</div>'<%End If%><%If (releaseIsWritable(ReleaseMode)) AND canShowControlInProject ("ImportDependencies") Then%>linkset[2]+='<div class="menuitems menufake"><span onClick="MM_openVixIFrame(\'_wform_import_daemonconfig.asp?<%=objPMod.ComposeURL()%>\',\'Import Daemon Configuration\')">Import Daemon Config</span></div>'<%Else%>linkset[2]+='<div class="menuitemDisable">Import Daemon Config</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="form_release_replication.asp?rtag_id=<%=parRtag_id%>">Release Replication</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")) AND releaseIsWritable(ReleaseMode) 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="form_view_deployable_state.asp?rtag_id=<%=parRtag_id%>">View Deployable Flags</a></div>'linkset[2]+='<div class="menuitems"><a href="form_view_package_owners.asp?rtag_id=<%=parRtag_id%>">View Package Owners</a></div>'<%If releaseIsWritable(ReleaseMode) Then %>linkset[2]+='<div class="menuitems menufake"><span onClick="MM_openVixIFrame(\'wAddDaemonInstruction.asp?ToRtag_id=<%=parRtag_id%>&<%=objPMod.ComposeURL()%>\',\'Add Daemon Instruction\')">Add Daemon Instruction</span></div>'<%Else%>linkset[2]+='<div class="menuitemDisable">Add Daemon Instruction</div>'<%End If %>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="dependencies.asp?rtag_id=<%=parRtag_id%>&RebuildMetrics=1">Rebuild Metrics</a></div>'linkset[2]+='<div class="menuitems"><a href="unused_packages.asp?rtag_id=<%=parRtag_id%>">Unused Packages</a></div>'linkset[2]+='<div class="menuitems"><a href="release_stats.asp?rtag_id=<%=parRtag_id%>">Release Statistics</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>'<%Else%>linkset[6]+='<div class="menuitemDisable">Session Details</div>'<%End If%>linkset[6]+='<hr>'linkset[6]+='<div class="menuitems"><a href="admin_blat_machines.asp">Package Replication</a></div>'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>'linkset[6]+='<div class="menuitems"><a href="admin_licences.asp">Licences</a></div>'linkset[6]+='<div class="menuitems"><a href="admin_vcs_types.asp">Version Control Systems</a></div>'linkset[6]+='<hr>'<%If canActionControl("CreateNewProject") Then %>linkset[6]+='<div class="menuitems menufake"><span onClick="MM_openVixIFrame(\'_wform_new_project.asp\',\'Create a New Project\')">New Project</span></div>'<%Else%>linkset[6]+='<div class="menuitemDisable">New Project</div>'<%End If%>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>'linkset[6]+='<hr>'linkset[6]+='<div class="menuitems"><a href="admin_package_properties.asp">Package Properties</a></div>'linkset[6]+='<div class="menuitems"><a href="admin_baseviews.asp">Manage Base Views</a></div>'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>'<%If canActionControl("Masquerade") Then%>linkset[5]+='<div class="menuitems"><a href="Masquerade.asp?rfile=<%=scriptName & QSTR_FullQuery%>">Masquerade as ...</a></div>'<%End If%>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[8]+='<hr>'linkset[8]+='<div class="menuitems"><a href="build_replication_status.asp">Package Replication</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 class='nowrap'> "If objAccessControl.UserLogedIn ThenResponse.write " <td class='mmEntry'><a class=mmItem href='' onMouseover=""showmenu(event,linkset[5])"" onMouseout=""delayhidemenu()"">" & enum_imgUserLg & 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 HomeSTR, ProjSTR, RtagSTR,ModeSTRDim ActionSTRHomeSTR = "<a class=mmItem href='index.asp'>HOME</a>"RtagSTR = ""ProjSTR = ""If DB_RTAG_ID > 0 Then RtagSTR = " > <a class=mmItem href='dependencies.asp?rtag_id="& DB_RTAG_ID &"'>"& DB_RTAG_NAME &"</a>"If DB_PROJ_ID > 0 Then ProjSTR = " > <a class=mmItem href='rtree.asp?proj_id="& DB_PROJ_ID &"'>"& DB_PROJ_NAME &"</a>"'-- 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 IfDim PkgNameSTR, PkgVersionSTRPkgNameSTR = ""PkgVersionSTR = ""If IsObject(pkgInfoHash) ThenIf pkgInfoHash.Item("pkg_name") <> "" 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='dependencies.asp?rtag_id="& DB_RTAG_ID &"&pv_id=" & DB_PV_ID & "'>"& pkgInfoHash.Item("pkg_version") &"</a>"End IfEnd 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 pointer' >"& HomeSTR & ProjSTR & ActionSTR & RtagSTR & ModeSTR & PkgNameSTR & PkgVersionSTRResponse.write " <span onClick='showmenu(event,copyReleaseMenu)' onmouseout='delayhidemenu()'>" & enum_imgClipBoard10 & "</span>"Response.write " </td>"Response.write " </tr>"Response.write "</table>"End Sub'-----------------------------------------------------------' Display package breadcrumbs, when displaying package details' outside the context of a Release'Sub 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>"Response.write " <td nowrap width='100%' class=mmItem>"& PkgNameSTR & PkgVersionSTRIf (PkgLock= "Y") OR (PkgLock = "A") ThenResponse.write "<img src='images/i_locked.gif' width='7' height='10' border='0' hspace='2' title='Packages locked'>"End IfResponse.write " </td>"Response.write " </tr>"Response.write "</table>"End Sub'-----------------------------------------------------------' Generate the list of projects in a menu itemFunction Projects_Menu ( NNarrIndex )Dim rsTemp, Query_String, tempSTRtempSTR = ""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 &"]+='<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%>