Subversion Repositories DevTools

Rev

Rev 7337 | Rev 7395 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
119 ghuddy 1 
<%
2 
'=====================================================
127 ghuddy 3 
'                MENU DEFINITION
119 ghuddy 4 
'=====================================================
5 
%>
6 
<%
7 
'------------ CONSTANTS -----------------------
2365 dpurdie 8 
Const MenuHeaderDefined = 1
119 ghuddy 9 
Const LMENU_TICK = "<img src=""images/i_boxtick_on.gif"" width=""13"" height=""13"" border=""0"" vspace=""2"" align=""absmiddle"">"
10 
Const LMENU_BLANK = "<img src=""images/spacer.gif"" width=""13"" height=""13"" border=""0"" vspace=""2"" align=""absmiddle"">"
11 
'------------ Variable Definition -------------
12 
Dim TABarray1, TABarray2, TABarray3, TABarray4, TABarray5, TABarray5D, TABarray6, TABarray6D
6786 dpurdie 13 
Dim imgDependenciesIcon, imgReleaseNotesIcon, imgPatchesIcon, imgUsedByIcon
119 ghuddy 14 
Dim ReleaseMode
6577 dpurdie 15 
 
119 ghuddy 16 
'-- GLOBAL VARIABLES --------------------------
6873 dpurdie 17 
imgDependenciesIcon = "<img src='images/i_dependency.gif' border='0'  style='margin-right: 3px;vertical-align: middle;'>"
18 
imgUsedByIcon       = "<img src='images/i_used_by.gif' border='0'     style='margin-right: 3px;vertical-align: middle;'>"
19 
imgReleaseNotesIcon = "<img src='images/i_release_note.gif'           style='margin-right: 3px;vertical-align: middle;'>"
20 
imgPatchesIcon      = "<img src='images/i_patch_small.gif' border='0' style='margin-right: 3px;vertical-align: middle;'>"
119 ghuddy 21 
ReleaseMode = GetReleaseMode( Request("rtag_id") )
22 
 
6879 dpurdie 23 
'  TABarray* structure
24 
'  Array of Arrays of:
25 
'   [0]     - Image (Optional)
26 
'   [1]     - Text
27 
'   [2]     - URL
28 
'
119 ghuddy 29 
'----------------------------------------------
30 
If IsObject(pkgInfoHash) Then
6788 dpurdie 31 
    If IsNull(pkgInfoHash.Item ("is_patch")) Then
32 
        Dim TabArray, OptionArray, canDebug
33 
        TabArray = Array()
34 
        OptionArray = Array()
35 
        canDebug = IsEmpty(Application("LiveSystem")) OR canActionControl("MSMaintainer")
36 
 
37 
        Sub GenerateOptionList(sSelected)
38 
        %>
39 
        <select onchange='optionRedirect(this);' style='background-color: #c2c3c2;border: none;' class='tabItem'>
40 
                 <option value=''>Other Opts</option>
41 
                 <%
42 
                    Dim el
43 
                    For each el in OptionArray
44 
                        Dim isSelected : isSelected = ""
45 
                        If el(0) = sSelected Then isSelected = " selected "
46 
                        Response.Write "<option value='"&el(1)&"' "& isSelected &">"&el(0)&"</option>"
47 
                    Next
48 
                 %>
49 
        </select>
50 
        <%
51 
        End Sub
52 
 
53 
        ' Add a single entry to the Tab Array as well as the Option Array
6793 dpurdie 54 
        Sub GenTabEntry(bTab, bOpt, sIcon,sText,sQuery)
6788 dpurdie 55 
        If bTab Then
56 
            ReDim Preserve TabArray(UBound(TabArray) + 1)
57 
            TabArray(UBound(TabArray)) = Array(sIcon, sText, sQuery)
58 
        End If
59 
 
60 
        If bOpt Then
61 
            ReDim Preserve OptionArray(UBound(OptionArray) + 1)
62 
            OptionArray(UBound(OptionArray)) = Array(sText, sQuery)
63 
        End If
64 
        End Sub
65 
 
66 
        ' Tabs for Packages (not Patches)
67 
 
6793 dpurdie 68 
        'Call GenTabEntry(TRUE, FALSE, "",                 "SelectList",       "GenerateOptionList")
69 
        Call GenTabEntry(TRUE, TRUE, imgDependenciesIcon ,"Dependencies",     "dependencies.asp?"& Persists_Query_String( Empty ))
70 
        Call GenTabEntry(TRUE, TRUE, imgDependenciesIcon ,"Dependencies (All)","dependencies_all.asp?"& Persists_Query_String( Empty ))
71 
        Call GenTabEntry(TRUE, TRUE, imgUsedByIcon,       "Used by",          "used_by.asp?"& Persists_Query_String( Empty ))
72 
        Call GenTabEntry(TRUE, TRUE, imgUsedByIcon,       "Used by (All)",    "used_by_all.asp?"& Persists_Query_String( Empty ))
73 
        Call GenTabEntry(TRUE, TRUE,"",                   "Runtime",          "runtime_dependencies.asp?"& Persists_Query_String( Empty ))
74 
        Call GenTabEntry(TRUE, TRUE,"",                   "Processes",        "process_dependencies.asp?"& Persists_Query_String( Empty ))
75 
        Call GenTabEntry(TRUE, TRUE, imgPatchesIcon,      "Patches",          "patches.asp?"& Persists_Query_String( Empty ))
76 
        Call GenTabEntry(TRUE, TRUE, imgReleaseNotesIcon, "Release Notes",    "fixed_issues.asp?"& Persists_Query_String( Empty ))
77 
        Call GenTabEntry(TRUE, TRUE, "",                  "Documentation",    "documentation.asp?" & Persists_Query_String( Empty ))
78 
        Call GenTabEntry(TRUE, TRUE, "",                  "Files and Folders","files_and_folders.asp?" & Persists_Query_String( Empty ))
79 
        Call GenTabEntry(TRUE, TRUE, "",                  "Action Log",       "action_log.asp?"& Persists_Query_String( Empty ))
80 
        Call GenTabEntry(TRUE, TRUE, "",                  "Unit Test",        "unit_test_log.asp?"& Persists_Query_String( Empty ))
81 
        Call GenTabEntry(TRUE, TRUE, "",                  "Notifications",    "notifications.asp?"& Persists_Query_String( Empty ))
82 
        Call GenTabEntry(canDebug, False, "",             "Debug",            "pvdata.asp?"& Persists_Query_String( Empty ))
