Subversion Repositories DevTools

Rev

Rev 6181 | Rev 6579 | 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
%>
6181 dpurdie 22
<!--#include file="_access_control_login_optional.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>
6048 dpurdie 289
   <body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
5506 dpurdie 290
      <!-- HEADER -->
291
      <!--#include file="_header.asp"-->
292
      <!-- BODY ---->
293
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
294
         <tr>
295
            <td width="1%" background="images/bg_home_orange.gif" valign="top">
296
            <!--#include file="_front_explorer.asp"-->
297
            </td>
298
            <td rowspan="2" width="1%" valign="top">
299
               <table width="100%" border="0" cellspacing="0" cellpadding="0">
300
                  <tr>
301
                     <td width="1%">
302
                        <table width="100%" border="0" cellspacing="0" cellpadding="0">
303
                           <tr>
304
                              <td colspan="3">
305
                                 <table width="100%" border="0" cellspacing="0" cellpadding="0">
306
                                    <tr>
307
                                       <td background="images/bg_comp_gear.gif"><img src="images/img_comp_gear_left.jpg" width="436" height="88"></td>
308
                                       <td align="right" background="images/bg_comp_gear.gif"><img src="images/img_comp_gear_right.jpg" width="70" height="88"></td>
309
                                    </tr>
310
                                 </table>
311
                              </td>
312
                              <td background="images/bg_action_norm.gif"></td>
313
                           </tr>
314
                           <tr>
315
                              <td width="1%"><img src="images/h_trsp_dot.gif" width="15" height="518"></td>
316
                              <td width="100%" valign="top" class="body_txt">
317
                                 <br>
318
                                 <!-- MESSAGE BOARD ---------------------------------------------->
319
                                 <table width="100%" border="0" cellspacing="0" cellpadding="0">
320
                                    <tr>
321
                                       <td colspan="2" class="body_sect">Message Board</td>
322
                                    </tr>
323
                                    <tr>
324
                                       <td align="center" width="1%" nowrap class="body_txt" background="images/bg_form_lightbluedark.gif">Due Date</td>
325
                                       <td width="100%" background="images/bg_form_lightbluedark.gif" align="right">
5590 dpurdie 326
                                          <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 327
                                       </td>
328
                                    </tr>
329
                                    <%
330
                                    Set rsTemp = OraDatabase.DbCreateDynaset( Get_Messages, cint(0))
331
                                    If rsTemp.RecordCount < 1 Then Response.write "<tr><td colspan='2' class='msgb_item'>&nbsp;No messages at this time.</td></tr>"
332
                                    While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
333
                                       If rsTemp.Fields("due_date") <> "" Then
334
                                          msgScript = "schedule"
5590 dpurdie 335
                                          msgTitle = "Edit Scheduled Task"
5506 dpurdie 336
                                       Else
337
                                          msgScript = "memo"
5590 dpurdie 338
                                          msgTitle = "Edit Memo"
5506 dpurdie 339
                                       End If
340
                                       %>
341
                                       <tr>
342
                                          <td align="center" valign="top" nowrap>
343
                                             <%If rsTemp.Fields("due_date") <> "" Then%>
5590 dpurdie 344
                                             <a href="javascript:;" onClick="MM_openVixIFrame('_wform_<%=msgScript%>_edit.asp?FRmsg_id=<%=rsTemp.Fields("msg_id")%>','<%=msgTitle%>')" class="msgb_item">
5632 dpurdie 345
                                             <%=DisplayDate(rsTemp.Fields("due_date"))%>
5506 dpurdie 346
                                             <br>
347
                                             <img src="images/i_clock.gif" width="14" height="14" border="0">
348
                                             </a>
349
                                             <%Else%>
350
                                             <img src="images/h_trsp_dot.gif" width="1" height="25">
351
                                             <%End If%>
352
                                          </td>
5590 dpurdie 353
                                          <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 354
                                          </td>
355
                                       </tr>
356
                                       <tr>
357
                                          <td colspan="2" background="images/bg_form_lightbluedark.gif"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
358
                                       </tr>
359
                                       <%
360
                                       rsTemp.MoveNext
361
                                      WEnd
362
                                    rsTemp.Close
363
                                    Set rsTemp = nothing
364
                                    %>
365
                                    <tr>
366
                                       <td><img src="images/h_trsp_dot.gif" width="80" height="1"></td>
367
                                       <td align="right"></td>
368
                                    </tr>
369
                                 </table>
370
                                 <!-- MESSAGE BOARD END ---------------------------------------------->
371
                                 <br>
372
                                 <br>
373
                                 <!-- WORK IN PROGRESS ---------------------------------------------->
374
                                 <table width="100%" border="0" cellspacing="1" cellpadding="1">
375
                                    <tr>
