Subversion Repositories DevTools

Rev

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

Rev Author Line No. Line
5506 dpurdie 1
<%@LANGUAGE="VBSCRIPT"%>
2
<%
3
'=====================================================
4
'|                                                   |
5
'|                          INDEX                    |
6
'|                                                   |
7
'=====================================================
8
%>
9
<%
10
Option explicit
11
' Good idea to set when using redirect
12
Response.Expires = 0   ' always load the page, dont store
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
<%
20
'------------ ACCESS CONTROL ------------------
21
%>
6048 dpurdie 22
<!--#include file="_access_control_login.asp"-->
5506 dpurdie 23
<!--#include file="_access_control_general.asp"-->
24
<%
25
'------------ Variable Definition -------------
26
Dim parMsg
5590 dpurdie 27
Dim msgScript, msgTitle
5506 dpurdie 28
Dim userId
5901 dpurdie 29
Dim pkgCount
5506 dpurdie 30
Dim rsQry
31
Dim rsLastRelease
32
Dim AutomatedPackages, TotalPackages
33
Dim Query_String
34
Dim Auto
35
'------------ Constants Declaration -----------
36
'------------ Variable Init -------------------
37
parMsg = QStrPar("msg")         ' Messages
38
'----------------------------------------------
39
%>
40
<%
41
'-----------------------------------------------------------------------------------------------------------------------
42
Function Get_Messages
43
   Get_Messages = _
44
   " SELECT * FROM message_board WHERE expiry_date > "& ORA_SYSDATE &" OR due_date >= "& ORA_SYSDATE &"+2"
45
End Function
46
'-----------------------------------------------------------------------------------------------------------------------
47
%>
48
<html>
49
   <head>
50
      <title>Release Manager</title>
51
      <link rel="shortcut icon" href="<%=FavIcon%>"/>
52
      <meta http-equiv="Pragma" content="no-cache">
53
      <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
54
      <link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
55
      <link rel="stylesheet" href="images/navigation.css" type="text/css">
56
      <script language="JavaScript" src="images/common.js"></script>
57
      <script language="JavaScript" src="scripts/remote_scripting.js"></script>
5590 dpurdie 58
      <!--#include file="_jquery_includes.asp"-->
5506 dpurdie 59
      <!-- TIPS -->
60
      <script language="JavaScript" src="images/tipster.js"></script>
61
      <script language="JavaScript" src="images/_help_tips.js"></script>
62
      <!-- DROPDOWN MENUS -->
63
      <!--#include file="_menu_def.asp"-->
64
      <script language="JavaScript1.2" src="images/popup_menu.js"></script>
65
      <script language="JavaScript" type="text/javascript">
66
      <!--
5901 dpurdie 67
      formTips.tips.h_wip       = stdTip(300, 'Work In Progress', 'These are versions of packages that have not yet been Released.' +
68
                                                                  '<p>The versions are associated with a Release and are considered to be a "Work In Progress".' + 
69
                                                                  '<p>Consider Releasing or Deleting these versions.' 
70
                                                                  );
71
      formTips.tips.h_dangling       = stdTip(300, 'Dangling Versions', 'Dangling package versions are versions of a package that have not been released and are not associated with any Release.' +
5902 dpurdie 72
                                                                  '<p>These are commonly caused by "Removing" a WIP instead of "Destroying" it.' + 
73
                                                                  '<p>Please consider destroying these versions.' 
5901 dpurdie 74
                                                                  );
5506 dpurdie 75
 