6788 dpurdie 83 
        TABarray1 = TabArray
84 
    Else
127 ghuddy 85 
      ' Tabs for Patches
6788 dpurdie 86 
        TABarray1 = Array ( Array( imgDependenciesIcon, "Dependencies",         "dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id")), _
87 
                            Array( imgUsedByIcon,       "Used by",              "used_by.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id")), _
88 
                            Array( imgReleaseNotesIcon, "Release Notes",        "fixed_issues.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id")), _
89 
                            Array( "",                  "Files and Folders",    "files_and_folders.asp?" & Persists_Query_String( Empty )), _
90 
                            Array( "",                  "Action Log",           "action_log.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id")))
127 ghuddy 91 
   End If
92 
End If
119 ghuddy 93 
 
94 
' Tabs for Import / Export Dependencies
6788 dpurdie 95 
TABarray2 = Array ( Array( "","JATS style",     "form_update_jats_dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id")), _
96 
                    Array( "","ANT-using style","form_update_ant_dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id")))
119 ghuddy 97 
 
6788 dpurdie 98 
TABarray3 = Array ( Array( "","JATS style",     "form_export_jats_dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id")), _
99 
                    Array( "","ClearCase style","form_export_clearcase_dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id")), _
100 
                    Array( "","ANT-using style","form_export_ant_dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id")), _
101 
                    Array( "","Simple List",    "form_export_simple_dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id")))
127 ghuddy 102 
 
6788 dpurdie 103 
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")) , _
104 
                    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")), _
105 
                    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") ))
127 ghuddy 106 
 
119 ghuddy 107 
' Tabs for History window
6788 dpurdie 108 
TABarray5 = Array ( Array( imgDependenciesIcon , "Dependencies","_wform_versions_history_dependencies.asp?"& Persists_Query_String( Empty )), _
109 
                    Array( "",                   "Runtime","_wform_versions_history_runtime.asp?"& Persists_Query_String( Empty )), _
110 
                    Array( imgUsedByIcon,        "Used by","_wform_versions_history_used_by.asp?"& Persists_Query_String( Empty )), _
111 
                    Array( "",                   "Patches","_wform_versions_history_patches.asp?" & Persists_Query_String( Empty )), _
112 
                    Array( imgReleaseNotesIcon , "Release Notes","_wform_versions_history_release_notes.asp?" & Persists_Query_String( Empty )), _
113 
                    Array( "",                   "Documentation","_wform_versions_history_documentation.asp?"& Persists_Query_String( Empty )), _
114 
                    Array( "",                   "Files and Folders","_wform_versions_history_files_and_folders.asp?" & Persists_Query_String( Empty )), _
115 
                    Array( "",                   "Action Log","_wform_versions_history_action_log.asp?"& Persists_Query_String( Empty )) ,_
116 
                    Array( "",                   "Unit Tests","_wform_versions_history_unit_test_log.asp?"& Persists_Query_String( Empty )) )
127 ghuddy 117 
 
6788 dpurdie 118 
TABarray5D = Array ( Array( imgDependenciesIcon, "Dependencies","#"), _
119 
                     Array( "",                  "Runtime","#"), _
120 
                     Array( "",                  "Patches","#"), _
121 
                     Array( imgReleaseNotesIcon, "Release Notes","#"), _
122 
                     Array( "",                  "Documentation","#"), _
123 
                     Array( "",                  "Action Log","#"),_
124 
                     Array( "",                  "Unit Tests","#" ))
119 ghuddy 125 
 
126 
' Tabs for Unit Test window
6788 dpurdie 127 
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")), _
128 
                    Array( "","Acceptance",         "_wform_update_unit_test_acceptance.asp?rtag_id="& Request("rtag_id") &"&pv_id="& Request("pv_id") &"&test_id="& Request("test_id")))
119 ghuddy 129 
 
6788 dpurdie 130 
TABarray6D = Array ( Array( "","Unit Test Details", "#"), _
131 
                     Array( "","Acceptance",        "#"))
127 ghuddy 132 
 
119 ghuddy 133 
'----------------------------------------------
134 
%>
135 
<script language="JavaScript1.2">
6788 dpurdie 136 
// Selection Option: OnChange goto new page
137 
function optionRedirect(el) {
138 
    var val = el.value;
139 
     if ( val ) {
140 
         location.href = el.value;
141 
     }
142 
 }
119 ghuddy 143 
 
6566 dpurdie 144 
// ---- Popup menu helper functions----
6788 dpurdie 145 
function destroyThisRelease() {
6566 dpurdie 146 
    vixConfirm('This Release will be permanently destroyed.<p>Are you sure?', {
147 
            button : 'Destroy Release',
148 
            title : 'Destroy Release',
149 
            icon : 'images/i_critical.gif',
150 
            url :  '_destroy_release.asp?rtag_id_list=<%=parRtag_id%>&proj_id=<%=DB_PROJ_ID%>&rfile=rtree.asp'
151 
    });
152 
}
153 
 
6591 dpurdie 154 
// Support function to copy package name into the users clipboard
155 
// Would like to have used a <select>, but can't copy to clipboard in onChange under FireFox
6593 dpurdie 156 
<%Dim cpm_HavePkg :cpm_HavePkg = false
157 
If IsObject(pkgInfoHash) Then
158 
    If pkgInfoHash.Item ("pkg_name") <> "" Then cpm_HavePkg = true
