Subversion Repositories DevTools

Rev

Rev 5061 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

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