Subversion Repositories DevTools

Rev

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