159 
End If%>
6591 dpurdie 160 
var copyPackageMenu='';
6593 dpurdie 161 
<%If cpm_HavePkg Then %>
6591 dpurdie 162 
copyPackageMenu+='<div class="rex_clm" >&nbsp;Copy Text to Clipboard</div>';
6709 dpurdie 163 
copyPackageMenu+='<div class="mmItem clipThis"><%=pkgInfoHash.Item ("pkg_name")%></div>';
164 
copyPackageMenu+='<div class="mmItem clipThis"><%=pkgInfoHash.Item ("pkg_version")%></div>';
165 
copyPackageMenu+='<div class="mmItem clipThis"><%=pkgInfoHash.Item ("pkg_name")%>\ <%=pkgInfoHash.Item ("pkg_version")%></div>';
166 
copyPackageMenu+='<div class="mmItem clipThis"><%=pkgInfoHash.Item ("pkg_name")%>/<%=pkgInfoHash.Item ("pkg_version")%></div>';
167 
copyPackageMenu+='<div class="mmItem clipThis">LinkPkgArchive (\'<%=pkgInfoHash.Item ("pkg_name")%>\', \'<%=pkgInfoHash.Item ("pkg_version")%>\');</div>';
168 
copyPackageMenu+='<div class="mmItem clipThis">BuildPkgArchive (\'<%=pkgInfoHash.Item ("pkg_name")%>\', \'<%=pkgInfoHash.Item ("pkg_version")%>\');</div>';
169 
copyPackageMenu+='<div class="mmItem clipThis">BuildName (\'<%=pkgInfoHash.Item ("pkg_name")%>\', \'<%=pkgInfoHash.Item ("pkg_version")%>\');</div>';
6688 dpurdie 170 
copyPackageMenu+='<hr>'
6695 dpurdie 171 
<%If DB_RTAG_ID <> -1 Then %>
7337 dpurdie 172 
copyPackageMenu+='<div class="mmItem clipData" data-clip="<%=siteRootUrl%><%=RELEASE_MANAGER_URL%>/gotoLatestInRelease.asp?rtag_id=<%=DB_RTAG_ID%>&pkgName=<%=pkgInfoHash.Item ("pkg_name") & pkgInfoHash.Item ("v_ext")%>&page=<%=scriptName%>">URL to Latest Version in Release</div>';
6709 dpurdie 173 
copyPackageMenu+='<div class="mmItem clipData" data-clip="<%=DB_RTAG_ID%>">RtagId - <%=DB_RTAG_ID%></div>';
6591 dpurdie 174 
<%End If%>
6709 dpurdie 175 
copyPackageMenu+='<div class="mmItem clipData" data-clip="<%=DB_PV_ID%>">PvId - <%=DB_PV_ID%></div>';
6695 dpurdie 176 
<%If DB_PROJ_ID <> -1 Then %>
6709 dpurdie 177 
copyPackageMenu+='<div class="mmItem clipData" data-clip="<%=DB_PROJ_ID%>">ProjId - <%=DB_PROJ_ID%></div>';
6695 dpurdie 178 
<%End If%>
179 
<%End If%>
6591 dpurdie 180 
 
6709 dpurdie 181 
var copyReleaseMenu=[];
182 
copyReleaseMenu[0]='<div class="rex_clm" >&nbsp;Copy Text to Clipboard</div>'
183 
 
184 
var fullName='';
6593 dpurdie 185 
<%If DB_PROJ_NAME <> "" Then %>
6986 dpurdie 186 
copyReleaseMenu[3]='<div class="mmItem clipThis"><%=Format4Java(DB_PROJ_NAME)%></div>';
187 
fullName+='<%=Format4Java(DB_PROJ_NAME)%>';
6591 dpurdie 188 
<%End If%>
6593 dpurdie 189 
<%If DB_RTAG_NAME <> "" Then %>
6986 dpurdie 190 
copyReleaseMenu[2]='<div class="mmItem clipThis"><%=Format4Java(DB_PROJ_NAME)%> > <%=Format4Java(DB_RTAG_NAME)%></div>';
191 
copyReleaseMenu[4]='<div class="mmItem clipThis"><%=Format4Java(DB_RTAG_NAME)%></div>';
192 
fullName+=' > <%=Format4Java(DB_RTAG_NAME)%>';
6593 dpurdie 193 
<%End If%>
6709 dpurdie 194 
<%If cpm_HavePkg Then %>
195 
fullName+=' > <%=pkgInfoHash.Item ("pkg_name")%>';
196 
fullName+=' > <%=pkgInfoHash.Item ("pkg_version")%>';
197 
<%End If%>
198 
copyReleaseMenu[1]='<div class="mmItem clipThis">'+fullName+'</div>'
199 
if ( copyReleaseMenu[2] == copyReleaseMenu[1] ) {
200 
    copyReleaseMenu[2] = '';
201 
}
202 
if ( copyReleaseMenu[3] == copyReleaseMenu[1] ) {
203 
    copyReleaseMenu[3] = '';
204 
}
6873 dpurdie 205 
 
206 
copyReleaseMenu.push('<hr>');
207 
<%If DB_RTAG_ID <> -1 Then %>
208 
copyReleaseMenu.push('<div class="mmItem clipData" data-clip="<%=DB_RTAG_ID%>">RtagId - <%=DB_RTAG_ID%></div>');
209 
<%End If%>
210 
<%If DB_PROJ_ID <> -1 Then %>
211 
copyReleaseMenu.push('<div class="mmItem clipData" data-clip="<%=DB_PROJ_ID%>">ProjId - <%=DB_PROJ_ID%></div>');
212 
<%End If%>
213 
 
6709 dpurdie 214 
copyReleaseMenu = copyReleaseMenu.join('');
6591 dpurdie 215 
 
6709 dpurdie 216 
 
6566 dpurdie 217 
// ---- Popup menu definition ----
119 ghuddy 218 
var linkset=new Array()
219 
linkset[0]=''
220 
<%=Projects_Menu ( 0 )%>
5066 dpurdie 221 
 
222 
linkset[1] = ''
5357 dpurdie 223 
linkset[1]+='<div class="menuitems"><a target="_blank" href="<%=ACCESS_MANAGER_URL%>">Access&nbsp;Manager</a></div>'
224 
linkset[1]+='<div class="menuitems"><a target="_blank" href="<%=DEPLOYMENT_MANAGER_URL%>">Deployment&nbsp;Manager</a></div>'
225 
//linkset[1]+='<div class="menuitems"><a target="_blank" href="<%=PRODUCTION_MANAGER_URL%>">Production&nbsp;Manager</a></div>'
226 
linkset[1]+='<div class="menuitems"><a target="_blank" href="<%=RELEASE_MANAGER_URL%>">Release&nbsp;Manager</a></div>'
5061 dpurdie 227 
<%
228 
'-------------------------------------------------
229 
' Function:     genReleaseMode
230 
' Description:  Generate one line of the Release State dropdown menu
231 
Function genReleaseMode(mode, emode, code, name, title)
232 
    genReleaseMode = ""
233 
    Dim href: href = ""
234 
    Dim mclass : mclass = "menuitems"
235 
        If mode = emode Then
236 
            genReleaseMode = genReleaseMode & LMENU_TICK
237 
            mclass="menuitemDisable"
238 
        Else
239 
            If canActionInProject() Then
5178 dpurdie 240 
                If ReleaseModeAccessCheck(mode, emode) Then