5901 dpurdie 376
                                       <td colspan="4" class="body_sect">Work In Progress<%=Quick_Help("h_wip")%>
377
                                       </td>
5506 dpurdie 378
                                    </tr>
379
                                    <tr>
380
                                       <td width="40%" nowrap class="body_txt" background="images/bg_form_lightbluedark.gif">&nbsp;User</td>
381
                                       <td width="50%" nowrap class="body_txt" background="images/bg_form_lightbluedark.gif">&nbsp;Package Count</td>
382
                                       <td width="1%" background="images/bg_form_lightbluedark.gif"><img src="images/h_trsp_dot.gif" width="1" height="17"></td>
383
                                    </tr>
384
                                    <!-- PERSONAL WORK IN PROGRESS  -->
385
                                    <%
386
                                    If objAccessControl.UserLogedIn Then
387
 
388
                                       OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
389
 
390
                                       Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("WorkInProgressByUser.sql"), cint(0))
391
 
392
                                       OraDatabase.Parameters.Remove "USER_ID"
393
 
394
                                       userId = rsTemp("user_id")
395
                                       %>
396
                                       <tr>
397
                                          <td nowrap>
398
                                             <span id="IMG_EXPAND_WIP_<%=userId%>" style="display:block;">
399
                                                <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>
400
                                             </span>
401
                                             <span id="IMG_COLLAPSE_WIP_<%=userId%>" style="display:none;">
402
                                                <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>
403
                                             </span>
404
                                          </td>
405
                                          <td nowrap class="body_txt"><%=rsTemp("counter")%></td>
406
                                          <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>
407
                                          </td>
408
                                       </tr>
409
                                       <tr>
410
                                          <td nowrap class="body_txt" colspan="3">
411
                                             <div id="DIVWIP_<%=userId%>" style="display:none;"><%=enumLOADING%></div>
412
                                          </td>
413
                                       </tr>
414
                                       <tr>
415
                                          <td colspan="3" background="images/bg_form_lightbluedark_line.gif"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
416
                                       </tr>
417
                                       <%
418
                                       rsTemp.Close
419
                                       Set rsTemp = nothing
420
                                    End If%>
421
                                 </table>
422
                                 <!--  WORK IN PROGRESS END ------------------------------------------>
5901 dpurdie 423
                                 <!-- DANGLING PACKAGES ---------------------------------------------->
424
                                <%
425
                                pkgCount = 0
426
                                If objAccessControl.UserLogedIn Then
427
                                   OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
428
                                   Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("WorkNotInProgressByUser.sql"), cint(0))
429
                                   OraDatabase.Parameters.Remove "USER_ID"
430
                                   userId = rsTemp("user_id")
431
                                   pkgCount = rsTemp("counter")
432
                                End If    
433
                                %>
434
                                 <table width="100%" border="0" cellspacing="1" cellpadding="1">
435
                                    <tr>
436
                                       <td colspan="4" class="body_sect">Dangling Package Versions
437
                                       <%=Quick_Help("h_dangling")%>
438
                                       <%If pkgCount > 10 Then%>
439
                                            <img src='images/a_warning.gif' width='21' height='21' border='0' title='Unreleased packages that are not in use.'>
440
                                       <%End If%>
441
                                       </td>
442
                                    </tr>
443
                                    <tr>
444
                                       <td width="40%" nowrap class="body_txt" background="images/bg_form_lightbluedark.gif">&nbsp;User
445
                                       </td>
446
                                       <td width="50%" nowrap class="body_txt" background="images/bg_form_lightbluedark.gif">&nbsp;Package Count</td>
447
                                       <td width="1%" background="images/bg_form_lightbluedark.gif"><img src="images/h_trsp_dot.gif" width="1" height="17"></td>
448
                                    </tr>
449
                                    <%If objAccessControl.UserLogedIn Then %>
450
                                       <tr>
451
                                          <td nowrap>
452
                                             <span id="IMG_EXPAND_DANGLE_<%=userId%>" style="display:block;">
453
                                                <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>
454
                                             </span>
455
                                             <span id="IMG_COLLAPSE_DANGLE_<%=userId%>" style="display:none;">
456
                                                <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>
457
                                             </span>
458
                                          </td>
459
                                          <td nowrap class="body_txt"><%=pkgCount%></td>
460
                                          <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>
461
                                          </td>
462
                                       </tr>
463
                                       <tr>
464
                                          <td nowrap class="body_txt" colspan="3">
465
                                             <div id="DIVDANGLE_<%=userId%>" style="display:none;"><%=enumLOADING%></div>
466
                                          </td>
467
                                       </tr>
468
                                       <tr>
469
                                          <td colspan="3" background="images/bg_form_lightbluedark_line.gif"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
470
                                       </tr>
471
                                       <%
472
                                       rsTemp.Close