76
      function RequestUserWip( paramString, rowId ){
77
         var requestURL = 'RequestUserWip.asp';
78
 
79
         // Show div
80
         ToggleDisplay( 'DIVWIP_'+ rowId, 'IMG_EXPAND_WIP_' + rowId, 'IMG_COLLAPSE_WIP_' + rowId );
81
 
82
         // Set ajax divname
83
         ajaxdivname = 'DIVWIP_'+ rowId;
84
 
85
         if ( MM_findObj( ajaxdivname ).innerHTML == '<%=enumLOADING%>')
86
         {
87
            //Append the name to search for to the requestURL
88
            var url = requestURL + paramString;
89
 
90
            //Create the xmlHttp object to use in the request
91
            //stateChangeHandler will fire when the state has changed, i.e. data is received back
92
            // This is non-blocking (asynchronous)
93
            xmlHttp = GetXmlHttpObject(stateChangeHandler);
94
 
95
            //Send the xmlHttp get to the specified url
96
            xmlHttp_Get(xmlHttp, url);
97
         }
98
      }
99
 
5901 dpurdie 100
      function RequestUserDangle( paramString, rowId ){
101
         var requestURL = 'RequestUserDangle.asp';
102
 
103
         // Show div
104
         ToggleDisplay( 'DIVDANGLE_'+ rowId, 'IMG_EXPAND_DANGLE_' + rowId, 'IMG_COLLAPSE_DANGLE_' + rowId );
105
 
106
         // Set ajax divname
107
         ajaxdivname = 'DIVDANGLE_'+ rowId;
108
 
109
         if ( MM_findObj( ajaxdivname ).innerHTML == '<%=enumLOADING%>')
110
         {
111
            //Append the name to search for to the requestURL
112
            var url = requestURL + paramString;
113
 
114
            //Create the xmlHttp object to use in the request
115
            //stateChangeHandler will fire when the state has changed, i.e. data is received back
116
            // This is non-blocking (asynchronous)
117
            xmlHttp = GetXmlHttpObject(stateChangeHandler);
118
 
119
            //Send the xmlHttp get to the specified url
120
            xmlHttp_Get(xmlHttp, url);
121
         }
122
         else
123
         {
124
            //Destroy the data when closed
125
            //This will force a fresh when its redisplayed
126
            MM_findObj( ajaxdivname ).innerHTML = '<%=enumLOADING%>'
127
         }
128
      }
129
 
5506 dpurdie 130
      function RequestProjectRelease( paramString, rowId ){
131
         var requestURL = 'RequestProjectRelease.asp';
132
 
133
         // Show div
134
         ToggleDisplay( 'DIVPROJ_'+ rowId, 'IMG_EXPAND_PROJ_' + rowId, 'IMG_COLLAPSE_PROJ_' + rowId );
135
 
136
         // Set ajax divname
137
         ajaxdivname = 'DIVPROJ_'+ rowId;
138
 
139
         if ( MM_findObj( ajaxdivname ).innerHTML == '<%=enumLOADING%>')
140
         {
141
            //Append the name to search for to the requestURL
142
            var url = requestURL + paramString;
143
 
144
            //Create the xmlHttp object to use in the request
145
            //stateChangeHandler will fire when the state has changed, i.e. data is received back
146
            // This is non-blocking (asynchronous)
147
            xmlHttp = GetXmlHttpObject(stateChangeHandler);
148
 
149
            //Send the xmlHttp get to the specified url
150
            xmlHttp_Get(xmlHttp, url);
151
         }
152
      }
153
 
154
      function RequestReleasePackages( paramString, rowId ){
155
         var requestURL = 'RequestReleasePackages.asp';
156
 
157
         // Show div
158
         ToggleDisplay( 'DIVRTAG_'+ rowId, 'IMG_EXPAND_RTAG_' + rowId, 'IMG_COLLAPSE_RTAG_' + rowId );
159
 
160
         // Set ajax divname
161
         ajaxdivname = 'DIVRTAG_'+ rowId;
162
 
163
         if ( MM_findObj( ajaxdivname ).innerHTML == '<%=enumLOADING%>')
164
         {
165
            //Append the name to search for to the requestURL
166
            var url = requestURL + paramString;
167
 
168
            //Create the xmlHttp object to use in the request
169
            //stateChangeHandler will fire when the state has changed, i.e. data is received back
170
            // This is non-blocking (asynchronous)
171
            xmlHttp = GetXmlHttpObject(stateChangeHandler);
172
 
173
            //Send the xmlHttp get to the specified url
174
            xmlHttp_Get(xmlHttp, url);
175
         }
176
      }
