Subversion Repositories DevTools

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
119 ghuddy 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
3 
'=====================================================
4 
'|                                                   |
157 ghuddy 5 
'|                        RTREE                      |
119 ghuddy 6 
'|                                                   |
7 
'=====================================================
8 
%>
9 
<%
10 
Option explicit
11 
' Good idea to set when using redirect
157 ghuddy 12 
Response.Expires = 0   ' always load the page, dont store
119 ghuddy 13 
%>
14 
<!--#include file="common/conf.asp"-->
15 
<!--#include file="common/globals.asp"-->
16 
<!--#include file="common/formating.asp"-->
17 
<!--#include file="common/qstr.asp"-->
18 
<!--#include file="common/common_subs.asp"-->
19 
<!--#include file="common/_rtree_common.asp"-->
183 brianf 20 
<!--#include file="common/daemon_status.asp"-->
119 ghuddy 21 
<%
22 
'------------ ACCESS CONTROL ------------------
23 
%>
24 
<!--#include file="_access_control_general.asp"-->
25 
<%
26 
'------------ Variable Definition -------------
27 
Dim ViewType
5177 dpurdie 28 
Dim bIsaTreeView
157 ghuddy 29 
Dim rsQryStr
119 ghuddy 30 
Dim rsQry
31 
Dim parProjId
157 ghuddy 32 
Dim parShowFilter
119 ghuddy 33 
Dim objBtnControl
5177 dpurdie 34 
Dim currLevel, lastLevel
157 ghuddy 35 
Dim dListFilter
183 brianf 36 
Dim objDmSts
5177 dpurdie 37 
Dim hoverTitle, createdBy, comment
38 
Dim bCanMove
39 
Dim bCanDestroy
40 
Dim bCanClone
41 
Dim bCanUnarchive
42 
Dim bCanCloseArchive
5178 dpurdie 43 
 
44 
Dim bCanOpenToClose
45 
Dim bCanRestrictiveToClose
46 
Dim bCanCloseToClose
47 
Dim bCanPreserveToClose
48 
Dim bCanArchiveToClose
49 
 
50 
Dim bCanOpenToPreserve
51 
Dim bCanRestrictiveToPreserve
52 
Dim bCanCloseToPreserve
53 
Dim bCanPreserveToPreserve
54 
Dim bCanArchiveToPreserve
55 
 
56 
Dim bCanOpenToArchive
57 
Dim bCanRestrictiveToArchive
58 
Dim bCanCloseToArchive
59 
Dim bCanPreserveToArchive
60 
Dim bCanArchiveToArchive
61 
 
62 
 
119 ghuddy 63 
'------------ Constants Declaration -----------
64 
Const LIMG_TREE_I_HALF = "<img src='images/spacer.gif' width='20' height='1'>"
4078 dpurdie 65 
Const LIMG_TREE_I_NONE = "<img src='images/spacer.gif' width='30' height='15'>"
66 
Const LIMG_TREE_I_FULL = "<img src='images/dot1h.gif' width='30' height='15'>"
157 ghuddy 67 
Const LIMG_TREE_T      = "<img src='images/dot1.gif' width='30' height='15'>"
68 
Const LIMG_LIST_VIEW   = "<img src='images/abtn_list_view.gif' border='0' align=absmiddle' name='imgviewtype' usemap='#mapviewtype' id='imgviewtype'>"
69 
Const LIMG_TREE_VIEW   = "<img src='images/abtn_tree_view.gif' border='0' align=absmiddle' name='imgviewtype' usemap='#mapviewtype' id='imgviewtype'>"
5177 dpurdie 70 
 
119 ghuddy 71 
Const LCONST_LIST_VIEW = 1
72 
Const LCONST_TREE_VIEW = 2
157 ghuddy 73 
 
5177 dpurdie 74 
Const DEFAULT_SHOW_FILTER = "'N','R','C','O'"
75 
 
119 ghuddy 76 
'------------ Variable Init -------------------
5177 dpurdie 77 
'   Need either proj_id or rtag_id, for which we will calculate a project id
119 ghuddy 78 
parProjId = Request("proj_id")
5177 dpurdie 79 
If parProjId = "" Then parProjId = DB_PROJ_ID
80 
If parProjId = ""  OR parProjId < 0 Then
81 
   Response.Redirect("index.asp")
82 
End If
83 
Call objPMod.StoreParameter("proj_id", parProjId)
157 ghuddy 84 
 
5177 dpurdie 85 
 
157 ghuddy 86 
' Get show_filter from query string or failing that, from the cookie.
87 
' Make sure that if neither supplies it, use the default
88 
parShowFilter = Request("show_filter")
89 
If NOT IsNull(parShowFilter) AND parShowFilter <> "" Then
90 
   Response.Cookies (COOKIE_RELEASE_MANAGER_MEMORY)("show_filter") = parShowFilter
91 
Else
92 
   parShowFilter = Request.Cookies (COOKIE_RELEASE_MANAGER_MEMORY)("show_filter")
93 
   If IsNull(parShowFilter) OR parShowFilter = "" Then
94 
      parShowFilter = DEFAULT_SHOW_FILTER
95 
      Response.Cookies (COOKIE_RELEASE_MANAGER_MEMORY)("show_filter") = parShowFilter
96 
   End If
97 
End If
98 
 
99 
Set dListFilter = CreateObject("Scripting.Dictionary")
100 
 
119 ghuddy 101 
Set objBtnControl = New ActionButtonControl
183 brianf 102 
 
5177 dpurdie 103 
' Init access control
104 
bCanMove =  canActionControlInProject("ConfigureRelease")
105 
bCanDestroy = canActionControlInProject("DestroyRelease")
106 
bCanClone =  canActionControlInProject("CreateNewRelease")
107 
 
5178 dpurdie 108 
bCanOpenToClose             =  ReleaseModeAccessCheck(enumDB_RELEASE_IN_OPEN_MODE,enumDB_RELEASE_IN_CLOSED_MODE)
109 
bCanRestrictiveToClose      =  ReleaseModeAccessCheck(enumDB_RELEASE_IN_RESTRICTIVE_MODE,enumDB_RELEASE_IN_CLOSED_MODE)
110 
bCanCloseToClose            =  FALSE
111 
bCanPreserveToClose         =  ReleaseModeAccessCheck(enumDB_RELEASE_IN_PRESERVE_MODE,enumDB_RELEASE_IN_CLOSED_MODE)
112 
bCanArchiveToClose          =  ReleaseModeAccessCheck(enumDB_RELEASE_IN_ARCHIVE_MODE,enumDB_RELEASE_IN_CLOSED_MODE)
113 
 