5061 dpurdie 241 
                    href = "<a href=""_change_release_mode.asp?mode_code=" & code & "&"& objPMod.ComposeURL() &""">"
242 
                    genReleaseMode = genReleaseMode & href
243 
                Else
244 
                    mclass="menuitemDisable"
245 
                End If
246 
                genReleaseMode = genReleaseMode & LMENU_BLANK
247 
            End If
248 
        End If
249 
        If genReleaseMode <> "" Then
250 
            genReleaseMode = genReleaseMode & "<span title=""" & title & """>&nbsp;" & name &"</span>"
251 
            If href <> "" Then genReleaseMode = genReleaseMode & "</a>"
252 
            genReleaseMode = "<div class="""&mclass&""">" & genReleaseMode & "</div>"
253 
        End If
254 
    genReleaseMode = "'" & genReleaseMode & "'"
255 
End Function
256 
%>
119 ghuddy 257 
linkset[2]=''
5178 dpurdie 258 
linkset[2]+=<%=genReleaseMode(ReleaseMode,enumDB_RELEASE_IN_OPEN_MODE,        1, "Open&nbsp;Mode" , "Packages can be released freely.")%>
5061 dpurdie 259 
linkset[2]+=<%=genReleaseMode(ReleaseMode,enumDB_RELEASE_IN_RESTRICTIVE_MODE, 2, "Restrictive&nbsp;Mode" , "Packages can only be released on approval.")%>
5178 dpurdie 260 
linkset[2]+=<%=genReleaseMode(ReleaseMode,enumDB_RELEASE_IN_CCB_MODE,         4, "CCB&nbsp;Mode" , "Packages can only be released on CCB approval.")%>
261 
linkset[2]+=<%=genReleaseMode(ReleaseMode,enumDB_RELEASE_IN_CLOSED_MODE,      3, "Closed&nbsp;Mode" , "No changes allowed.")%>
262 
linkset[2]+=<%=genReleaseMode(ReleaseMode,enumDB_RELEASE_IN_PRESERVE_MODE,    6, "Preserve&nbsp;Mode" , "No change allowed. Archived, but artifacts retained in dpkg_archive")%>
263 
linkset[2]+=<%=genReleaseMode(ReleaseMode,enumDB_RELEASE_IN_ARCHIVE_MODE,     5, "Archive&nbsp;Mode" , "No change allowed. Packages may be purged from dpkg_archive.")%>
5061 dpurdie 264 
linkset[2]+='<hr>'
119 ghuddy 265 
 
6566 dpurdie 266 
<%If canActionControlInProject("CreateNewRelease") Then%>
267 
   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&nbsp;Release</a></div>'
268 
<%Else%>
269 
   linkset[2]+='<div class="menuitemDisable">Clone Release</div>'
270 
<%End If%>
7380 dpurdie 271 
 
272 
<%If (canActionControlInProject("DestroyRelease") OR releaseInfoHash("userCanDelete") = 1 ) AND releaseIsClosed(ReleaseMode) Then%>
6827 dpurdie 273 
   linkset[2]+='<div class="menuitems menufake"><span onClick="destroyThisRelease();">Destroy&nbsp;Release</span></div>'
6566 dpurdie 274 
<%Else%>
275 
   linkset[2]+='<div class="menuitemDisable">Destroy Release</div>'
276 
<%End If%>
277 
 
278 
linkset[2]+='<hr>'
279 
 
6750 dpurdie 280 
<%If (releaseIsWritable(ReleaseMode)) AND canShowControlInProject ("CloneReleaseContents") Then%>
6827 dpurdie 281 
   linkset[2]+='<div class="menuitems menufake"><span onClick="MM_openVixIFrame(\'_wform_import_release.asp?ToRtag_id=<%=parRtag_id%>&<%=objPMod.ComposeURL()%>\',\'Import Release Contents\')">Import&nbsp;Release&nbsp;Contents</span></div>'
119 ghuddy 282 
<%Else%>
127 ghuddy 283 
   linkset[2]+='<div class="menuitemDisable">Import&nbsp;Release&nbsp;Contents</div>'
119 ghuddy 284 
<%End If%>
127 ghuddy 285 
 
6750 dpurdie 286 
<%If (releaseIsWritable(ReleaseMode)) AND canShowControlInProject ("ImportDependencies") Then%>
6827 dpurdie 287 
   linkset[2]+='<div class="menuitems menufake"><span onClick="MM_openVixIFrame(\'_wform_import_dependency.asp?<%=objPMod.ComposeURL()%>\',\'Import Package Dependencies\')">Import&nbsp;Dependencies</span></div>'
119 ghuddy 288 
<%Else%>
127 ghuddy 289 
   linkset[2]+='<div class="menuitemDisable">Import&nbsp;Dependencies</div>'
119 ghuddy 290 
<%End If%>
127 ghuddy 291 
 
6750 dpurdie 292 
<%If (releaseIsWritable(ReleaseMode)) AND canShowControlInProject ("ImportDependencies") Then%>
6827 dpurdie 293 
   linkset[2]+='<div class="menuitems menufake"><span onClick="MM_openVixIFrame(\'_wform_import_daemonconfig.asp?<%=objPMod.ComposeURL()%>\',\'Import Daemon Configuration\')">Import&nbsp;Daemon&nbsp;Config</span></div>'
4307 dpurdie 294 
<%Else%>
295 
   linkset[2]+='<div class="menuitemDisable">Import&nbsp;Daemon&nbsp;Config</div>'
296 
<%End If%>
297 
 
5049 dpurdie 298 
linkset[2]+='<hr>'
5061 dpurdie 299 
linkset[2]+='<div class="menuitems"><a href="form_edit_release.asp?rtag_id=<%=parRtag_id%>">Release&nbsp;Properties</a></div>'
6770 dpurdie 300 
linkset[2]+='<div class="menuitems"><a href="form_release_replication.asp?rtag_id=<%=parRtag_id%>">Release&nbsp;Replication</a></div>'
5263 dpurdie 301 
linkset[2]+='<div class="menuitems"><a href="diff.asp?rtagA=<%=parRtag_id%>&rtagB=<%=parRtag_id%>" >Merge&nbsp;Manager</a></div>'
127 ghuddy 302 
linkset[2]+='<div class="menuitems"><a href="form_view_release_licencing.asp?rtag_id=<%=parRtag_id%>">View Licencing</a></div>'
6181 dpurdie 303 
<%If (canActionControlInProject ("EditPackageLicence") OR canActionControl("MSMaintainer")) AND releaseIsWritable(ReleaseMode) Then%>
127 ghuddy 304 
linkset[2]+='<div class="menuitems"><a href="form_edit_release_licencing.asp?rtag_id=<%=parRtag_id%>">Edit Licencing</a></div>'
5338 dpurdie 305 
<%Else%>
306 
linkset[2]+='<div class="menuitemDisable">Edit Licencing</div>'
307 
<%End If%>
6122 dpurdie 308 
linkset[2]+='<div class="menuitems"><a href="form_view_deployable_state.asp?rtag_id=<%=parRtag_id%>">View Deployable Flags</a></div>'
6624 dpurdie 309 
linkset[2]+='<div class="menuitems"><a href="form_view_package_owners.asp?rtag_id=<%=parRtag_id%>">View Package Owners</a></div>'
6181 dpurdie 310 
<%If releaseIsWritable(ReleaseMode) Then %>
6827 dpurdie 311 
linkset[2]+='<div class="menuitems menufake"><span onClick="MM_openVixIFrame(\'wAddDaemonInstruction.asp?ToRtag_id=<%=parRtag_id%>&<%=objPMod.ComposeURL()%>\',\'Add Daemon Instruction\')">Add&nbsp;Daemon&nbsp;Instruction</span></div>'
6181 dpurdie 312 
<%Else%>
6566 dpurdie 313 
linkset[2]+='<div class="menuitemDisable">Add Daemon Instruction</div>'
6181 dpurdie 314 
<%End If %>
5176 dpurdie 315 
linkset[2]+='<hr>'
316 
linkset[2]+='<div class="menuitems"><a href="build_order.asp?rtag_id=<%=parRtag_id%>">Build&nbsp;Order</a></div>'
5899 dpurdie 317 
linkset[2]+='<div class="menuitems"><a href="dependencies.asp?rtag_id=<%=parRtag_id%>&RebuildIcons=1">Rebuild&nbsp;Status&nbsp;Icons</a></div>'
6827 dpurdie 318 
linkset[2]+='<div class="menuitems"><a href="dependencies.asp?rtag_id=<%=parRtag_id%>&RebuildMetrics=1">Rebuild&nbsp;Metrics</a></div>'
5473 dpurdie 319 
linkset[2]+='<div class="menuitems"><a href="unused_packages.asp?rtag_id=<%=parRtag_id%>">Unused&nbsp;Packages</a></div>'
6576 dpurdie 320 
linkset[2]+='<div class="menuitems"><a href="release_stats.asp?rtag_id=<%=parRtag_id%>">Release&nbsp;Statistics</a></div>'
6971 dpurdie 321 
linkset[2]+='<div class="menuitems"><a href="form_rep_new_versions.asp?rtag_id=<%=parRtag_id%>">Report&nbsp;Newer&nbsp;Versions</a></div>'
119 ghuddy 322 
 
5338 dpurdie 323 
linkset[6]=''
324 
linkset[6]+='<div class="menuitems"><a href="admin_build_test_page.asp">Release&nbsp;Manager&nbsp;Tests</a></div>'
5061 dpurdie 325 
<%If canActionControl("MSMaintainer") Then%>
4399 dpurdie 326 
   linkset[6]+='<div class="menuitems"><a href="admin_session_details.asp">Session&nbsp;Details</a></div>'
5983 dpurdie 327 
<%Else%>
328 
   linkset[6]+='<div class="menuitemDisable">Session&nbsp;Details</div>'
4399 dpurdie 329 
<%End If%>
5983 dpurdie 330 
linkset[6]+='<hr>'
6770 dpurdie 331 
linkset[6]+='<div class="menuitems"><a href="admin_blat_machines.asp">Package Replication</a></div>'
5983 dpurdie 332 
linkset[6]+='<div class="menuitems"><a href="admin_gbe_machtype.asp">GBE&nbsp;MachType</a></div>'
333 
linkset[6]+='<div class="menuitems"><a href="admin_gbe_machclass.asp">GBE&nbsp;MachClass</a></div>'
334 
linkset[6]+='<div class="menuitems"><a href="admin_build_machine.asp">Build&nbsp;Machine</a></div>'
335 
linkset[6]+='<div class="menuitems"><a href="admin_gbe_buildstandard.asp">Build&nbsp;Standards</a></div>'
7225 dpurdie 336 
linkset[6]+='<div class="menuitems"><a href="admin_build_platforms.asp">Build&nbsp;Platforms</a></div>'
5982 dpurdie 337 
linkset[6]+='<div class="menuitems"><a href="admin_licences.asp">Licences</a></div>'
338 
linkset[6]+='<div class="menuitems"><a href="admin_vcs_types.asp">Version&nbsp;Control&nbsp;Systems</a></div>'
5983 dpurdie 339 
linkset[6]+='<hr>'
340 
<%If canActionControl("CreateNewProject") Then %>
6827 dpurdie 341 
    linkset[6]+='<div class="menuitems menufake"><span onClick="MM_openVixIFrame(\'_wform_new_project.asp\',\'Create a New Project\')">New&nbsp;Project</span></div>'
5983 dpurdie 342 
<%Else%>
343 
    linkset[6]+='<div class="menuitemDisable">New&nbsp;Project</div>'
3959 dpurdie 344 
<%End If%>
5983 dpurdie 345 
linkset[6]+='<div class="menuitems"><a href="admin_projects.asp">Project&nbsp;Info</a></div>'
346 
linkset[6]+='<div class="menuitems"><a href="admin_project_suffix.asp">Project&nbsp;Suffix</a></div>'
5853 dpurdie 347 
linkset[6]+='<hr>'
5983 dpurdie 348 
linkset[6]+='<div class="menuitems"><a href="admin_package_properties.asp">Package&nbsp;Properties</a></div>'
6584 dpurdie 349 
linkset[6]+='<div class="menuitems"><a href="admin_baseviews.asp">Manage&nbsp;Base&nbsp;Views</a></div>'
5983 dpurdie 350 
linkset[6]+='<hr>'
5853 dpurdie 351 
linkset[6]+='<div class="menuitems"><a href="project_log.asp">Project&nbsp;Log</a></div>'
5950 dpurdie 352 
linkset[6]+='<div class="menuitems"><a href="DanglingVersions.asp">Dangling&nbsp;Packages</a></div>'
119 ghuddy 353 
 
354 
linkset[5]=''
355 
<%If Not objAccessControl.UserLogedIn Then%>
4955 dpurdie 356 
   linkset[5]+='<div class="menuitems"><a href="Login.asp?rfile=<%=scriptName & QSTR_FullQuery%>">Login</a></div>'
5725 dpurdie 357 
   linkset[5]+='<div class="menuitemDisable">Logout</div>'
119 ghuddy 358 
<%Else%>
5725 dpurdie 359 
   linkset[5]+='<div class="menuitems"><a href="Login.asp?rfile=<%=scriptName & QSTR_FullQuery%>">Login as ...</a></div>'
6240 dpurdie 360 
   <%If canActionControl("Masquerade") Then%>
361 
        linkset[5]+='<div class="menuitems"><a href="Masquerade.asp?rfile=<%=scriptName & QSTR_FullQuery%>">Masquerade as ...</a></div>'
362 
   <%End If%>
4955 dpurdie 363 
   linkset[5]+='<div class="menuitems"><a href="_Logout.asp">Logout</a></div>'
119 ghuddy 364 
<%End If%>
127 ghuddy 365 
 
3959 dpurdie 366 
linkset[5]+='<div class="menuitems"><a href="members_pkgs_followed.asp">Notifications</a></div>'
119 ghuddy 367 
linkset[5]+='<div class="menuitems"><a href="members_personal_view.asp">Views</a></div>'
368 
linkset[5]+='<div class="menuitems"><a href="members_my_details.asp">My&nbsp;Details</a></div>'
369 
linkset[5]+='<div class="menuitems"><a href="members_my_roles.asp">My&nbsp;Roles</a></div>'
370 
 
371 
linkset[7]=''
151 ghuddy 372 
linkset[7]+='<div class="menuitems"><a href="release_config.asp?rtag_id=<%=parRtag_id%>">Configuration</a></div>'
119 ghuddy 373 
linkset[7]+='<div class="menuitems"><a href="build_status.asp?rtag_id=<%=parRtag_id%>">Status</a></div>'
5623 dpurdie 374 
linkset[7]+='<div class="menuitems"><a href="build_plan.asp?rtag_id=<%=parRtag_id%>">Plan</a></div>'
5008 dpurdie 375 
linkset[7]+='<div class="menuitems"><a href="build_release_log.asp?rtag_id=<%=parRtag_id%>">Build Log</a></div>'
119 ghuddy 376 
 
147 ghuddy 377 
linkset[8]=''
5892 dpurdie 378 
linkset[8]+='<div class="menuitems"><a href="admin_build_service.asp">Build&nbsp;Service</a></div>'
5097 dpurdie 379 
linkset[8]+='<div class="menuitems"><a href="admin_build_status.asp">Daemon&nbsp;Status</a></div>'
5008 dpurdie 380 
linkset[8]+='<div class="menuitems"><a href="build_release_log.asp">Daemon&nbsp;Build&nbsp;Log</a></div>'
5097 dpurdie 381 
linkset[8]+='<div class="menuitems"><a href="admin_daemon_instructions.asp">Daemon&nbsp;Instructions</a></div>'
6770 dpurdie 382 
linkset[8]+='<hr>'
383 
linkset[8]+='<div class="menuitems"><a href="build_replication_status.asp">Package&nbsp;Replication</a></div>'
119 ghuddy 384 
 
3959 dpurdie 385 
linkset[9]=''
386 
linkset[9]+='<div class="menuitems"><a href="Wikiasp/wiki.asp" target="_blank">Release&nbsp;Notes</a></div>'
387 
<%If (IsEmpty(Application("LiveSystem"))) Then%>
388 
linkset[9]+='<div class="menuitems"><a href="Wikiasp/wiki.asp?db=ImplementationNotes" target="_blank">Development&nbsp;Notes</a></div>'
389 
<%End If%>
390 
linkset[9]+='<div class="menuitems"><a href="help/index.asp" target="_blank">Internal&nbsp;Help(old)</a></div>'
391 
linkset[9]+='<div class="menuitems"><a href="_about.asp" target="_blank">About</a></div>'
119 ghuddy 392 
 
393 
</script>
394 
<%
395 
Sub Print_TopRight_Menu_ROW1
5102 dpurdie 396 
   Response.write "<table bgcolor='#ffffff' border='0' cellpadding='0' cellspacing='0' height='26'>"
6584 dpurdie 397 
   Response.write "  <tr class='nowrap'> "
127 ghuddy 398 
   If objAccessControl.UserLogedIn Then
7063 dpurdie 399 
      Response.write "    <td id=usrName class='mmEntry'><a class=mmItem href='' onMouseover=""showmenu(event,linkset[5])"" onMouseout=""delayhidemenu()"">" & enum_imgUserLg & objAccessControl.FullName &"</a>&nbsp;&nbsp;</td>"
5071 dpurdie 400 
   Else
5725 dpurdie 401 
      Response.write "    <td class='mmEntry'><a class=mmItem href='Login.asp?rfile=" & scriptName & QSTR_FullQuery & "' onMouseover=""showmenu(event,linkset[5])"" onMouseout=""delayhidemenu()"">Login</a>&nbsp;&nbsp;</td>"
127 ghuddy 402 
   End If
403 
   Response.write "   <td align=middle>|</td>"
5360 dpurdie 404 
   Response.write "    <td class='mmEntry'><a class=mmItem href='' onMouseover=""showmenu(event,linkset[1])"" onMouseout=""delayhidemenu()"">Suite</a></td>"
5066 dpurdie 405 
   Response.write "   <td align=middle>|</td>"
5102 dpurdie 406 
   If InStr(1,ScriptName,"sdk_", 1) <> 0 Then
5360 dpurdie 407 
   Response.write "    <td class='mmEntry'><a class=mmItem href='index.asp'>Releases</a></td>"
127 ghuddy 408 
   Response.write "   <td align=middle>|</td>"
5102 dpurdie 409 
   Else
5360 dpurdie 410 
   Response.write "    <td class='mmEntry'><a class=mmItem href='sdk_main_page.asp#url=sdk_names_body.asp'>SDK</a></td>"
147 ghuddy 411 
   Response.write "   <td align=middle>|</td>"
5102 dpurdie 412 
   End If
5360 dpurdie 413 
   Response.write "   <td class='mmEntry'><a class=mmItem href='index.asp' onMouseover=""showmenu(event,linkset[0])"" onMouseout=""delayhidemenu()"">Projects</a></td>"
127 ghuddy 414 
   Response.write "   <td align=middle>|</td>"
5360 dpurdie 415 
   Response.write "    <td class='mmEntry'><a class=mmItem href='reports.asp'>Reports</a></td>"
5102 dpurdie 416 
   Response.write "   <td align=middle>|</td>"
5360 dpurdie 417 
   Response.write "    <td class='mmEntry'><a class=mmItem href='' onMouseover=""showmenu(event,linkset[8])"" onMouseout=""delayhidemenu()"">Build</a></td>"
5102 dpurdie 418 
   Response.write "   <td align=middle>|</td>"
5360 dpurdie 419 
   Response.write "    <td class='mmEntry'><a class=mmItem href='' onMouseover=""showmenu(event,linkset[6])"" onMouseout=""delayhidemenu()"">Admin</a></td>"
5102 dpurdie 420 
   Response.write "   <td align=middle>|</td>"
5360 dpurdie 421 
   Response.write "    <td class='mmEntry'><a class=mmItem href='' onMouseover=""showmenu(event,linkset[9])"" onMouseout=""delayhidemenu()"">Help</a></td>"
127 ghuddy 422 
   Response.write "  </tr>"
423 
   Response.write "</table>"
119 ghuddy 424 
End Sub
425 
 
426 
 
427 
Sub Print_TopRight_Menu_ROW2
127 ghuddy 428 
   Response.write "<table bgcolor='#ffffff' border='0' cellpadding='0' cellspacing='0' height='35'>"
429 
   Response.write "  <tr> "
430 
   If QStrPar("rtag_id") <> "" Then
7380 dpurdie 431 
       Dim lxrContent : lxrContent = RenderLxrStateString(releaseInfoHash("rtag_id"),releaseInfoHash("lxr"),releaseInfoHash("lxrServer"), releaseInfoHash("official")," LXR")
5263 dpurdie 432 
      If lxrContent <> "" Then
5360 dpurdie 433 
        Response.write "   <td class='mmEntry'>"& lxrContent &"</td>"
5207 dpurdie 434 
        Response.write "   <td align=middle>|</td>"
435 
      End If
5360 dpurdie 436 
      Response.write "    <td class='mmEntry'><a class=mmItem href='#' onMouseover=""showmenu(event,linkset[2])"" onMouseout=""delayhidemenu()"">Release</a></td>"
437 
      Response.write "    <td align=middle>|</td>"
438 
      Response.write "    <td class='mmEntry'><a class=mmItem href='#' onMouseover=""showmenu(event,linkset[7])"" onMouseout=""delayhidemenu()"">Build</a></td>"
127 ghuddy 439 
   Else
5360 dpurdie 440 
      Response.write "    <td class='mmEntry mmItemDisable'>Release</td>"
441 
      Response.write "    <td align=middle>|</td>"
442 
      Response.write "    <td class='mmEntry mmItemDisable'>Build</td>"
127 ghuddy 443 
   End If
444 
   Response.write "  </tr>"
445 
   Response.write "</table>"
119 ghuddy 446 
End Sub
447 
 
448 
 
449 
Sub Print_TopLeft_Menu
5071 dpurdie 450 
   Dim HomeSTR, ProjSTR, RtagSTR,ModeSTR
451 
   Dim ActionSTR
127 ghuddy 452 
 
453 
   HomeSTR = "<a class=mmItem href='index.asp'>HOME</a>"
6577 dpurdie 454 
   RtagSTR = ""
455 
   ProjSTR = ""
127 ghuddy 456 
 
6577 dpurdie 457 
   If DB_RTAG_ID > 0 Then RtagSTR = "&nbsp;&gt;&nbsp;<a class=mmItem href='dependencies.asp?rtag_id="& DB_RTAG_ID &"'>"& DB_RTAG_NAME &"</a>"
458 
   If DB_PROJ_ID > 0 Then ProjSTR = "&nbsp;&gt;&nbsp;<a class=mmItem href='rtree.asp?proj_id="& DB_PROJ_ID &"'>"& DB_PROJ_NAME &"</a>"
127 ghuddy 459 
 
5071 dpurdie 460 
   '-- Calculate authorisation state
461 
   ActionSTR = ""
462 
   If NOT canActionInProject Then
463 
    ActionSTR = "&nbsp;[Not Authorised]"
464 
    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'>"
465 
   End If
127 ghuddy 466 
 
5071 dpurdie 467 
   '-- Append Mode indication
468 
   ModeSTR = ""
127 ghuddy 469 
   If ReleaseMode = enumDB_RELEASE_IN_RESTRICTIVE_MODE Then
5071 dpurdie 470 
      ModeSTR = "&nbsp;[Restrictive Mode]"
127 ghuddy 471 
 
472 
   ElseIf ReleaseMode = enumDB_RELEASE_IN_CCB_MODE Then
5071 dpurdie 473 
      ModeSTR = "&nbsp;[CCB Mode!]"
127 ghuddy 474 
 
475 
   ElseIf ReleaseMode = enumDB_RELEASE_IN_CLOSED_MODE Then
5071 dpurdie 476 
      ModeSTR = "<img src='images/i_locked.gif' width='7' height='10' border='0' hspace='2' >&nbsp;[Closed Mode]"
127 ghuddy 477 
 
5177 dpurdie 478 
   ElseIf ReleaseMode = enumDB_RELEASE_IN_CLOSED_MODE Then
479 
      ModeSTR = "<img src='images/i_locked.gif' width='7' height='10' border='0' hspace='2' >&nbsp;[Closed Mode]"
480 
 
481 
   ElseIf ReleaseMode = enumDB_RELEASE_IN_PRESERVE_MODE Then
482 
      ModeSTR = "<img src='images/i_locked.gif' width='7' height='10' border='0' hspace='2' >&nbsp;[Preserve Mode]"
483 
 
4078 dpurdie 484 
   ElseIf ReleaseMode = enumDB_RELEASE_IN_ARCHIVE_MODE Then
5071 dpurdie 485 
       ModeSTR = "<img src='images/i_archived.gif' width='7' height='10' border='0' hspace='2' >&nbsp;[Archived Mode]"
4078 dpurdie 486 
 
127 ghuddy 487 
   End If
488 
 
5984 dpurdie 489 
    Dim PkgNameSTR, PkgVersionSTR
490 
    PkgNameSTR = ""
491 
    PkgVersionSTR = ""
492 
    If IsObject(pkgInfoHash) Then
6427 dpurdie 493 
        If pkgInfoHash.Item("pkg_name") <> "" Then
494 
            PkgNameSTR = "&nbsp;&gt;&nbsp;<a class=mmItem href='view_by_version.asp?pkg_id="& pkgInfoHash.Item("pkg_id") &"&listby=1'>"& pkgInfoHash.Item("pkg_name")& "</a>"
6683 dpurdie 495 
            PkgVersionSTR = "&nbsp;&gt;&nbsp;<a class=mmItem href='dependencies.asp?rtag_id="& DB_RTAG_ID &"&pv_id=" & DB_PV_ID & "'>"& pkgInfoHash.Item("pkg_version") &"</a>"
6427 dpurdie 496 
        End If
5984 dpurdie 497 
    End IF
498 
 
5071 dpurdie 499 
   '-- Render Menu --
500 
   Response.write "<table width='100%' border='0' cellspacing='0' cellpadding='0'>"
501 
   Response.write "  <tr>"
502 
   Response.write "    <td width='1%'><img src='images/h_trsp_dot.gif' width='30' height='35'></td>"
6695 dpurdie 503 
   Response.write "    <td nowrap width='100%' class='mmItem pointer' >"& HomeSTR & ProjSTR & ActionSTR &  RtagSTR & ModeSTR & PkgNameSTR & PkgVersionSTR
504 
   Response.write "        &nbsp;<span onClick='showmenu(event,copyReleaseMenu)' onmouseout='delayhidemenu()'>" & enum_imgClipBoard10 & "</span>"
6623 dpurdie 505 
   Response.write "    </td>"
5071 dpurdie 506 
   Response.write "  </tr>"
507 
   Response.write "</table>"
119 ghuddy 508 
End Sub
509 
 
5984 dpurdie 510 
'-----------------------------------------------------------
511 
' Display package breadcrumbs, when displaying package details
512 
' outside the context of a Release
513 
'
119 ghuddy 514 
Sub Print_Package_TopLeft_Menu
5984 dpurdie 515 
    Dim PkgNameSTR, PkgVersionSTR, PkgLock
516 
    If IsObject(pkgInfoHash) Then
517 
        PkgNameSTR = "<a class=mmItem href='view_by_version.asp?pkg_id="& pkgInfoHash.Item("pkg_id") &"&listby=1'>"& pkgInfoHash.Item("pkg_name")& "</a>"
518 
        PkgVersionSTR = " &gt; <a class=mmItem href='#'>"& pkgInfoHash.Item("pkg_version") &"</a>"
519 
        PkgLock = pkgInfoHash.Item("dlocked")
520 
    else
521 
        Dim SSpkgID, SSpkgName, SSpkgVersion, SSsrc_path, SSpkgDesc, BBdlocked
522 
        Call Get_Pkg_Short_Info( Request("pv_id"), SSpkgID, SSpkgName, SSpkgVersion, SSsrc_path, SSpkgDesc, BBdlocked )
127 ghuddy 523 
 
5984 dpurdie 524 
        PkgNameSTR = "<a class=mmItem href='view_by_version.asp?pkg_id="& SSpkgID &"&listby=1'>"& SSpkgName& "</a>"
525 
        PkgVersionSTR = " &gt; <a class=mmItem href='#'>"& SSpkgVersion &"</a>"
526 
        PkgLock = BBdlocked
527 
    End If
2365 dpurdie 528 
 
5984 dpurdie 529 
    Response.write "<table width='100%' border='0' cellspacing='0' cellpadding='0'>"
530 
    Response.write "  <tr>"
531 
    Response.write "    <td width='1%'><img src='images/h_trsp_dot.gif' width='30' height='35'></td>"
532 
    Response.write "    <td nowrap width='100%' class=mmItem>"& PkgNameSTR & PkgVersionSTR
533 
    If (PkgLock= "Y") OR (PkgLock = "A") Then
6593 dpurdie 534 
        Response.write "<img src='images/i_locked.gif' width='7' height='10' border='0' hspace='2' title='Packages locked'>"
5984 dpurdie 535 
    End If
536 
    Response.write "    </td>"
537 
    Response.write "  </tr>"
538 
    Response.write "</table>"
119 ghuddy 539 
End Sub
540 
 
5984 dpurdie 541 
'-----------------------------------------------------------
542 
'   Generate the list of projects in a menu item
119 ghuddy 543 
Function Projects_Menu ( NNarrIndex )
127 ghuddy 544 
   Dim rsTemp, Query_String, tempSTR
545 
   tempSTR = ""
546 
   Query_String = _
6124 dpurdie 547 
	"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"
548 
   '" SELECT * FROM projects ORDER BY proj_name ASC"
127 ghuddy 549 
   Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
550 
   While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
551 
      tempSTR = tempSTR & "linkset["& NNarrIndex &"]+='<div class=""menuitems""><a href=""rtree.asp?proj_id="& rsTemp.Fields("proj_id") &""">"& Replace(rsTemp.Fields("proj_name"), " ", "&nbsp;") &"</a></div>'"& VBNewLine
