Subversion Repositories DevTools

Rev

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