114 
bCanOpenToPreserve          =  ReleaseModeAccessCheck(enumDB_RELEASE_IN_OPEN_MODE,enumDB_RELEASE_IN_PRESERVE_MODE)
115 
bCanRestrictiveToPreserve   =  ReleaseModeAccessCheck(enumDB_RELEASE_IN_RESTRICTIVE_MODE,enumDB_RELEASE_IN_PRESERVE_MODE)
116 
bCanCloseToPreserve         =  ReleaseModeAccessCheck(enumDB_RELEASE_IN_CLOSED_MODE,enumDB_RELEASE_IN_PRESERVE_MODE)
117 
bCanPreserveToPreserve      =  FALSE
118 
bCanArchiveToPreserve       =  ReleaseModeAccessCheck(enumDB_RELEASE_IN_ARCHIVE_MODE,enumDB_RELEASE_IN_PRESERVE_MODE)
119 
 
120 
bCanOpenToArchive           =  ReleaseModeAccessCheck(enumDB_RELEASE_IN_OPEN_MODE,enumDB_RELEASE_IN_ARCHIVE_MODE)
121 
bCanRestrictiveToArchive    =  ReleaseModeAccessCheck(enumDB_RELEASE_IN_RESTRICTIVE_MODE,enumDB_RELEASE_IN_ARCHIVE_MODE)
122 
bCanCloseToArchive          =  ReleaseModeAccessCheck(enumDB_RELEASE_IN_CLOSED_MODE,enumDB_RELEASE_IN_ARCHIVE_MODE)
123 
bCanPreserveToArchive       =  ReleaseModeAccessCheck(enumDB_RELEASE_IN_PRESERVE_MODE,enumDB_RELEASE_IN_ARCHIVE_MODE)
124 
bCanArchiveToArchive        =  FALSE
125 
 
119 ghuddy 126 
'----------------------------------------------
127 
%>
128 
<%
157 ghuddy 129 
'--------------------------------------------------------------------------------------------------------------------------
130 
' Determines if the specified filter is on/off and returns a string to use to check the associated checkbox accordingly
131 
Function GetIsListFilterChecked( nFilterId )
132 
   GetIsListFilterChecked = ""
5177 dpurdie 133 
 
134 
  If bIsaTreeView Then
135 
       ' Disable the control in Tree View
136 
       GetIsListFilterChecked = GetIsListFilterChecked & " checked disabled"
137 
  Else
138 
       If dListFilter.Exists ( "'" & CStr(nFilterId) & "'"  ) Then
139 
          GetIsListFilterChecked = "checked"
140 
       End If
141 
  End If
142 
 
157 ghuddy 143 
End Function
144 
'--------------------------------------------------------------------------------------------------------------------------
145 
' Reads the cookie for the filter and creats a dictionary element for each item therein. the dictionary
146 
' is used by the GetIsListFilterChecked function to determine checkbox state in the filter options
147 
Sub GetListFilterValues ( outDepFilter )
148 
   Dim FilterVal, aFilterValues
149 
 
5177 dpurdie 150 
   If parShowFilter <> "" Then
151 
      aFilterValues = Split( Replace( parShowFilter, " ", ""), ",")
157 ghuddy 152 
 
153 
      For Each FilterVal In aFilterValues
154 
         outDepFilter.Item (CStr( FilterVal )) = ""
155 
      Next
156 
   End If
157 
End Sub
158 
 
119 ghuddy 159 
'----------------------------------------------------------------------------------------------------------------------------------------------
160 
Sub RenderIndent ( nLastLevel, nCurrLevel )
157 ghuddy 161 
   Dim i
162 
 
163 
   If nCurrLevel <= 1 Then Exit Sub
164 
 
165 
   '-- Render half lines
166 
   If nCurrLevel > 2 Then
167 
      For i = 1 To nCurrLevel - 2
4078 dpurdie 168 
         Response.write LIMG_TREE_I_NONE
157 ghuddy 169 
      Next
170 
   End If
171 
 
172 
 
173 
   '-- Render branch or line
174 
   If nLastLevel < nCurrLevel Then
175 
      Response.write LIMG_TREE_T
176 
   Else
177 
      Response.write LIMG_TREE_I_FULL
178 
   End If
179 
 
119 ghuddy 180 
End Sub
181 
'----------------------------------------------------------------------------------------------------------------------------------------------
182 
Sub NewRelease ()
5177 dpurdie 183 
    Call OpenInWindow ( "new_release.asp?" & objPMod.ComposeURL() )
119 ghuddy 184 
End Sub
185 
'----------------------------------------------------------------------------------------------------------------------------------------------
5177 dpurdie 186 
Sub MergeManager ()
187 
    ' Open Merge Manager without parameters
188 
    Call OpenInWindow ( "diff.asp" )
119 ghuddy 189 
End Sub
190 
'----------------------------------------------------------------------------------------------------------------------------------------------
5177 dpurdie 191 
Sub AdminView()
192 
     Dim Query_String
193 
     Query_String = _
194 
     "   SELECT DISTINCT vi.view_id, vi.view_name"&_
195 
     "   FROM VIEWS vi"&_
196 
     "   WHERE vi.view_name = 'PROJECT WIDE'"
197 
     Set rsQry = OraDatabase.DbCreateDynaset( Query_String , cint(0) )
157 ghuddy 198 
 
5177 dpurdie 199 
     Dim viewRecordCount
200 
     Dim id
201 
     viewRecordCount=0
202 
     viewRecordCount = rsQry.RecordCount
157 ghuddy 203 
 
5177 dpurdie 204 
     While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
205 
        id=rsQry.Fields("view_id")
206 
        rsQry.MoveNext
207 
     WEnd
157 ghuddy 208 
 
5177 dpurdie 209 
      rsQry.Close()
210 
     Set rsQry = nothing
157 ghuddy 211 
 
5177 dpurdie 212 
     If viewRecordCount = 0 Then
213 
        OraDatabase.Parameters.Add "PROJ_ID", parProjId,    ORAPARM_INPUT, ORATYPE_NUMBER
214 
        Query_String = _
215 
        " SELECT DISTINCT vi.view_id, vi.view_name"&_
216 
        " FROM VIEWS vi, RELEASE_CONTENT rc, RELEASE_TAGS rt"&_
217 
        " WHERE rc.BASE_VIEW_ID = vi.VIEW_ID AND rt.proj_id = "& parProjId &"AND rc.rtag_id = rt.rtag_id"&_
218 
        " ORDER BY ( vi.view_name )"
157 ghuddy 219 
 
5177 dpurdie 220 
        Set rsQry = OraDatabase.DbCreateDynaset( Query_String , cint(0) )
157 ghuddy 221 
 
5177 dpurdie 222 
        OraDatabase.Parameters.Remove "PROJ_ID"
223 
        viewRecordCount = rsQry.RecordCount
157 ghuddy 224 
 
5177 dpurdie 225 
        While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
226 
           id=rsQry.Fields("view_id")
227 
           rsQry.MoveNext
228 
        WEnd
157 ghuddy 229 
 
5177 dpurdie 230 
        rsQry.Close()
231 
        Set rsQry = nothing
232 
     End If
157 ghuddy 233 
 
5177 dpurdie 234 
     If viewRecordCount = 0 Then
