Subversion Repositories DevTools

Rev

Rev 6615 | Rev 6971 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6615 Rev 6790
Line 25... Line 25...
25 
'------------ Variable Init -------------------
 25 
'------------ Variable Init -------------------
26 
parPvId = Request("pv_id")
 26 
parPvId = Request("pv_id")
27 
parMode = Request ("mode")
 27 
parMode = Request ("mode")
28 
'----------------------------------------------
 28 
'----------------------------------------------
29 
%>
 29 
%>
30 
<table width="100%" border="0" cellspacing="0" cellpadding="0">
 30 
<table width="100%" border="0" cellspacing="1" cellpadding="3" class="stdGrey">
31 
	<tr>
 31 
    <thead>
32 
	 <td background="images/bg_form_lightbluedark.gif">
- 
 
33
- 
 
34 
        <table width="100%" border="0" cellspacing="1" cellpadding="3">
 - 
 
35 
          <tr>
 32 
      <tr>
36 
            <td width="33%" background="images/bg_form_lightbluedark.gif" nowrap class="body_col">Release</td>
 33 
        <th width="33%" nowrap>Release</th>
37 
            <td width="33%" background="images/bg_form_lightbluedark.gif" nowrap class="body_col">Location</td>
 34 
        <th width="33%" nowrap>Location</th>
38 
            <td width="33%" background="images/bg_form_lightbluedark.gif" nowrap class="body_col">Version&nbsp;Used</td>
 35 
        <th width="33%" nowrap>Version&nbsp;Used</th>
39 
            <td width="1" background="images/bg_form_lightbluedark.gif" nowrap class="body_col">Last&nbsp;Modified</td>
 36 
        <th width="1"   nowrap>Last&nbsp;Modified</th>
40 
          </tr>
 37 
      </tr>
- 
 
 38 
    </thead>
41 
 
 39 
 
42 
<%
 40 
<%
43 
          OraDatabase.Parameters.Add "PROJ_ID", Request("proj_id"), 	ORAPARM_INPUT, ORATYPE_NUMBER
41 
  OraDatabase.Parameters.Add "PROJ_ID", Request("proj_id"), 	ORAPARM_INPUT, ORATYPE_NUMBER
44 
          OraDatabase.Parameters.Add "PV_ID",   parPvId, ORAPARM_INPUT, ORATYPE_NUMBER
42 
  OraDatabase.Parameters.Add "PV_ID",   parPvId, ORAPARM_INPUT, ORATYPE_NUMBER
45 
          OraDatabase.Parameters.Add "MATCH",   parMode, ORAPARM_INPUT, ORATYPE_VARCHAR2
 43 
  OraDatabase.Parameters.Add "MATCH",   parMode, ORAPARM_INPUT, ORATYPE_VARCHAR2
46
44
47 
          Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("UsedByThisProject.sql"), cint(0))
 45 
  Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("UsedByThisProject.sql"), cint(0))
48
46
49 
          OraDatabase.Parameters.Remove "PROJ_ID"
 47 
  OraDatabase.Parameters.Remove "PROJ_ID"
50 
          OraDatabase.Parameters.Remove "PV_ID"
 48 
  OraDatabase.Parameters.Remove "PV_ID"
51 
          OraDatabase.Parameters.Remove "MATCH"
 49 
  OraDatabase.Parameters.Remove "MATCH"
52 
          %>
 50 
  %>
53 
          <%If rsTemp.RecordCount < 1 Then%>
 51 
  <%If rsTemp.RecordCount < 1 Then%>
54 
          <tr>
52 
  <tr>
55 
            <td background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td>
 - 
 
56 
            <td background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td>
 - 
 
57 
            <td background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td>
 - 
 
58 
            <td background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td>
 - 
 
59 
          </tr>
 53 
    <td nowrap>&nbsp;</td>
60 
          <%End If%>
 - 
 
61 
          <%While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))%>
 - 
 
62 
          <tr>
- 
 
63 
            <td background="images/bg_form_lightgray.gif" nowrap><a href="dependencies.asp?pv_id=<%=rsTemp("pv_id")%>&rtag_id=<%=rsTemp("rtag_id")%>" class="txt_linked"><%=ReleaseIcon( rsTemp("official") )%>&nbsp;<%=rsTemp("rtag_name")%></a></td>
 - 
 
64 
            <td background="images/bg_form_lightgray.gif" class="body_txt_gray" nowrap><%=GetEnvName(rsTemp("env_area")) %></td>
 - 
 
65 
            <td background="images/bg_form_lightgray.gif" <%If rsTemp("pv_id") <> Request("pv_id") Then%>class="err_alert"<%Else%>class="form_item"<%End If%>><%=rsTemp.Item ("pkg_name") &" "& rsTemp("pkg_version")%></td>
 - 
 
66 
            <td background="images/bg_form_lightgray.gif" class="form_item" nowrap><%=emailField(enum_imgUser & rsTemp("full_name"), rsTemp("user_email"))%>&nbsp;<%=DisplayDate ( rsTemp("modified_stamp") )%></td>
 - 
 
67 
          </tr>
 54 
    <td nowrap>&nbsp;</td>
68 
          <%rsTemp.MoveNext
 55 
    <td nowrap>&nbsp;</td>
69 
          WEnd
 - 
 
70 
          rsTemp.Close
 56 
    <td nowrap>&nbsp;</td>
71 
          Set rsTemp = nothing%>
 - 
 
72 
        </table>
 - 
 
73 
    </td>
- 
 
74 
  </tr>
 57 
  </tr>
- 
 
 58 
  <%End If%>
- 
 
 59 
  <%While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))%>
- 
 
 60 
  <tr>
- 
 
 61 
    <td nowrap><a href="dependencies.asp?pv_id=<%=rsTemp("pv_id")%>&rtag_id=<%=rsTemp("rtag_id")%>" class="txt_linked"><%=ReleaseIcon( rsTemp("official") )%>&nbsp;<%=rsTemp("rtag_name")%></a></td>
- 
 
 62 
    <td nowrap><%=GetEnvName(rsTemp("env_area")) %></td>
- 
 
 63 
    <td <%If rsTemp("pv_id") <> Request("pv_id") Then%>class="err_alert"<%Else%>class="form_item"<%End If%>><%=rsTemp.Item ("pkg_name") &" "& rsTemp("pkg_version")%></td>
- 
 
 64 
    <td nowrap><%=emailField(enum_imgUser & rsTemp("full_name"), rsTemp("user_email"))%>&nbsp;<%=DisplayDate ( rsTemp("modified_stamp") )%></td>
- 
 
 65 
  </tr>
- 
 
 66 
  <%rsTemp.MoveNext
- 
 
 67 
  WEnd
- 
 
 68 
  rsTemp.Close
- 
 
 69 
  Set rsTemp = nothing%>
75 
</table>
 70 
</table>
76 
<%
 71 
<%
77 
Call Destroy_All_Objects
 72 
Call Destroy_All_Objects
78 
%>
73 
%>
79 

            74