552 
      rsTemp.MoveNext
553 
   WEnd
554 
   Projects_Menu = tempSTR
555 
   rsTemp.Close
556 
   Set rsTemp = nothing
119 ghuddy 557 
End Function
558 
 
559 
'Function Get_Proj ( NNrtag_id, NNvtree_id )
127 ghuddy 560 
'   Dim rsTemp, Query_String, tempRtag_id
561 
'   If NNvtree_id = "" Then
562 
'      If NNrtag_id = "" Then
563 
'         tempRtag_id = -1
564 
'      Else
565 
'         tempRtag_id = NNrtag_id
566 
'      End If
567 
'      Query_String = _
568 
'      " SELECT vt.vtree_id, vt.proj_id"&_
569 
'        "   FROM release_tags rel, vtrees vt"&_
570 
'       "   WHERE vt.vtree_id = rel.vtree_id AND rel.rtag_id = "& tempRtag_id
571 
'   Else
572 
'      Query_String = _
573 
'      " SELECT vt.vtree_id, vt.proj_id"&_
574 
'        "   FROM vtrees vt"&_
575 
'       "   WHERE vt.vtree_id = "& NNvtree_id
576 
'   End If
577 
'
578 
'   Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
579 
'
580 
'   If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
581 
'      Get_Proj = (rsTemp.Fields("proj_id"))
582 
'      NNvtree_id = (rsTemp.Fields("vtree_id"))
583 
'   Else
584 
'      Get_Proj = -1
585 
'      NNvtree_id = -1
586 
'   End If
587 
'
588 
'   rsTemp.Close
589 
'   Set rsTemp = nothing
119 ghuddy 590 
'End Function
591 
 
592 
 
593 
 
127 ghuddy 594 
%>