177
 
178
      function RequestTop10ChangesInLastWeek( paramString, rowId ){
179
         var requestURL = 'RequestTop10Changes.asp';
180
 
181
         // Show div
182
         ToggleDisplay( 'DIVRTAG_'+ rowId + '_TOP10_1_WEEK', 'IMG_EXPAND_RTAG_' + rowId + '_TOP10_1_WEEK', 'IMG_COLLAPSE_RTAG_' + rowId + '_TOP10_1_WEEK' );
183
 
184
         // Set ajax divname
185
         ajaxdivname = 'DIVRTAG_'+ rowId + '_TOP10_1_WEEK';
186
 
187
         if ( MM_findObj( ajaxdivname ).innerHTML == '<%=enumLOADING%>')
188
         {
189
            //Append the name to search for to the requestURL
190
            var url = requestURL + paramString;
191
 
192
            //Create the xmlHttp object to use in the request
193
            //stateChangeHandler will fire when the state has changed, i.e. data is received back
194
            // This is non-blocking (asynchronous)
195
            xmlHttp = GetXmlHttpObject(stateChangeHandler);
196
 
197
            //Send the xmlHttp get to the specified url
198
            xmlHttp_Get(xmlHttp, url);
199
         }
200
      }
201
 
202
      function RequestTop10ChangesInLastMonth( paramString, rowId ){
203
         var requestURL = 'RequestTop10Changes.asp';
204
 
205
         // Show div
206
         ToggleDisplay( 'DIVRTAG_'+ rowId + '_TOP10_1_MONTH', 'IMG_EXPAND_RTAG_' + rowId + '_TOP10_1_MONTH', 'IMG_COLLAPSE_RTAG_' + rowId + '_TOP10_1_MONTH' );
207
 
208
         // Set ajax divname
209
         ajaxdivname = 'DIVRTAG_'+ rowId + '_TOP10_1_MONTH';
210
 
211
         if ( MM_findObj( ajaxdivname ).innerHTML == '<%=enumLOADING%>')
212
         {
213
            //Append the name to search for to the requestURL
214
            var url = requestURL + paramString;
215
 
216
            //Create the xmlHttp object to use in the request
217
            //stateChangeHandler will fire when the state has changed, i.e. data is received back
218
            // This is non-blocking (asynchronous)
219
            xmlHttp = GetXmlHttpObject(stateChangeHandler);
220
 
221
            //Send the xmlHttp get to the specified url
222
            xmlHttp_Get(xmlHttp, url);
223
         }
224
      }
225
 
226
      function RequestTop10ChangesInLast3Months( paramString, rowId ){
227
         var requestURL = 'RequestTop10Changes.asp';
228
 
229
         // Show div
230
         ToggleDisplay( 'DIVRTAG_'+ rowId + '_TOP10_3_MONTHS', 'IMG_EXPAND_RTAG_' + rowId + '_TOP10_3_MONTHS', 'IMG_COLLAPSE_RTAG_' + rowId + '_TOP10_3_MONTHS' );
231
 
232
         // Set ajax divname
233
         ajaxdivname = 'DIVRTAG_'+ rowId + '_TOP10_3_MONTHS';
234
 
235
         if ( MM_findObj( ajaxdivname ).innerHTML == '<%=enumLOADING%>')
236
         {
237
            //Append the name to search for to the requestURL
238
            var url = requestURL + paramString;
239
 
240
            //Create the xmlHttp object to use in the request
241
            //stateChangeHandler will fire when the state has changed, i.e. data is received back
242
            // This is non-blocking (asynchronous)
243
            xmlHttp = GetXmlHttpObject(stateChangeHandler);
244
 
245
            //Send the xmlHttp get to the specified url
246
            xmlHttp_Get(xmlHttp, url);
247
         }
248
      }
249
 