473
                                       Set rsTemp = nothing
474
                                    End If%>
475
                                 </table>
476
                                 <!-- DANGLING PACKAGES END ------------------------------------------>
5506 dpurdie 477
                                 <br>
478
                                 <br>
479
                                 <!-- RELEASE METRICS -------------------------------------------------------->
480
                                 <table width="100%" border="0" cellspacing="0" cellpadding="0">
481
                                    <tr>
482
                                       <td colspan="4" class="body_sect">Release Metrics</td>
483
                                    </tr>
484
                                    <tr>
485
                                       <td colspan="2">
486
                                          <table width="100%" border="0" cellspacing="1" cellpadding="1">
487
                                             <tr>
488
                                                <td nowrap class="body_txt" valign="top" background="images/bg_form_lightbluedark.gif">Project</td>
489
                                                <td nowrap class="body_txt" valign="top" background="images/bg_form_lightbluedark.gif">Last Autobuilt<br>Release</td>
490
                                                <td nowrap class="body_txt" valign="top" background="images/bg_form_lightbluedark.gif">Last Autobuild<br>Completed</td>
491
                                                <td nowrap class="body_txt" valign="top" background="images/bg_form_lightbluedark.gif">Autobuilt Packages</td>
492
                                             </tr>
493
                                             <%
494
                                             Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("ProjectsWithMetrics.sql"), cint(0))
495
 
496
                                             While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
497
                                                OraDatabase.Parameters.Add "PROJ_ID", rsQry("proj_id"), ORAPARM_INPUT, ORATYPE_NUMBER
498
 
499
                                                Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("ReleaseMetrics.sql"), cint(0))
500
 
501
                                                If rsTemp.RecordCount > 0 Then
502
                                                   Auto=FormatPercent(rsTemp("autobuilt")/rsTemp("total_packages"), 2)
503
                                                End If
504
                                                %>
505
                                                <tr>
506
                                                   <td background="images/bg_form_lightgray.gif" nowrap class="body_txt">
507
                                                      <span id="IMG_EXPAND_PROJ_<%=rsQry("proj_id")%>" style="display:block;">
508
                                                         <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>
509
                                                      </span>
510
                                                      <span id="IMG_COLLAPSE_PROJ_<%=rsQry("proj_id")%>" style="display:none;">
511
                                                         <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>
512
                                                      </span>
513
                                                   </td>
514
                                                   <td background="images/bg_form_lightgray.gif" nowrap class="body_txt"><%=rsTemp("rtag_name")%></td>
515
                                                   <td background="images/bg_form_lightgray.gif" nowrap class="body_txt"><%=rsTemp("last_build_time")%></td>
516
                                                   <%If rsTemp.RecordCount > 0 Then%>
517
                                                   <td background="images/bg_form_lightgray.gif" nowrap class="body_txt"><%=rsTemp("autobuilt")%>/<%=rsTemp("total_packages")%>
518
                                                      (<%=Auto%>)</td>
519
                                                   <%Else%>
520
                                                   <td background="images/bg_form_lightgray.gif" nowrap class="body_txt"></td>
521
                                                   <%End If%>
522
                                                </tr>
523
                                                <tr>
524
                                                   <td nowrap class="body_txt" colspan="4">
525
                                                      <div id="DIVPROJ_<%=rsQry("proj_id")%>" style="display:none;"><%=enumLOADING%></div>
526
                                                   </td>
527
                                                </tr>
528
                                                <tr>
529
                                                   <td colspan="5" background="images/bg_form_lightbluedark_line.gif"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
530
                                                </tr>
531
                                                <%
532
                                                OraDatabase.Parameters.Remove "PROJ_ID"
533
                                                rsTemp.Close()
534
                                                Set rsTemp = Nothing
535
                                                rsQry.MoveNext
536
                                             Wend
537
 
538
                                             rsQry.Close()
539
                                             Set rsQry = Nothing
540
                                             %>
541
                                          </table>
542
                                       </td>
543
                                    </tr>
544
                                 </table>
545
                                 <!-- DASH BOARD END ---------------------------------------------------->
546
                              </td>
547
                              <td width="1%"><img src="images/h_trsp_dot.gif" width="15" height="10"></td>
548
                              <td background="images/bg_action_norm.gif" width="1%"><img src="images/h_trsp_dot.gif" width="5" height="10"></td>
549
                           </tr>
550
                        </table>
551
                     </td>
552
                  </tr>
553
               </table>
554
            </td>
555
            <td width="100%">&nbsp;</td>
556
         </tr>
557
         <tr>
558
            <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>
559
            <td>&nbsp;</td>
560
         </tr>
561
      </table>
562
      <!-- FOOTER -->
5957 dpurdie 563
     <!--#include file="_footer.asp"-->
5506 dpurdie 564
   </body>
565
</html>