235 
        Call OpenInWindow ( "form_edit_project_view.asp?proj_id="&parProjId)
236 
     Else
237 
        Call OpenInWindow ( "form_edit_project_view.asp?proj_id="&parProjId&"&FRview_id="&id)
238 
     End If
119 ghuddy 239 
End Sub
240 
'----------------------------------------------------------------------------------------------------------------------------------------------
241 
Function GetViewType ()
157 ghuddy 242 
   Dim CookieViewType
243 
 
244 
   CookieViewType = Request.Cookies (COOKIE_RELEASE_MANAGER_MEMORY)("RELEASE_VIEW")
245 
 
246 
   If CookieViewType <> "" Then
247 
      ' Get current view type from cookie
248 
      GetViewType = CInt(CookieViewType)
249 
   Else
250 
      ' Set current view to list view
251 
      Response.Cookies (COOKIE_RELEASE_MANAGER_MEMORY)("RELEASE_VIEW") = LCONST_LIST_VIEW
252 
      GetViewType = LCONST_LIST_VIEW
253 
   End If
254 
 
119 ghuddy 255 
End Function
256 
'----------------------------------------------------------------------------------------------------------------------------------------------
257 
Sub SetViewType ()
157 ghuddy 258 
   If Request("viewtype") = "" Then Exit Sub    ' Nothing to do
259 
 
260 
   Response.Cookies (COOKIE_RELEASE_MANAGER_MEMORY)("RELEASE_VIEW") = Request("viewtype")
119 ghuddy 261 
End Sub
262 
'----------------------------------------------------------------------------------------------------------------------------------------------
5177 dpurdie 263 
Sub RenderDaemonStatusConfig(nRtagId)
5009 dpurdie 264 
   %>
265 
   <table class="embedded_table">
266 
    <tr>
267 
     <td>
268 
     <%