250
      function RequestPreviousPackageVersions( paramString, rowId ){
251
         var requestURL = 'RequestPackageVersionHistoryMetrics.asp';
252
 
253
         // Show div
254
         ToggleDisplay( 'DIVRTAG_'+ rowId + '_PREV_PKG_VERS', 'IMG_EXPAND_RTAG_' + rowId + '_PREV_PKG_VERS', 'IMG_COLLAPSE_RTAG_' + rowId + '_PREV_PKG_VERS' );
255
 
256
         // Set ajax divname
257
         ajaxdivname = 'DIVRTAG_'+ rowId + '_PREV_PKG_VERS';
258
 
259
         if ( MM_findObj( ajaxdivname ).innerHTML == '<%=enumLOADING%>')
260
         {
261
            //Append the name to search for to the requestURL
262
            var url = requestURL + paramString;
263
 
264
            //Create the xmlHttp object to use in the request
265
            //stateChangeHandler will fire when the state has changed, i.e. data is received back
266
            // This is non-blocking (asynchronous)
267
            xmlHttp = GetXmlHttpObject(stateChangeHandler);
268
 
269
            //Send the xmlHttp get to the specified url
270
            xmlHttp_Get(xmlHttp, url);
271
         }
272
      }
273
 
274
      //-->
275
      </script>
276
      <style type="text/css">
277
      <!--
278
      .style1 {
279
         font-family: Arial, Helvetica, sans-serif;
280
         font-size: 12px;
281
      }
282
      .style3 {
283
         font-size: 11px;
284
         font-family: tahoma, sans-serif;
285
      }
286
      -->
287
      </style>
288
   </head>
289
   <!-- TIPS LAYERS -------------------------------------->
290
   <div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>
6048 dpurdie 291
   <body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
5506 dpurdie 292
      <!-- MENU LAYERS -------------------------------------->
293
      <div id="popmenu" class="menuskin" onmouseover="clearhidemenu();highlightmenu(event,'on')"
294
         onmouseout="highlightmenu(event,'off');dynamichide(event)">
295
      </div>
296
      <!-- HEADER -->
297
      <!--#include file="_header.asp"-->
298
      <!-- BODY ---->
299
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
300
         <tr>
301
            <td width="1%" background="images/bg_home_orange.gif" valign="top">
302
            <!--#include file="_front_explorer.asp"-->
303
            </td>
304
            <td rowspan="2" width="1%" valign="top">
305
               <table width="100%" border="0" cellspacing="0" cellpadding="0">
306
                  <tr>
307
                     <td width="1%">
308
                        <table width="100%" border="0" cellspacing="0" cellpadding="0">
309
                           <tr>
310
                              <td colspan="3">
311
                                 <table width="100%" border="0" cellspacing="0" cellpadding="0">
312
                                    <tr>
313
                                       <td background="images/bg_comp_gear.gif"><img src="images/img_comp_gear_left.jpg" width="436" height="88"></td>
314
                                       <td align="right" background="images/bg_comp_gear.gif"><img src="images/img_comp_gear_right.jpg" width="70" height="88"></td>
315
                                    </tr>
316
                                 </table>
317
                              </td>
318
                              <td background="images/bg_action_norm.gif"></td>
319
                           </tr>
320
                           <tr>
321
                              <td width="1%"><img src="images/h_trsp_dot.gif" width="15" height="518"></td>
322
                              <td width="100%" valign="top" class="body_txt">
323
                                 <br>
324
                                 <!-- MESSAGE BOARD ---------------------------------------------->
325
                                 <table width="100%" border="0" cellspacing="0" cellpadding="0">
326
                                    <tr>
327
                                       <td colspan="2" class="body_sect">Message Board</td>
328
                                    </tr>
329
                                    <tr>
330
                                       <td align="center" width="1%" nowrap class="body_txt" background="images/bg_form_lightbluedark.gif">Due Date</td>
331
                                       <td width="100%" background="images/bg_form_lightbluedark.gif" align="right">
