Subversion Repositories DevTools

Rev

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

Rev Author Line No. Line
119 ghuddy 1
<%@LANGUAGE="VBSCRIPT"%>
2
<%
3
'=====================================================
4
'|                                                   |
125 ghuddy 5
'|            RequestProjectRelease.asp              |
119 ghuddy 6
'|                                                   |
7
'=====================================================
8
%>
9
<%
10
Option explicit
11
' Good idea to set when using redirect
125 ghuddy 12
Response.Expires = 0   ' always load the page, dont store
119 ghuddy 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
'------------ Variable Definition -------------
21
Dim rsTemp
22
Dim PageInfoHash
125 ghuddy 23
Dim Query_String
24
Dim Auto
119 ghuddy 25
'------------ Constants Declaration -----------
26
'------------ Variable Init -------------------
27
Set PageInfoHash = CreateObject("Scripting.Dictionary")
28
'----------------------------------------------
29
'------------------------ MAIN LINE ---------------------------------
30
%>
31
<table width="100%" border="0" cellspacing="1" cellpadding="1">
125 ghuddy 32
   <tr>
33
      <td background="images/bg_form_lightbluedark.gif">
34
         <table width="100%" border="0" cellspacing="1" cellpadding="3">
35
            <tr>
36
               <td nowrap class="body_txt" valign="top" background="images/bg_form_lightbluedark.gif">Release</td>
37
               <td nowrap class="body_txt" valign="top" background="images/bg_form_lightbluedark.gif">Last Autobuild<br>Completed</td>
38
               <td nowrap class="body_txt" valign="top" background="images/bg_form_lightbluedark.gif">Autobuilt Packages</td>
39
               <td nowrap class="body_txt" valign="top" background="images/bg_form_lightbluedark.gif">Lines Of Code</td>
40
               <td nowrap class="body_txt" valign="top" background="images/bg_form_lightbluedark.gif">Unit Tested</td>
41
               <td nowrap class="body_txt" valign="top" background="images/bg_form_lightbluedark.gif">Autotested</td>
42
            </tr>
119 ghuddy 43
 
125 ghuddy 44
            <%
45
            OraDatabase.Parameters.Add "PROJ_ID", Request("proj_id"),    ORAPARM_INPUT, ORATYPE_NUMBER
119 ghuddy 46
 
125 ghuddy 47
            Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("ReleaseMetrics.sql"), cint(0))
48
 
49
            OraDatabase.Parameters.Remove "PROJ_ID"
50
 
51
            If rsTemp.RecordCount < 1 Then%>
52
               <tr>
53
                  <td background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td>
54
               </tr>
55
            <%Else
56
 
57
               While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
58
 
59
                  Auto=FormatPercent(rsTemp("autobuilt")/rsTemp("total_packages"), 2)
60
                  %>
61
 
62
                  <tr>
63
                     <td background="images/bg_form_lightgray.gif" nowrap class="body_txt">
64
                        <SPAN id="IMG_EXPAND_RTAG_<%=rsTemp("rtag_id")%>" style="display:block;">
65
                           <a href="javascript:;" class="txt_linked" onClick="RequestReleasePackages('?rtag_id=<%=rsTemp("rtag_id")%>', '<%=rsTemp("rtag_id")%>');">
66
                              <img src="images/bt_plus.gif" border="0" align="absmiddle" hspace="3">
67
                              <img src="images/i_world.gif" border="0" align="absmiddle" hspace="3">
68
                              <%=rsTemp("rtag_name")%>
69
                           </a>
70
                        </SPAN>
71
                        <SPAN id="IMG_COLLAPSE_RTAG_<%=rsTemp("rtag_id")%>" style="display:none;">
72
                           <a href="javascript:;" class="txt_linked" onClick="ToggleDisplay( 'DIVRTAG_<%=rsTemp("rtag_id")%>', 'IMG_EXPAND_RTAG_<%=rsTemp("rtag_id")%>', 'IMG_COLLAPSE_RTAG_<%=rsTemp("rtag_id")%>');">
73
                              <img src="images/bt_minus.gif" border="0" align="absmiddle" hspace="3">
74
                              <img src="images/i_world.gif" border="0" align="absmiddle" hspace="3">
75
                              <%=rsTemp("rtag_name")%>
76
                           </a>
77
                        </SPAN>
78
                     </td>
79
                     <td nowrap class="body_txt" background="images/bg_form_lightgray.gif"><%=rsTemp("last_build_time")%></td>
80
                     <td nowrap class="body_txt" background="images/bg_form_lightgray.gif"><%=rsTemp("autobuilt")%>/<%=rsTemp("total_packages")%> (<%=Auto%>)</td>
81
                     <td nowrap class="body_txt" background="images/bg_form_lightgray.gif"><%=rsTemp("lines_of_code")%></td>
82
                     <td nowrap class="body_txt" background="images/bg_form_lightgray.gif"><%=rsTemp("unit_tested")%></td>
83
                     <td nowrap class="body_txt" background="images/bg_form_lightgray.gif"><%=rsTemp("autotested")%></td>
84
                  </tr>
85
                  <tr>
86
                     <td nowrap class="body_txt" colspan="6">
87
                        <DIV id="DIVRTAG_<%=rsTemp("rtag_id")%>" style="display:none;"><%=enumLOADING%></DIV>
88
                     </td>
89
                  </tr>
90
 
91
                  <%rsTemp.MoveNext
92
               WEnd
93
               rsTemp.Close
94
               Set rsTemp = nothing
95
 
96
            End If%>
97
         </table>
98
    </td>
119 ghuddy 99
  </tr>
100
</table>
101
<br>
125 ghuddy 102
 
119 ghuddy 103
<%
104
Call Destroy_All_Objects
125 ghuddy 105
%>