Subversion Repositories DevTools

Rev

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