5590 dpurdie 332
                                          <a href="javascript:;" onclick="MM_openVixIFrame('_wform_schedule_add.asp','Add Scheduled Task')"><img src="images/i_schedule.gif" width="16" height="15" border="0" hspace="4" vspace="2" alt="Schedule a Task" title="Schedule a Task"></a><a href="javascript:;" onclick="MM_openVixIFrame('_wform_memo_add.asp','Add Memo')"><img src="images/i_memo.gif" width="12" height="15" border="0" hspace="4" vspace="2" alt="Memo" title="Memo"></a>
5506 dpurdie 333
                                       </td>
334
                                    </tr>
335
                                    <%
336
                                    Set rsTemp = OraDatabase.DbCreateDynaset( Get_Messages, cint(0))
337
                                    If rsTemp.RecordCount < 1 Then Response.write "<tr><td colspan='2' class='msgb_item'>&nbsp;No messages at this time.</td></tr>"
338
                                    While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
339
                                       If rsTemp.Fields("due_date") <> "" Then
340
                                          msgScript = "schedule"
5590 dpurdie 341
                                          msgTitle = "Edit Scheduled Task"
5506 dpurdie 342
                                       Else
343
                                          msgScript = "memo"
5590 dpurdie 344
                                          msgTitle = "Edit Memo"
5506 dpurdie 345
                                       End If
346
                                       %>
347
                                       <tr>
348
                                          <td align="center" valign="top" nowrap>
349
                                             <%If rsTemp.Fields("due_date") <> "" Then%>
5590 dpurdie 350
                                             <a href="javascript:;" onClick="MM_openVixIFrame('_wform_<%=msgScript%>_edit.asp?FRmsg_id=<%=rsTemp.Fields("msg_id")%>','<%=msgTitle%>')" class="msgb_item">
5632 dpurdie 351
                                             <%=DisplayDate(rsTemp.Fields("due_date"))%>
5506 dpurdie 352
                                             <br>
353
                                             <img src="images/i_clock.gif" width="14" height="14" border="0">
354
                                             </a>
355
                                             <%Else%>
356
                                             <img src="images/h_trsp_dot.gif" width="1" height="25">
357
                                             <%End If%>
358
                                          </td>
5590 dpurdie 359
                                          <td valign="top"><a href="javascript:;" onClick="MM_openVixIFrame('_wform_<%=msgScript%>_edit.asp?FRmsg_id=<%=rsTemp.Fields("msg_id")%>','<%=msgTitle%>')" class="msgb_item"><%=Replace(rsTemp.Fields("msg_details"), VBNewLine, "<br>")%></a>
5506 dpurdie 360
                                          </td>
361
                                       </tr>
362
                                       <tr>
363
                                          <td colspan="2" background="images/bg_form_lightbluedark.gif"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
364
                                       </tr>
365
                                       <%
366
                                       rsTemp.MoveNext
367
                                      WEnd
368
                                    rsTemp.Close
369
                                    Set rsTemp = nothing
370
                                    %>
371
                                    <tr>
372
                                       <td><img src="images/h_trsp_dot.gif" width="80" height="1"></td>
373
                                       <td align="right"></td>
374
                                    </tr>
375
                                 </table>
376
                                 <!-- MESSAGE BOARD END ---------------------------------------------->
377
                                 <br>
378
                                 <br>
379
                                 <!-- WORK IN PROGRESS ---------------------------------------------->
380
                                 <table width="100%" border="0" cellspacing="1" cellpadding="1">
381
                                    <tr>
5901 dpurdie 382
                                       <td colspan="4" class="body_sect">Work In Progress<%=Quick_Help("h_wip")%>
383
                                       </td>
5506 dpurdie 384
                                    </tr>
385
                                    <tr>
386
                                       <td width="40%" nowrap class="body_txt" background="images/bg_form_lightbluedark.gif">&nbsp;User</td>
387
                                       <td width="50%" nowrap class="body_txt" background="images/bg_form_lightbluedark.gif">&nbsp;Package Count</td>
