Blame | Last modification | View Log | RSS feed
<%'=====================================================' MENU DEFINITION'=====================================================%><%'------------ CONSTANTS -----------------------Const 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 Then' Tab for PRODUCTSTABarray1 = 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 packagesTABarray1 = 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 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 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"), _"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 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 ), _"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 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[2]=''<%If (objAccessControl.IsVisible ("ChangeModeFromRestrictive") OR objAccessControl.IsVisible ("ChangeModeFromClosed")) And objAccessControl.IsDataActive ("PROJECTS", DB_PROJ_ID, "EditProjects") Then%><%If ReleaseMode = enumDB_RELEASE_IN_OPEN_MODE Then%>linkset[2]+='<div class="menuitems"><%=LMENU_TICK%> Open Mode</div>'linkset[2]+='<div class="menuitems"><a href="_change_release_mode.asp?mode_code=2&<%=objPMod.ComposeURL()%>" title="Packages can only be released on approval."><%=LMENU_BLANK%> Restrictive Mode</a></div>'linkset[2]+='<div class="menuitems"><a href="_change_release_mode.asp?mode_code=4&<%=objPMod.ComposeURL()%>" title="Packages can only be released on CCB approval."><%=LMENU_BLANK%> CCB Mode</a></div>'linkset[2]+='<div class="menuitems"><a href="_change_release_mode.asp?mode_code=3&<%=objPMod.ComposeURL()%>" title="No changes allowed."><%=LMENU_BLANK%> Closed Mode</a></div>'linkset[2]+='<div class="menuitems"><a href="_change_release_mode.asp?mode_code=5&<%=objPMod.ComposeURL()%>" title="This would put the release into archive state."><%=LMENU_BLANK%> Archive Mode</a></div>'<%ElseIf ReleaseMode = enumDB_RELEASE_IN_RESTRICTIVE_MODE Then%><%If objAccessControl.IsVisible ("ChangeModeFromRestrictive") And objAccessControl.IsDataActive ("PROJECTS", DB_PROJ_ID, "EditProjects") Then%>linkset[2]+='<div class="menuitems"><a href="_change_release_mode.asp?mode_code=1&<%=objPMod.ComposeURL()%>" title="Packages can be released freely."><%=LMENU_BLANK%> Open Mode</a></div>'<%End If%>linkset[2]+='<div class="menuitems"><%=LMENU_TICK%> Restrictive Mode</div>'linkset[2]+='<div class="menuitems"><a href="_change_release_mode.asp?mode_code=4&<%=objPMod.ComposeURL()%>" title="Packages can only be released on CCB approval."><%=LMENU_BLANK%> CCB Mode</a></div>'linkset[2]+='<div class="menuitems"><a href="_change_release_mode.asp?mode_code=3&<%=objPMod.ComposeURL()%>" title="No changes allowed."><%=LMENU_BLANK%> Closed Mode</a></div>'linkset[2]+='<div class="menuitems"><a href="_change_release_mode.asp?mode_code=5&<%=objPMod.ComposeURL()%>" title="This would put the release into archive state."><%=LMENU_BLANK%> Archive Mode</a></div>'<%ElseIf ReleaseMode = enumDB_RELEASE_IN_CCB_MODE Then%><%If objAccessControl.IsVisible ("ChangeModeFromRestrictive") And objAccessControl.IsDataActive ("PROJECTS", DB_PROJ_ID, "EditProjects") Then%>linkset[2]+='<div class="menuitems"><a href="_change_release_mode.asp?mode_code=1&<%=objPMod.ComposeURL()%>" title="Packages can be released freely."><%=LMENU_BLANK%> Open Mode</a></div>'<%End If%>linkset[2]+='<div class="menuitems"><a href="_change_release_mode.asp?mode_code=2&<%=objPMod.ComposeURL()%>" title="Packages can only be released on approval."><%=LMENU_BLANK%> Restrictive Mode</a></div>'linkset[2]+='<div class="menuitems"><%=LMENU_TICK%> CCB Mode</div>'linkset[2]+='<div class="menuitems"><a href="_change_release_mode.asp?mode_code=3&<%=objPMod.ComposeURL()%>" title="No changes allowed."><%=LMENU_BLANK%> Closed Mode</a></div>'linkset[2]+='<div class="menuitems"><a href="_change_release_mode.asp?mode_code=5&<%=objPMod.ComposeURL()%>" title="This would put the release into archive state."><%=LMENU_BLANK%> Archive Mode</a></div>'<%ElseIf ReleaseMode = enumDB_RELEASE_IN_CLOSED_MODE Then%><%If objAccessControl.IsVisible ("ChangeModeFromClosed") And objAccessControl.IsDataActive ("PROJECTS", DB_PROJ_ID, "EditProjects") Then%>linkset[2]+='<div class="menuitems"><a href="_change_release_mode.asp?mode_code=1&<%=objPMod.ComposeURL()%>" title="Packages can be released freely."><%=LMENU_BLANK%> Open Mode</a></div>'linkset[2]+='<div class="menuitems"><a href="_change_release_mode.asp?mode_code=2&<%=objPMod.ComposeURL()%>" title="Packages can only be released on approval."><%=LMENU_BLANK%> Restrictive Mode</a></div>'linkset[2]+='<div class="menuitems"><a href="_change_release_mode.asp?mode_code=4&<%=objPMod.ComposeURL()%>" title="Packages can only be released on CCB approval."><%=LMENU_BLANK%> CCB Mode</a></div>'<%End If%>linkset[2]+='<div class="menuitems"><%=LMENU_TICK%> Closed Mode</div>'<%If objAccessControl.IsVisible ("ChangeModeFromClosed") And objAccessControl.IsDataActive ("PROJECTS", DB_PROJ_ID, "EditProjects") Then%>linkset[2]+='<div class="menuitems"><a href="_change_release_mode.asp?mode_code=5&<%=objPMod.ComposeURL()%>" title="This would put the release into archive state."><%=LMENU_BLANK%> Archive Mode</a></div>'<%End If%><%End If%>// Separatorlinkset[2]+='<div class="menuitemDisable">----------------------</div>'<%End If%><%If (ReleaseMode = enumDB_RELEASE_IN_OPEN_MODE) AND objAccessControl.IsVisible ("CloneReleaseContents") Then%>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 Release Contents</a></div>'<%Else%>linkset[2]+='<div class="menuitemDisable">Import Release Contents</div>'<%End If%><%If (ReleaseMode = enumDB_RELEASE_IN_OPEN_MODE) AND objAccessControl.IsVisible ("ImportDependencies") Then%>linkset[2]+='<div class="menuitems"><a href="javascript:;" onClick="MM_openBrWindow(\'_wform_import_dependency.asp?ToRtag_id=<%=parRtag_id%>&<%=objPMod.ComposeURL()%>\',\'ReleaseManager\',\'scrollbars=yes,resizable=yes,width=800,height=200\')">Import Dependencies</a></div>'<%Else%>linkset[2]+='<div class="menuitemDisable">Import Dependencies</div>'<%End If%>linkset[2]+='<div class="menuitems"><a href="diff.asp?rtagB=<%=parRtag_id%>" >Merge Manager</a></div>'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="build_status.asp?rtag_id=<%=parRtag_id%>">Build Status</a></div>'//linkset[4]='<div class="menuitems"><a href="help/index.asp" target="_blank">Index</a></div>'//linkset[4]+='<div class="menuitems"><a href="_about.asp" target="_blank">About</a></div>'<%If objAccessControl.IsActive("ConfigureBuildService") Then%>linkset[6]=''linkset[6]+='<div class="menuitems"><a href="admin_build_service.asp">Build Service</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_archive.asp">Archive</a></div>'linkset[6]+='<div class="menuitems"><a href="admin_projects.asp">Projects</a></div>'<%Else%>linkset[6]=''linkset[6]='<b>Not Authorised!!!</b>'<%End If%>linkset[5]=''<%If Not objAccessControl.UserLogedIn Then%>linkset[5]+='<div class="menuitems"><a href="Login.asp?rfile=<%=scriptName & QSTR_All%>">Login</a></div>'<%Else%>linkset[5]+='<div class="menuitemDisable">Login</div>'<%End If%><%If objAccessControl.UserLogedIn Then%>linkset[5]+='<div class="menuitems"><a href="_Logout.asp?rfile=<%=scriptName & QSTR_All%>">Logout</a></div>'<%Else%>linkset[5]+='<div class="menuitemDisable">Logout</div>'<%End If%><!-- linkset[5]+='<div class="menuitems"><a href="sign_up.asp">Sign Up</a></div>' -->linkset[5]+='<div class="menuitems"><a href="members_notifications.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]=''<%If objAccessControl.IsVisible("ConfigureRelease") Then%>linkset[7]+='<div class="menuitems"><a href="release_config.asp?rtag_id=<%=parRtag_id%>">Configuration</a></div>'<%Else%>linkset[7]+='<div class="menuitemDisable">Configuration</div>'<%End If%>linkset[7]+='<div class="menuitems"><a href="build_status.asp?rtag_id=<%=parRtag_id%>">Status</a></div>'</script><%Sub Print_TopRight_Menu_ROW1Response.write "<table bgcolor='#ffffff' border='0' cellpadding='0' cellspacing='0' height='35'>"Response.write " <tr>"If objAccessControl.UserLogedIn ThenResponse.write " <td align=middle noWrap valign=center><img src='images/h_trsp_dot.gif' width='70' height='1'></td>"Response.write " <td></td>"End IfResponse.write " <td align=middle noWrap valign=center><img src='images/h_trsp_dot.gif' width='80' height='1'></td>"Response.write " <td></td>"Response.write " <td align=middle noWrap valign=center><img src='images/h_trsp_dot.gif' width='70' height='1'></td>"Response.write " <td></td>"Response.write " <td align=middle noWrap valign=center><img src='images/h_trsp_dot.gif' width='70' height='1'></td>"Response.write " <td></td>"Response.write " <td align=middle noWrap valign=center><img src='images/h_trsp_dot.gif' width='70' height='1'></td>"Response.write " <td></td>"Response.write " <td align=middle noWrap valign=center><img src='images/h_trsp_dot.gif' width='70' height='1'></td>"Response.write " </tr>"Response.write " <tr> "If objAccessControl.UserLogedIn ThenResponse.write " <td align=middle noWrap valign=center><a class=mmItem href='members_index.asp'><img src='images/i_user.gif' border='0' hspace='3'>"& objAccessControl.FullName &"</a> </td>"Response.write " <td align=middle>|</td>"End IfResponse.write " <td align=middle noWrap valign=center><a class=mmItem href='members_index.asp' onMouseover=""showmenu(event,linkset[5])"" onMouseout=""delayhidemenu()"">My Account</a></td>"Response.write " <td align=middle>|</td>"Response.write " <td align=middle noWrap valign=center><a class=mmItem href='reports.asp'>Reports</a></td>"Response.write " <td align=middle>|</td>"Response.write " <td align=middle noWrap valign=center><a class=mmItem href='' onMouseover=""showmenu(event,linkset[6])"" onMouseout=""delayhidemenu()"">Admin</a></td>"Response.write " <td align=middle>|</td>"Response.write " <td align=middle noWrap valign=center><a class=mmItem href='help/index.asp' target='_blank'>Help</a></td>"Response.write " <td align=middle>|</td>"Response.write " <td align=middle noWrap valign=center><a class=mmItem href='_about.asp' target='_blank'>About</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>"Response.write " <td align=middle noWrap valign=center><img src='images/h_trsp_dot.gif' width='70' height='1'></td>"Response.write " <td></td>"Response.write " <td align=middle noWrap valign=center><img src='images/h_trsp_dot.gif' width='70' height='1'></td>"Response.write " <td></td>"Response.write " <td align=middle noWrap valign=center><img src='images/h_trsp_dot.gif' width='70' height='1'></td>"Response.write " </tr>"Response.write " <tr> "Response.write " <td align=middle noWrap valign=center><a class=mmItem href='index.asp' onMouseover=""showmenu(event,linkset[0])"" onMouseout=""delayhidemenu()"">Projects</a></td>"Response.write " <td align=middle>|</td>"If QStrPar("rtag_id") <> "" ThenResponse.write " <td align=middle noWrap valign=center><a class=mmItem href='#' onMouseover=""showmenu(event,linkset[2])"" onMouseout=""delayhidemenu()"">Release</a></td>"Response.write " <td align=middle>|</td>"Response.write " <td align=middle noWrap valign=center><a class=mmItem href='#' onMouseover=""showmenu(event,linkset[7])"" onMouseout=""delayhidemenu()"">Build</a></td>"ElseResponse.write " <td align=middle noWrap valign=center class=mmItemDisable>Release</td>"Response.write " <td align=middle>|</td>"Response.write " <td align=middle noWrap valign=center class=mmItemDisable>Build</td>"End IfResponse.write " </tr>"Response.write "</table>"End SubSub Print_TopLeft_MenuDim rsTemp, Query_StringDim myProj, myRtagDim HomeSTR, ProjSTR, RtagSTRmyProj = 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, 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)) 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'-- 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>"If ReleaseMode = enumDB_RELEASE_IN_RESTRICTIVE_MODE ThenResponse.write " <td nowrap width='100%' class=mmItem>"& HomeSTR & ProjSTR & RtagSTR &" [Restrictive Mode]</td>"ElseIf ReleaseMode = enumDB_RELEASE_IN_CCB_MODE ThenResponse.write " <td nowrap width='100%' class=mmItem>"& HomeSTR & ProjSTR & RtagSTR &" [CCB Mode!]</td>"ElseIf ReleaseMode = enumDB_RELEASE_IN_CLOSED_MODE ThenResponse.write " <td nowrap width='100%' class=mmItem>"& HomeSTR & ProjSTR & RtagSTR &"<img src='images/i_locked.gif' width='7' height='10' border='0' hspace='2' > [Closed Mode]</td>"ElseResponse.write " <td nowrap width='100%' class=mmItem>"& HomeSTR & ProjSTR & RtagSTR &"</td>"End IfResponse.write " </tr>"Response.write "</table>"rsTemp.Close()Set rsTemp = nothingEnd SubSub Print_Package_TopLeft_MenuDim PkgNameSTR, PkgVersionSTRPkgNameSTR = "<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>"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>"If (pkgInfoHash.Item("dlocked") = "Y") OR (pkgInfoHash.Item("dlocked") = "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%>