5177 dpurdie 269 
      Response.Write("<img src=""icons/i_edit.gif"" border=0 vspace=0 hspace=0 title='Configure Daemons' onclick='location.href=""release_config.asp?rtag_id="&nRtagId&"""'>")
270 
      Response.Write("<img src=""icons/ext_log.gif"" border=0 vspace=0 hspace=0 title='View Build Log'onclick='location.href=""build_release_log.asp?rtag_id="&nRtagId&"""'>")
5009 dpurdie 271 
     %>
272 
     </td>
273 
     <td>
274 
   <%
5177 dpurdie 275 
    Call objDmSts.RenderDaemonStatus(nRtagId,16)
5009 dpurdie 276 
    %>
277 
        </td>
278 
        </tr>
279 
        </table>
280 
    <%
281 
End Sub
5207 dpurdie 282 
 
5177 dpurdie 283 
'----------------------------------------------------------------------------------------------------------------------------------------------
5207 dpurdie 284 
Sub RenderLxrState()
5251 dpurdie 285 
    Response.Write RenderLxrStateString(rsQry("rtag_id"),rsQry("lxr"),rsQry("lxrserver"),"")
5207 dpurdie 286 
End Sub
287 
'----------------------------------------------------------------------------------------------------------------------------------------------
5177 dpurdie 288 
Function RenderActions(nRtagId, sOfficial)
5180 dpurdie 289 
    Response.Write "<span title='Select operation from dropdown menu' class='select-operation ui-icon ui-icon-triangle-1-s' data-rtag-id='"&nRtagId&"' data-official='"&sOfficial&"' style='display:inline-block'></span>"
5177 dpurdie 290 
End Function
291 
'----------------------------------------------------------------------------------------------------------------------------------------------
292 
Function GetMassRefComments (nRtagId)
293 
   Dim UsedBy
294 
   Dim rsQryUse
295 
   Dim linkB
296 
   Dim joiner : joiner = ""
297 
   Dim comment : comment = ""
5009 dpurdie 298 
 
5177 dpurdie 299 
'   If parProjId <> 2 Then
300 
'     assocMASSREF = rsQry("assoc_mass_ref")
301 
'     If assocMASSREF <> "" Then
302 
'        Set rsQryAssoc = OraDatabase.DbCreateDynaset("SELECT RTAG_NAME, RTAG_ID FROM RELEASE_TAGS WHERE RTAG_ID="&assocMASSREF , ORADYN_DEFAULT)
303 
'        assocMASSREFName = rsQryAssoc("RTAG_NAME")
304 
'        link = rsQryAssoc("rtag_id")
305 
'        rsQryAssoc.Close
306 
'        Set rsQryAssoc = Nothing
307 
'     Else
308 
'        assocMASSREFName = "None."
309 
'     End If
310 
'   Else
311 
      UsedBy = nRtagId
312 
      If UsedBy <> "" Then
313 
         Set rsQryUse = OraDatabase.DbCreateDynaset("SELECT * FROM RELEASE_TAGS RT, PROJECTS P WHERE RT.ASSOC_MASS_REF=" & nRtagId & " AND RT.PROJ_ID=P.PROJ_ID", ORADYN_DEFAULT)
314 
 
315 
         While ((NOT rsQryUse.BOF) AND (NOT rsQryUse.EOF))
316 
            If rsQryUse("assoc_mass_ref") = UsedBy Then
317 
               linkB = "dependencies.asp?rtag_id="&rsQryUse("rtag_id")
318 
               comment = joiner & rsQryUse("proj_name") & " -> <a href="&linkB&">"& rsQryUse("rtag_name") &"</a>"
319 
               joiner = " <br> "
320 
               rsQryUse.MoveNext
321 
            End If
322 
         WEnd
323 
         rsQryUse.Close
324 
         Set rsQryUse = Nothing
325 
      End If
326 
      GetMassRefComments = comment
327 
End Function
5009 dpurdie 328 
'----------------------------------------------------------------------------------------------------------------------------------------------
119 ghuddy 329 
%>
330 
<%
331 
'------------ RUN BEFORE PAGE RENDER ----------
332 
If (Request("action") <> "") Then
121 hknight 333 
 
5177 dpurdie 334 
   If Request("btn") = "Update" Then
157 ghuddy 335 
      ' Store filter in cookie
336 
      Response.Cookies (COOKIE_RELEASE_MANAGER_MEMORY)("show_filter") = Request("listFilter")
337 
      parShowFilter = Request("listFilter")
5177 dpurdie 338 
      If IsNull(parShowFilter) OR parShowFilter = "" Then parShowFilter = DEFAULT_SHOW_FILTER
157 ghuddy 339 
   Else
340 
      '-- Select Action
341 
      Select Case Request("action")
5177 dpurdie 342 
          Case "btnNewRelease"
343 
             Call NewRelease()
121 hknight 344 
 
5177 dpurdie 345 
          Case "btnMergeManager"
346 
             Call MergeManager()
121 hknight 347 
 
5177 dpurdie 348 
          Case "btnAdminView"
349 
             Call AdminView()
157 ghuddy 350 
      End Select
351 
   End If
352 
 
119 ghuddy 353 
End If
354 
 
5177 dpurdie 355 
' Set view type  if required
119 ghuddy 356 
Call SetViewType ()
357 
 
358 
' Get current view type
359 
ViewType = GetViewType()
5177 dpurdie 360 
bIsaTreeView = (ViewType = LCONST_TREE_VIEW)
157 ghuddy 361 
 
119 ghuddy 362 
'----------------------------------------------
363 
%>
364 
<html>
365 
<head>
366 
<%
5177 dpurdie 367 
   Set rsQry = OraDatabase.DbCreateDynaset( "SELECT PROJ_NAME FROM PROJECTS WHERE PROJ_ID="& parProjId, ORADYN_DEFAULT )
119 ghuddy 368 
%>
369 
<title><%=rsQry("proj_name")%></title>
370 
<%
157 ghuddy 371 
   rsQry.Close
372 
   Set rsQry = Nothing
119 ghuddy 373 
%>
374 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
375 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
376 
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
377 
<link rel="stylesheet" href="images/navigation.css" type="text/css">
378 
<script language="JavaScript" src="images/common.js"></script>
379 
 
380 
<!-- DROPDOWN MENUS -->
381 
<!--#include file="_menu_def.asp"-->
382 
<script language="JavaScript1.2" src="images/popup_menu.js"></script>
383 
 
5177 dpurdie 384 
<!-- Dropdown action menu scripts -->
385 
<style>
386 
    .ui-menu { position: absolute; }
387 
</style>
388 
<!--#include file="_jquery_includes.asp"-->
389 
<script>
390 
    $(function() {
391 
        // Global menu data structure
392 
        //  Persist between invocations of the menu
393 
        //      Used to mergeLeft rtagid
394 
        //      Used to store current menu info
5178 dpurdie 395 
        $.acData = {
5177 dpurdie 396 
            //  Data
5178 dpurdie 397 
            bCanOpenToClose                 : <%=iif(bCanOpenToClose          , "true", "false")%> ,
398 
            bCanRestrictiveToClose          : <%=iif(bCanRestrictiveToClose   , "true", "false")%> ,
399 
            bCanCloseToClose                : <%=iif(bCanCloseToClose         , "true", "false")%> ,
400 
            bCanPreserveToClose             : <%=iif(bCanPreserveToClose      , "true", "false")%> ,
401 
            bCanArchiveToClose              : <%=iif(bCanArchiveToClose       , "true", "false")%> ,
402 
 
403 
            bCanOpenToPreserve              : <%=iif(bCanOpenToPreserve       , "true", "false")%> ,
404 
            bCanRestrictiveToPreserve       : <%=iif(bCanRestrictiveToPreserve, "true", "false")%> ,
405 
            bCanCloseToPreserve             : <%=iif(bCanCloseToPreserve      , "true", "false")%> ,
406 
            bCanPreserveToPreserve          : <%=iif(bCanPreserveToPreserve   , "true", "false")%> ,
407 
            bCanArchiveToPreserve           : <%=iif(bCanArchiveToPreserve    , "true", "false")%> ,
408 
 
409 
            bCanOpenToArchive               : <%=iif(bCanOpenToArchive        , "true", "false")%> ,
410 
            bCanRestrictiveToArchive        : <%=iif(bCanRestrictiveToArchive , "true", "false")%> ,
411 
            bCanCloseToArchive              : <%=iif(bCanCloseToArchive       , "true", "false")%> ,
412 
            bCanPreserveToArchive           : <%=iif(bCanPreserveToArchive    , "true", "false")%> ,
413 
            bCanArchiveToArchive            : <%=iif(bCanArchiveToArchive     , "true", "false")%> ,
414 
            };
5177 dpurdie 415 
 
5178 dpurdie 416 
            // Convert from Release Mode to [canClose, canPreserve, canArchive]
417 
        $.mode2access = {
418 
 
419 
            N: [$.acData.bCanOpenToClose,$.acData.bCanOpenToPreserve,$.acData.bCanOpenToArchive],
420 
            R: [$.acData.bCanRestrictiveToClose,$.acData.bCanRestrictiveToPreserve,$.acData.bCanRestrictiveToArchive],
421 
            C: [$.acData.bCanRestrictiveToClose,$.acData.bCanRestrictiveToPreserve,$.acData.bCanRestrictiveToArchive],
422 
            Y: [$.acData.bCanCloseToClose,$.acData.bCanCloseToPreserve,$.acData.bCanCloseToArchive],
423 
            O: [$.acData.bCanCloseToClose,$.acData.bCanCloseToPreserve,$.acData.bCanCloseToArchive],
424 
            P: [$.acData.bCanPreserveToClose,$.acData.bCanPreserveToPreserve,$.acData.bCanPreserveToArchive],
425 
            A: [$.acData.bCanArchiveToClose,$.acData.bCanArchiveToPreserve,$.acData.bCanArchiveToArchive],
426 
 
427 
            canAccess : function(state, index) {
428 
                if ( this.hasOwnProperty(state)) {
429 
                    return this[state][index];
430 
                } else {
431 
                    return false;
432 
                }
433 
            },
434 
        };
435 
 
436 
        $.miniMenu = {
5180 dpurdie 437 
            //  Data
438 
 
5177 dpurdie 439 
            //  Menu operations
5180 dpurdie 440 
            open : function (data) {
5179 dpurdie 441 
                //console.log("Opening:", data.rtagid);
5177 dpurdie 442 
                this.gotoUrl("dependencies.asp", {rtag_id : data.rtagid});
443 
             },
444 
 
445 
             edit : function (data) {
5179 dpurdie 446 
                 //console.log("Editing:", data.rtagid);
5177 dpurdie 447 
                 this.gotoUrl("form_edit_release.asp", {rtag_id : data.rtagid, rfile : "<%=ScriptName%>"});
448 
             },
449 
 
450 
             mergeSelect : function (data) {
5179 dpurdie 451 
                 //console.log("Merge from:", data.rtagid );
5180 dpurdie 452 
                 $('#releaseTree .body_row_sel2').removeClass('body_row_sel2');
453 
                 if (data.mergeLeft != data.rtagid) {
454 
                     data.mergeLeft = data.rtagid;
455 
                     $.miniMenu.currentRow.addClass('body_row_sel2');
456 
                 } else {
457 
                     delete(data.mergeLeft);
458 
                 }
5177 dpurdie 459 
             },
460 
 
461 
             merge : function (data) {
5179 dpurdie 462 
                 //console.log ("Merge:", data.mergeLeft, data.rtagid);
5177 dpurdie 463 
                 this.gotoUrl("diff.asp", { rtagA : data.mergeLeft, rtagB : data.rtagid});
464 
             },
465 
 
466 
             close : function (data) {
5179 dpurdie 467 
                 //console.log("Closing:", data.rtagid);
5177 dpurdie 468 
                 this.gotoUrl("_change_release_mode.asp", {rtag_id : data.rtagid, mode_code : 3 , rfile : "<%=ScriptName%>"});
469 
             },
470 
 
471 
             preserve : function (data) {
5179 dpurdie 472 
                 //console.log("Preserving:", data.rtagid);
5177 dpurdie 473 
                 this.gotoUrl("_change_release_mode.asp", {rtag_id : data.rtagid, mode_code : 6 , rfile : "<%=ScriptName%>"});
474 
             },
475 
 
476 
             archive : function (data) {
5179 dpurdie 477 
                 //console.log("Archiving:", data.rtagid);
5177 dpurdie 478 
                 this.gotoUrl("_change_release_mode.asp", {rtag_id : data.rtagid, mode_code : 5 , rfile : "<%=ScriptName%>"});
479 
             },
480 
<%If bCanDestroy Then%>
481 
             delete : function (data) {
5179 dpurdie 482 
                 //console.log("Delete:", data.rtagid);
5184 dpurdie 483 
                 $.miniMenu.currentRow.addClass('body_row_sel_outline');
5177 dpurdie 484 
                 var that = this;
5184 dpurdie 485 
                 var delObject = $.Deferred(that.confirmDelete
486 
                 ).done(function(){
5177 dpurdie 487 
                     that.gotoUrl("_destroy_release.asp", {rtag_id_list : data.rtagid, proj_id : <%=parProjId%>, rfile : "<%=ScriptName%>"});
5184 dpurdie 488 
                 }).fail(function(){
5183 dpurdie 489 
                     $('#releaseTree .body_row_sel_outline').removeClass('body_row_sel_outline');
5177 dpurdie 490 
                 });
491 
             },
492 
<%End If%>
493 
<%If bCanMove Then%>
494 
             move : function (data) {
5179 dpurdie 495 
                 //console.log("Move:", data.rtagid);
5177 dpurdie 496 
                 this.gotoUrl("form_move_release.asp", { rtag_id_list : data.rtagid, proj_id : <%=parProjId%> });
497 
             },
498 
<%End If%>
499 
<%If bCanClone Then%>
500 
             clone : function(data) {
5179 dpurdie 501 
                 //console.log("Clone:", data.rtagid);
5184 dpurdie 502 
                 this.gotoUrl("new_release.asp", { rtag_id_list : data.rtagid, proj_id : <%=parProjId%>, branch : "Y" });
5177 dpurdie 503 
             },
504 
<%End If%>
505 
 
506 
             //
507 
             // Internal functions
508 
             // Goto url, or open in new tab
509 
             gotoUrl: function (url, params)
510 
             {
511 
                 // Open in new tab - not as simple as it sounds
512 
                 // Need to create a form and submit it
5245 dpurdie 513 
                 if(this.event.shiftKey){
5177 dpurdie 514 
                     var form = $('<form>',{
515 
                         action : url,
516 
                         target : '_blank',
517 
                         //method : 'GET'
518 
                         });
519 
 
520 
                     $.each(params,function(n,v){
521 
                         var item = $('<input>',{
522 
                             name : n,
523 
                             value : v
524 
                         });
525 
                         form.append(item);
526 
                        });
527 
 
528 
 
529 
                     form.appendTo(document.body);
530 
                     form.submit();
531 
                     form.remove();
532 
                 }
533 
                 else {
534 
                     if (params)
535 
                         url += '?' + jQuery.param(params)
536 
                     window.location.href = url;
537 
                 }
538 
             },
539 
 
540 
             // Confirm action
5184 dpurdie 541 
             //     Delegate Object
542 
             confirmDelete : function(dbo){
5177 dpurdie 543 
                 $( "<div>Are you sure</div>" ).dialog({
544 
                    resizable: true,
545 
                    height:170,
546 
                    width : 300,
547 
                    modal: true,
548 
                    position: { my: "top", at: "top+100", of: window },
549 
                    title:'Destroy Release',
550 
                    open: function() {
551 
                        $(this).siblings('.ui-dialog-buttonpane').find('button:eq(1)').focus();
552 
                        var markup = '<p><img src="images/i_critical.gif" style="float:left; margin:0 7px 20px 0;">This Release will be permanently destroyed.<p>Are you sure?';
553 
                        $(this).html(markup);
554 
                    },
555 
                    close : function() {
556 
                        $(this).remove();
5184 dpurdie 557 
                        dbo.reject();
5177 dpurdie 558 
                    },
559 
                    buttons: {
560 
                        "Destroy Release": function() {
5184 dpurdie 561 
                            dbo.resolve();
5177 dpurdie 562 
                            $(this).dialog("close");
563 
                        },
564 
                        Cancel: function() {
565 
                            $(this).dialog("close");
566 
                        }
567 
                    }
568 
                 });
569 
             },
570 
 
571 
    };
572 
 
5180 dpurdie 573 
    // Create and Hide the Menu
5177 dpurdie 574 
    $( "#select-menu" ).hide().menu();
575 
 
576 
    // Register menuselect event handler
577 
    $( "#select-menu" ).on( "menuselect", function( event, ui ) {
578 
       var opr = ui.item.data('opr');
579 
 
580 
        // Invoke operation within the menu data structure
581 
        if (typeof $.miniMenu[opr] == 'function' ) {
5180 dpurdie 582 
            $.miniMenu['event'] = event;
5177 dpurdie 583 
            $.miniMenu[opr]($.miniMenu);
584 
            return;
585 
        }
5179 dpurdie 586 
        //console.log ("Menu Operation:", opr, "Not found");
5177 dpurdie 587 
    });
588 
 
5179 dpurdie 589 
 
5177 dpurdie 590 
    // Add menu to all require instances
5180 dpurdie 591 
   $( ".select-operation" ).click(function(event) {
5177 dpurdie 592 
        // When clicked - create and show the menu
593 
        // Insert rtag-id
594 
 
5179 dpurdie 595 
       // In order to have the menu positioing work correctly
596 
       //   Create a div that covers the visible screen area
597 
       //   Us it within the menu poistioning
598 
       //   Then delete it again
599 
       var positionDiv = $( "<div></div>" ).css({
600 
               position: 'absolute',
601 
               top : $(document).scrollTop(),
602 
               left : $(document).scrollLeft(),
603 
               width: '100vw',
604 
               height: '100vh',
605 
               'z-index' : -1,
606 
           });
607 
       positionDiv.appendTo(document.body);
608 
 
5177 dpurdie 609 
        //  Create the menu
610 
        var menu = $("#select-menu").show().position({
5180 dpurdie 611 
             my: "left top",
612 
             at: "center bottom",
613 
             of: this,
614 
             within : positionDiv,
5179 dpurdie 615 
        });
5177 dpurdie 616 
 
5179 dpurdie 617 
        // Cleanup the poistioning div
618 
        positionDiv.remove();
619 
 
5177 dpurdie 620 
        // Setup global data
621 
        $.miniMenu.rtagid = $(this).data('rtag-id');
622 
 
623 
        // Set initial menu state - merge target
624 
        $('#select-menu-merge').toggleClass('ui-state-disabled',!('mergeLeft' in $.miniMenu ));
625 
 
626 
        // Set initial state close/archive
627 
        //
628 
        var official = $(this).data('official');
5178 dpurdie 629 
        $('#select-menu-close').toggleClass('ui-state-disabled',! $.mode2access.canAccess(official,0));
630 
        $('#select-menu-preserve').toggleClass('ui-state-disabled',!$.mode2access.canAccess(official,1));
631 
        $('#select-menu-archive').toggleClass('ui-state-disabled',! $.mode2access.canAccess(official,2));
5177 dpurdie 632 
 
5180 dpurdie 633 
        // Highlight the row selected
634 
        $('#releaseTree .body_row_sel').removeClass('body_row_sel');
635 
        $.miniMenu.currentRow = $(event.target).closest('tr').addClass('body_row_sel');
636 
 
637 
        // Allow click outside of the menu to close it
638 
        $( document ).one( "click", function() {
639 
            menu.hide();
640 
            $('#releaseTree .body_row_sel').removeClass('body_row_sel');
641 
        });
642 
 
643 
 
5177 dpurdie 644 
        // Prevent propagation of event
645 
        return false;
646 
    });
647 
});
648 
</script>
649 
 
119 ghuddy 650 
</head>
651 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
652 
<!-- MENU LAYERS -------------------------------------->
157 ghuddy 653 
<div id="popmenu" class="menuskin" onMouseover="clearhidemenu();highlightmenu(event,'on')" onMouseout="highlightmenu(event,'off');dynamichide(event)">
119 ghuddy 654 
</div>
655 
<!-- TIPS LAYERS -------------------------------------->
656 
<div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>
657 
<!----------------------------------------------------->
658 
<!-- HEADER -->
659 
<!--#include file="_header.asp"-->
660 
<!-- BODY ---->
661 
 
5177 dpurdie 662 
<%Call GetListFilterValues ( dListFilter )%>
663 
 
664 
<form name="FormName" method="post" action="<%=ScriptName%>">
119 ghuddy 665 
<table width="100%" border="0" cellspacing="0" cellpadding="0">
157 ghuddy 666 
   <tr>
5177 dpurdie 667 
      <td width="1" background="images/bg_home_orange.gif" valign="top">
668 
         <!-- ICON STATUS and FILTER -------------------------------------->
669 
         <table width="118" border="0" align="left" style="margin-top: 38px;">
670 
            <tr>
671 
               <td bgcolor="#E4E9EC" width="26"><span class="body_txt">Icon</span></td>
672 
               <td bgcolor="#E4E9EC" width="82"><span class="body_txt">Release State </span></td>
673 
            </tr>
674 
            <tr>
675 
               <td bgcolor="#F5F5F5"><img src="images/i_rtag_open_mode.gif" width="15" height="13"></td>
676 
               <td bgcolor="#F5F5F5"><span class="body_txt"><input name="listFilter" type="checkbox" value="'<%=enumDB_RELEASE_IN_OPEN_MODE%>'" <%=GetIsListFilterChecked(enumDB_RELEASE_IN_OPEN_MODE)%>>Open Mode</span></td>
677 
            </tr>
678 
            <tr>
679 
               <td bgcolor="#F5F5F5"><img src="images/i_rtag_restrictive_mode.gif" width="15" height="15"></td>
680 
               <td nowrap bgcolor="#F5F5F5"><span class="body_txt"><input name="listFilter" type="checkbox" value="'<%=enumDB_RELEASE_IN_RESTRICTIVE_MODE%>'" <%=GetIsListFilterChecked(enumDB_RELEASE_IN_RESTRICTIVE_MODE)%>>Restrictive Mode</span></td>
681 
            </tr>
682 
            <tr>
683 
               <td bgcolor="#F5F5F5"><img src="images/i_rtag_ccb_mode.gif" width="15" height="15"></td>
684 
               <td bgcolor="#F5F5F5"><span class="body_txt"><input name="listFilter" type="checkbox" value="'<%=enumDB_RELEASE_IN_CCB_MODE%>'" <%=GetIsListFilterChecked(enumDB_RELEASE_IN_CCB_MODE)%>>CCB Mode</span></td>
685 
            </tr>
686 
            <tr>
687 
               <td bgcolor="#F5F5F5"><img src="images/i_rtag_closed_mode.gif" width="15" height="14"></td>
688 
               <td bgcolor="#F5F5F5"><span class="body_txt"><input name="listFilter" type="checkbox" value="'<%=enumDB_RELEASE_IN_CLOSED_MODE%>'" <%=GetIsListFilterChecked(enumDB_RELEASE_IN_CLOSED_MODE)%>>Closed Mode</span></td>
689 
            </tr>
690 
            <tr>
691 
               <td bgcolor="#F5F5F5"><img src="images/i_rtag_closed_mode_warn.gif" width="15" height="14"></td>
692 
               <td bgcolor="#F5F5F5"><span class="body_txt"><input name="listFilter" type="checkbox" value="'<%=enumDB_RELEASE_IN_CLOSED_WARN%>'" <%=GetIsListFilterChecked(enumDB_RELEASE_IN_CLOSED_WARN)%>>Closed Aged</span></td>
693 
            </tr>
694 
            <tr>
695 
               <td bgcolor="#F5F5F5"><img src="images/i_rtag_preserve_mode.gif" width="15" height="14"></td>
696 
               <td bgcolor="#F5F5F5"><span class="body_txt"><input name="listFilter" type="checkbox" value="'<%=enumDB_RELEASE_IN_PRESERVE_MODE%>'" <%=GetIsListFilterChecked(enumDB_RELEASE_IN_PRESERVE_MODE)%>>Preserve Mode</span></td>
697 
            </tr>
698 
            <tr>
699 
               <td bgcolor="#F5F5F5"><img src="images/i_rtag_archive_mode.gif" width="15" height="14"></td>
700 
               <td bgcolor="#F5F5F5"><span class="body_txt"><input name="listFilter" type="checkbox" value="'<%=enumDB_RELEASE_IN_ARCHIVE_MODE%>'" <%=GetIsListFilterChecked(enumDB_RELEASE_IN_ARCHIVE_MODE)%>>Archive Mode</span></td>
701 
            </tr>
702 
            <%If NOT bIsaTreeView Then%>
703 
             <tr>
704 
                <td>&nbsp;</td>
705 
                <td><input name="btn" type="submit" class="form_btn" value="Update"></td>
706 
             </tr>
707 
             <%End If%>
708 
         </table>
709 
      </td>
157 ghuddy 710 
      <td rowspan="2" valign="top" width="100%">
711 
         <!-- ACTION BUTTONS ---------------------------------------------->
5177 dpurdie 712 
         <table width="100%"  border="0" cellspacing="0" cellpadding="7" style="background-color:#DAD7C8">
157 ghuddy 713 
            <tr>
5177 dpurdie 714 
               <td width="1">
157 ghuddy 715 
                  <%
5177 dpurdie 716 
                  If bIsaTreeView Then
157 ghuddy 717 
                     Response.write LIMG_TREE_VIEW
718 
                  Else
719 
                     Response.write LIMG_LIST_VIEW
720 
                  End If
721 
                  %>
722 
               </td>
5177 dpurdie 723 
               <td width="100%">
157 ghuddy 724 
                  <%
725 
                  Dim aBtnsDef
726 
                  ' Define action buttons
5177 dpurdie 727 
                  aBtnsDef = Array("btnNewRelease", "width=5", "btnMergeManager", "width=5", "btnAdminView")
119 ghuddy 728 
 
157 ghuddy 729 
                  ' Load action buttons from database
730 
                  Call objBtnControl.LoadActionButtons ( aBtnsDef, OraDatabase )
119 ghuddy 731 
 
157 ghuddy 732 
                  ' Set spacing to minimum between buttons
733 
                  objBtnControl.ButtonSpacer = 0
734 
                  objBtnControl.ImageHspace = 2
119 ghuddy 735 
 
157 ghuddy 736 
                  ' Access Control
5061 dpurdie 737 
                  If NOT canActionControlInProject("CreateNewRelease") Then Call objBtnControl.Active ( "btnNewRelease", "N" )
738 
                  If NOT canActionControlInProject("ConfigureRelease") Then Call objBtnControl.Active ( "btnMoveRelease", "N" )
119 ghuddy 739 
 
157 ghuddy 740 
                  ' -- Render Buttons
741 
                  Call objBtnControl.Render  ( aBtnsDef, objAccessControl )
742 
                  %>
743 
               </td>
744 
            </tr>
745 
         </table>
746 
         <!-- ACTION BUTTONS END  ------------------------------------------>
5177 dpurdie 747 
         <!-- RELEASE INFORMATION  ----------------------------------------->
5180 dpurdie 748 
         <table id=releaseTree width="100%"  border="0" cellspacing="10" cellpadding="0">
157 ghuddy 749 
               <tr>
750 
                  <td>
751 
                     <!-- TREE VIEW ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
5177 dpurdie 752 
                     <%If bIsaTreeView Then%>
157 ghuddy 753 
                        <table width="100%"  border="0" cellspacing="1" cellpadding="1">
5182 dpurdie 754 
                           <tr class='form_field_bg' style="height:21px">
5180 dpurdie 755 
                              <td width="25%" class="body_txt">Release Name </td>
119 ghuddy 756 
 
157 ghuddy 757 
                              <%If parProjId <> 2 Then %>
5180 dpurdie 758 
                                 <td width="15%" class="body_txt">Created</td>
759 
                                 <td width="47%" class="body_txt">Comments</td>
157 ghuddy 760 
                              <%Else%>
5180 dpurdie 761 
                                 <td width="15%" class="body_txt">Created</td>
762 
                                 <td width="25%" class="body_txt">Used By </td>
763 
                                 <td width="22%" class="body_txt">Comments</td>
157 ghuddy 764 
                              <%End If%>
5207 dpurdie 765 
                           <td width="1%" nowrap class="body_txt">Lxr</td>
5182 dpurdie 766 
                           <td width="3%" nowrap class="body_txt">Daemon&nbsp;Status</td>
157 ghuddy 767 
                           </tr>
768 
                           <%
769 
                           OraDatabase.Parameters.Add "PROJ_ID",  parProjId,  ORAPARM_INPUT, ORATYPE_NUMBER
770 
 
771 
                           Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ReleaseVersionTree.sql") , ORADYN_DEFAULT )
772 
                           lastLevel = 0
773 
 
774 
                           OraDatabase.Parameters.Remove "PROJ_ID"
775 
 
776 
                           Dim lastRtagId, parentRtag_id
777 
 
778 
                           If rsQry.RecordCount > 0 Then
779 
 
183 brianf 780 
                              Set objDmSts = New DaemonStatus
781 
                              Call objDmSts.GetDaemonStatus(parProjId)
782 
 
157 ghuddy 783 
                              While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
784 
                                 currLevel = CInt(rsQry("hierarchy"))
4080 dpurdie 785 
                                 hoverTitle = "Last change: "& rsQry("OFFICIAL_STAMP") & " by " & rsQry("modifier")
5177 dpurdie 786 
                                 createdBy = rsQry("created_stamp") & " by " & rsQry("creator")
4080 dpurdie 787 
 
157 ghuddy 788 
                                 %>
5180 dpurdie 789 
                                 <tr class="body_rowg2">
790 
                                    <td nowrap>
157 ghuddy 791 
                                       <%Call RenderIndent( lastLevel, currLevel )%>
5177 dpurdie 792 
                                       <%Call RenderActions(rsQry("rtag_id"),rsQry("official"))%>
4080 dpurdie 793 
                                       <a href="dependencies.asp?rtag_id=<%=rsQry("rtag_id")%>" class="body_link" title="<%=hoverTitle%>" >
157 ghuddy 794 
                                       <%=ReleaseIcon( rsQry("official") )%>&nbsp;<%=rsQry("rtag_name")%></a>
5177 dpurdie 795 
                                    </td>
5180 dpurdie 796 
                                    <td nowrap valign=top"><%=createdBy%></td>
5177 dpurdie 797 
                                    <%
798 
                                    If parProjId = 2 Then
799 
                                       comment = GetMassRefComments(rsQry("rtag_id"))
800 
                                       If comment = "" Then comment = "None."
801 
                                       %>
5180 dpurdie 802 
                                       <td><%=comment%></td>
5177 dpurdie 803 
                                    <%End If%>
157 ghuddy 804 
 
5180 dpurdie 805 
                                    <td><%=NewLine_To_BR(rsQry("description"))%></td>
5207 dpurdie 806 
                                    <td nowrap valign="top"><%Call RenderLxrState() %></td>
807 
                                    <td valign="top"><%Call RenderDaemonStatusConfig(rsQry("rtag_id"))%></td>
157 ghuddy 808 
                                 </tr>
809 
                                 <%
810 
                                 lastLevel = currLevel
811 
                                 rsQry.MoveNext
812 
                              WEnd
183 brianf 813 
                              Set objDmSts = Nothing
157 ghuddy 814 
                           End If
815 
                           rsQry.Close
816 
                           Set rsQry = Nothing
817 
                           %>
818 
                        </table>
819 
                     <!-- LIST VIEW ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
820 
                     <%Else%>
5177 dpurdie 821 
                        <table width="100%"  border="0" cellspacing="1" cellpadding="1">
5180 dpurdie 822 
                           <tr class='form_field_bg'>
823 
                              <td width="1%">&nbsp;</td>
824 
                              <td width="20%" class="body_txt">Release Name </td>
825 
                              <td width="10%" class="body_txt">Created</td>
157 ghuddy 826 
                              <%If parProjId <> 2 Then %>
5180 dpurdie 827 
                                 <td width="47%" class="body_txt">Comments</td>
157 ghuddy 828 
                              <%Else%>
5180 dpurdie 829 
                                 <td width="24%" class="body_txt">Used By </td>
830 
                                 <td width="22%" class="body_txt">Comments</td>
157 ghuddy 831 
                              <%End If%>
5207 dpurdie 832 
                              <td width="1%" class="body_txt" title="LXR Support enabled">Lxr</td>
5180 dpurdie 833 
                              <td width="3%" class="body_txt">Daemon Status</td>
157 ghuddy 834 
                           </tr>
835 
                           <%
836 
                              OraDatabase.Parameters.Add "PROJ_ID",  parProjId,  ORAPARM_INPUT, ORATYPE_NUMBER
837 
 
838 
                              rsQryStr = GetQuery ("ReleaseVersionList.sql")
839 
                              rsQryStr = Replace(rsQryStr, "/*SHOW_FILTER*/", parShowFilter)
840 
 
841 
                              Set rsQry = OraDatabase.DbCreateDynaset( rsQryStr, ORADYN_DEFAULT )
842 
 
843 
                              OraDatabase.Parameters.Remove "PROJ_ID"
844 
 
845 
                              If rsQry.RecordCount > 0 Then
846 
 
183 brianf 847 
                                 Set objDmSts = New DaemonStatus
848 
                                 Call objDmSts.GetDaemonStatus(parProjId)
849 
 
5177 dpurdie 850 
                                 While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
851 
                                    hoverTitle = "Last change: "& rsQry("OFFICIAL_STAMP") & " by " & rsQry("modifier") & ". " & rsQry("OFFICIAL_STAMP_DAYS")& " Days ago"
852 
                                    createdBy = rsQry("created_stamp") & " by " & rsQry("creator")
157 ghuddy 853 
 
854 
                                    %>
5180 dpurdie 855 
                                    <tr class="body_rowg2">
856 
                                       <td valign="top">
5177 dpurdie 857 
                                          <%Call RenderActions(rsQry("rtag_id"),rsQry("official"))%>
157 ghuddy 858 
                                       </td>
5180 dpurdie 859 
                                       <td nowrap valign="top">
5177 dpurdie 860 
                                          <a href="dependencies.asp?rtag_id=<%=rsQry("rtag_id")%>" class="body_link" title="<%=hoverTitle%>">
861 
                                          <%=ReleaseIcon( rsQry("official"))%>&nbsp;<%=rsQry("rtag_name")%></a>
157 ghuddy 862 
                                       </td>
5180 dpurdie 863 
                                       <td nowrap  valign=top><%=createdBy%></td>
157 ghuddy 864 
                                       <%
5177 dpurdie 865 
                                       If parProjId = 2 Then
866 
                                          comment = GetMassRefComments(rsQry("rtag_id"))
867 
                                          If comment = "" Then comment = "None."
157 ghuddy 868 
                                          %>
5180 dpurdie 869 
                                            <td><%=comment%></td>
157 ghuddy 870 
                                       <%End If%>
5180 dpurdie 871 
                                       <td><%=NewLine_To_BR(  rsQry("description")   )%></td>
5207 dpurdie 872 
                                       <td nowrap valign="top"><%Call RenderLxrState() %></td>
873 
                                       <td valign="top"><%Call RenderDaemonStatusConfig(rsQry("rtag_id"))%>
183 brianf 874 
                                       </td>
157 ghuddy 875 
                                    </tr>
876 
                                    <%
5177 dpurdie 877 
                                    rsQry.MoveNext
878 
                                 WEnd
183 brianf 879 
                                 Set objDmSts = Nothing
157 ghuddy 880 
                              End If
881 
                              rsQry.Close
882 
                              Set rsQry = Nothing
5177 dpurdie 883 
                              %>
157 ghuddy 884 
                        </table>
885 
                     <%End If%>
886 
                     <!-- LIST VIEW END ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
5184 dpurdie 887 
                     <%=objPMod.ComposeHiddenTags()%>
888 
                     <input type="hidden" name="action" value="true">
889 
                     </form>
890 
                     <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
891 
                     <!--#include file="messages/_msg_inline.asp"-->
892 
                     <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
157 ghuddy 893 
                  </td>
894 
               </tr>
895 
         </table>
896 
      </td>
897 
      <td width="1" valign="top"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
898 
   </tr>
899 
   <tr>
5177 dpurdie 900 
      <td valign="bottom" align="center" background="images/bg_home_orange.gif">
901 
      </td>
157 ghuddy 902 
   </tr>
119 ghuddy 903 
</table>
5177 dpurdie 904 
<!-- Dropdown Menu -->
5179 dpurdie 905 
<div id=testdiv></div>
5177 dpurdie 906 
<div >
907 
  <ul id="select-menu" style="display:none;">
908 
   <li data-opr="open" title="Goto this Release">Open ...</li>
909 
    <li data-opr="edit" title="Edit the properties of the Release">Edit Properties</li>
910 
    <li <%=iif(bCanMove,"data-opr=move","class=ui-state-disabled")%> title="Change the order in which releases are displayed">Change display order</li>
911 
    <li>-</li>
5178 dpurdie 912 
    <li data-opr="mergeSelect" title="Select as the source (left side) of a merge or comparison">Select for Merge/Diff</li>
913 
    <li id="select-menu-merge" data-opr="merge" title="Merge or Compare from selected release to this release">Merge/Diff from selected</li>
5177 dpurdie 914 
    <li>-</li>
915 
    <li id="select-menu-close" data-opr="close">Close Release</li>
916 
    <li id="select-menu-preserve" data-opr="preserve" >Preserve Release</li>
917 
    <li id="select-menu-archive" data-opr="archive" >Archive Release</li>
918 
    <li>-</li>
919 
    <li <%=iif(bCanClone,"data-opr=clone","class=ui-state-disabled")%> title="Create a new Release based on selected Release">Clone Release</li>
920 
    <li>-</li>
921 
    <li <%=iif(bCanDestroy,"data-opr=delete","class=ui-state-disabled")%>  title="Delete the selected Release">Destroy Release</li>
922 
    <li>-</li>
923 
    <li>Close Menu</li>
924 
  </ul>
925 
</div>
119 ghuddy 926 
<!-- FOOTER -->
927 
<!--#include file="_footer.asp"-->
928 
<map name="mapviewtype">
929 
  <area shape="rect" coords="2,2,69,23" href="<%=ScriptName%>?viewtype=1&<%=objPMod.ComposeURL()%>" title="Switch to List View">
930 
  <area shape="rect" coords="73,2,143,23" href="<%=ScriptName%>?viewtype=2&<%=objPMod.ComposeURL()%>" title="Switch to Tree View">
931 
</map>
932 
</body>
933 
</html>
934 
<%
935 
Call Destroy_All_Objects
157 ghuddy 936 
%>