388
                                       <td width="1%" background="images/bg_form_lightbluedark.gif"><img src="images/h_trsp_dot.gif" width="1" height="17"></td>
389
                                    </tr>
390
                                    <!-- PERSONAL WORK IN PROGRESS  -->
391
                                    <%
392
                                    If objAccessControl.UserLogedIn Then
393
 
394
                                       OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
395
 
396
                                       Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("WorkInProgressByUser.sql"), cint(0))
397
 
398
                                       OraDatabase.Parameters.Remove "USER_ID"
399
 
400
                                       userId = rsTemp("user_id")
401
                                       %>
402
                                       <tr>
403
                                          <td nowrap>
404
                                             <span id="IMG_EXPAND_WIP_<%=userId%>" style="display:block;">
405
                                                <a href="javascript:;" class="txt_linked" onClick="RequestUserWip('?user_id=<%=userId%>', '<%=userId%>');"><img src="images/bt_plus.gif" border="0" align="absmiddle" hspace="3"><img src="images/i_user.gif" border="0" align="absmiddle" hspace="3"><%=rsTemp("full_name")%></a>
406
                                             </span>
407
                                             <span id="IMG_COLLAPSE_WIP_<%=userId%>" style="display:none;">
408
                                                <a href="javascript:;" class="txt_linked" onClick="ToggleDisplay( 'DIVWIP_<%=userId%>', 'IMG_EXPAND_WIP_<%=userId%>', 'IMG_COLLAPSE_WIP_<%=userId%>');"><img src="images/bt_minus.gif" border="0" align="absmiddle" hspace="3"><img src="images/i_user.gif" border="0" align="absmiddle" hspace="3"><%=rsTemp("full_name")%></a>
409
                                             </span>
410
                                          </td>
411
                                          <td nowrap class="body_txt"><%=rsTemp("counter")%></td>
412
                                          <td nowrap class="body_txt"><a href="mailto:<%=rsTemp("user_email")%>"><img src="images/bt_send_email.gif" width="36" height="13" border="0" alt="<%=rsTemp("user_email")%>"></a>
413
                                          </td>
414
                                       </tr>
415
                                       <tr>
416
                                          <td nowrap class="body_txt" colspan="3">
417
                                             <div id="DIVWIP_<%=userId%>" style="display:none;"><%=enumLOADING%></div>
418
                                          </td>
419
                                       </tr>
420
                                       <tr>
421
                                          <td colspan="3" background="images/bg_form_lightbluedark_line.gif"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
422
                                       </tr>
423
                                       <%
424
                                       rsTemp.Close
425
                                       Set rsTemp = nothing
426
                                    End If%>
427
                                 </table>
428
                                 <!--  WORK IN PROGRESS END ------------------------------------------>
5901 dpurdie 429
                                 <!-- DANGLING PACKAGES ---------------------------------------------->
430
                                <%
431
                                pkgCount = 0
432
                                If objAccessControl.UserLogedIn Then
433
                                   OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
434
                                   Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("WorkNotInProgressByUser.sql"), cint(0))
435
                                   OraDatabase.Parameters.Remove "USER_ID"
436
                                   userId = rsTemp("user_id")
437
                                   pkgCount = rsTemp("counter")
438
                                End If    
439
                                %>
440
                                 <table width="100%" border="0" cellspacing="1" cellpadding="1">
441
                                    <tr>
442
                                       <td colspan="4" class="body_sect">Dangling Package Versions
443
                                       <%=Quick_Help("h_dangling")%>
444
                                       <%If pkgCount > 10 Then%>
445
                                            <img src='images/a_warning.gif' width='21' height='21' border='0' title='Unreleased packages that are not in use.'>
446
                                       <%End If%>
447
                                       </td>
448
                                    </tr>
449
                                    <tr>
450
                                       <td width="40%" nowrap class="body_txt" background="images/bg_form_lightbluedark.gif">&nbsp;User
451
                                       </td>
452
                                       <td width="50%" nowrap class="body_txt" background="images/bg_form_lightbluedark.gif">&nbsp;Package Count</td>
453
                                       <td width="1%" background="images/bg_form_lightbluedark.gif"><img src="images/h_trsp_dot.gif" width="1" height="17"></td>
454
                                    </tr>
455
                                    <%If objAccessControl.UserLogedIn Then %>
456
                                       <tr>
457
                                          <td nowrap>
458
                                             <span id="IMG_EXPAND_DANGLE_<%=userId%>" style="display:block;">
459
                                                <a href="javascript:;" class="txt_linked" onClick="RequestUserDangle('?user_id=<%=userId%>', '<%=userId%>');"><img src="images/bt_plus.gif" border="0" align="absmiddle" hspace="3"><img src="images/i_user.gif" border="0" align="absmiddle" hspace="3"><%=rsTemp("full_name")%></a>
460
                                             </span>
461
                                             <span id="IMG_COLLAPSE_DANGLE_<%=userId%>" style="display:none;">
462
                                                <a href="javascript:;" class="txt_linked" onClick="RequestUserDangle('?user_id=<%=userId%>', '<%=userId%>');"><img src="images/bt_minus.gif" border="0" align="absmiddle" hspace="3"><img src="images/i_user.gif" border="0" align="absmiddle" hspace="3"><%=rsTemp("full_name")%></a>
463
                                             </span>
464
                                          </td>
465
                                          <td nowrap class="body_txt"><%=pkgCount%></td>
466
                                          <td nowrap class="body_txt"><a href="mailto:<%=rsTemp("user_email")%>"><img src="images/bt_send_email.gif" width="36" height="13" border="0" alt="<%=rsTemp("user_email")%>"></a>
467
                                          </td>
468
                                       </tr>
469
                                       <tr>
470
                                          <td nowrap class="body_txt" colspan="3">
471
                                             <div id="DIVDANGLE_<%=userId%>" style="display:none;"><%=enumLOADING%></div>
472
                                          </td>
473
                                       </tr>
474
                                       <tr>
475
                                          <td colspan="3" background="images/bg_form_lightbluedark_line.gif"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
476
                                       </tr>
477
                                       <%
478
                                       rsTemp.Close
479
                                       Set rsTemp = nothing
480
                                    End If%>
481
                                 </table>
482
                                 <!-- DANGLING PACKAGES END ------------------------------------------>
5506 dpurdie 483
                                 <br>
484
                                 <br>
485
                                 <!-- RELEASE METRICS -------------------------------------------------------->
486
                                 <table width="100%" border="0" cellspacing="0" cellpadding="0">
487
                                    <tr>
488
                                       <td colspan="4" class="body_sect">Release Metrics</td>
489
                                    </tr>
490
                                    <tr>
491
                                       <td colspan="2">
492
                                          <table width="100%" border="0" cellspacing="1" cellpadding="1">
493
                                             <tr>
494
                                                <td nowrap class="body_txt" valign="top" background="images/bg_form_lightbluedark.gif">Project</td>
495
                                                <td nowrap class="body_txt" valign="top" background="images/bg_form_lightbluedark.gif">Last Autobuilt<br>Release</td>
496
                                                <td nowrap class="body_txt" valign="top" background="images/bg_form_lightbluedark.gif">Last Autobuild<br>Completed</td>
497
                                                <td nowrap class="body_txt" valign="top" background="images/bg_form_lightbluedark.gif">Autobuilt Packages</td>
498
                                             </tr>
499
                                             <%
500
                                             Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("ProjectsWithMetrics.sql"), cint(0))
501
 
502
                                             While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
503
                                                OraDatabase.Parameters.Add "PROJ_ID", rsQry("proj_id"), ORAPARM_INPUT, ORATYPE_NUMBER
504
 
505
                                                Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("ReleaseMetrics.sql"), cint(0))
506
 
507
                                                If rsTemp.RecordCount > 0 Then
508
                                                   Auto=FormatPercent(rsTemp("autobuilt")/rsTemp("total_packages"), 2)
509
                                                End If
510
                                                %>
511
                                                <tr>
512
                                                   <td background="images/bg_form_lightgray.gif" nowrap class="body_txt">
513
                                                      <span id="IMG_EXPAND_PROJ_<%=rsQry("proj_id")%>" style="display:block;">
514
                                                         <a href="javascript:;" class="txt_linked" onClick="RequestProjectRelease('?proj_id=<%=rsQry("proj_id")%>', '<%=rsQry("proj_id")%>');"><img src="images/bt_plus.gif" border="0" align="absmiddle" hspace="3"><img src="images/i_world.gif" border="0" align="absmiddle" hspace="3"><%=rsQry("proj_name")%></a>
515
                                                      </span>
516
                                                      <span id="IMG_COLLAPSE_PROJ_<%=rsQry("proj_id")%>" style="display:none;">
517
                                                         <a href="javascript:;" class="txt_linked" onClick="ToggleDisplay( 'DIVPROJ_<%=rsQry("proj_id")%>', 'IMG_EXPAND_PROJ_<%=rsQry("proj_id")%>', 'IMG_COLLAPSE_PROJ_<%=rsQry("proj_id")%>');"><img src="images/bt_minus.gif" border="0" align="absmiddle" hspace="3"><img src="images/i_world.gif" border="0" align="absmiddle" hspace="3"><%=rsQry("proj_name")%></a>
518
                                                      </span>
519
                                                   </td>
520
                                                   <td background="images/bg_form_lightgray.gif" nowrap class="body_txt"><%=rsTemp("rtag_name")%></td>
521
                                                   <td background="images/bg_form_lightgray.gif" nowrap class="body_txt"><%=rsTemp("last_build_time")%></td>
522
                                                   <%If rsTemp.RecordCount > 0 Then%>
523
                                                   <td background="images/bg_form_lightgray.gif" nowrap class="body_txt"><%=rsTemp("autobuilt")%>/<%=rsTemp("total_packages")%>
524
                                                      (<%=Auto%>)</td>
525
                                                   <%Else%>
526
                                                   <td background="images/bg_form_lightgray.gif" nowrap class="body_txt"></td>
527
                                                   <%End If%>
528
                                                </tr>
529
                                                <tr>
530
                                                   <td nowrap class="body_txt" colspan="4">
531
                                                      <div id="DIVPROJ_<%=rsQry("proj_id")%>" style="display:none;"><%=enumLOADING%></div>
532
                                                   </td>
533
                                                </tr>
534
                                                <tr>
535
                                                   <td colspan="5" background="images/bg_form_lightbluedark_line.gif"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
536
                                                </tr>
537
                                                <%
538
                                                OraDatabase.Parameters.Remove "PROJ_ID"
539
                                                rsTemp.Close()
540
                                                Set rsTemp = Nothing
541
                                                rsQry.MoveNext
542
                                             Wend
543
 
544
                                             rsQry.Close()
545
                                             Set rsQry = Nothing
546
                                             %>
547
                                          </table>
548
                                       </td>
549
                                    </tr>
550
                                 </table>
551
                                 <!-- DASH BOARD END ---------------------------------------------------->
552
                              </td>
553
                              <td width="1%"><img src="images/h_trsp_dot.gif" width="15" height="10"></td>
554
                              <td background="images/bg_action_norm.gif" width="1%"><img src="images/h_trsp_dot.gif" width="5" height="10"></td>
555
                           </tr>
556
                        </table>
557
                     </td>
558
                  </tr>
559
               </table>
560
            </td>
561
            <td width="100%">&nbsp;</td>
562
         </tr>
563
         <tr>
564
            <td valign="bottom" align="center" background="images/bg_home_orange.gif"><img src="images/img_gear.gif" width="107" height="107" vspace="20" hspace="30"></td>
565
            <td>&nbsp;</td>
566
         </tr>
567
      </table>
568
      <!-- FOOTER -->
5957 dpurdie 569
     <!--#include file="_footer.asp"-->
5506 dpurdie 570
   </body>
571
</html>