Subversion Repositories DevTools

Rev

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

Rev 5926 Rev 5939
Line 27... Line 27...
27 
Dim pkgId
 27 
Dim pkgId
28 
Dim parPkg_id
 28 
Dim parPkg_id
29 
Dim parVext
 29 
Dim parVext
30 
Dim parPvId
 30 
Dim parPvId
31 
Dim projId, projName, projCount
 31 
Dim projId, projName, projCount
- 
 
 32 
Dim parExactMatch
- 
 
 33 
Dim matchPVID
- 
 
 34 
Dim divId
32 
'------------ Constants Declaration -----------
 35 
'------------ Constants Declaration -----------
33 
'------------ Variable Init -------------------
 36 
'------------ Variable Init -------------------
34 
parPvId = Request("pv_id")
 37 
parPvId = Request("pv_id")
35 
parPkg_id = Request ("pkg_id")
 38 
parPkg_id = Request ("pkg_id")
36 
parVext = Request ("v_ext")
 39 
parVext = Request ("v_ext")
- 
 
 40 
matchPVID = -1
- 
 
 41 
parExactMatch = Request ("mode")
- 
 
 42 
If (parExactMatch = 1 ) Then
- 
 
 43 
    matchPVID = parPvId
- 
 
 44 
End If
37 
'----------------------------------------------
 45 
'----------------------------------------------
38 
%>
 46 
%>
39 
<%
 47 
<%
40 
'------------------------------------------------------------------------------------------------------------------------
 48 
'------------------------------------------------------------------------------------------------------------------------
41 
%>
 49 
%>
Line 48... Line 56...
48 
         <tr>
 56 
         <tr>
49 
            <td width="1%" background="images/bg_form_lightbluedark.gif" nowrap class="body_col"></td>
 57 
            <td width="1%" background="images/bg_form_lightbluedark.gif" nowrap class="body_col"></td>
50 
            <td width="100%" background="images/bg_form_lightbluedark.gif" nowrap class="body_col">Project</td>
 58 
            <td width="100%" background="images/bg_form_lightbluedark.gif" nowrap class="body_col">Project</td>
51 
         </tr>
 59 
         </tr>
52 
         <%
 60 
         <%
53 
         OraDatabase.Parameters.Add "PKG_ID",  parPkg_id,     ORAPARM_INPUT, ORATYPE_NUMBER
 61 
         OraDatabase.Parameters.Add "PKG_ID",  parPkg_id, ORAPARM_INPUT, ORATYPE_NUMBER
54 
         If parVext <> "" Then
 - 
 
55 
            OraDatabase.Parameters.Add "V_EXT",   parVext,    ORAPARM_INPUT, ORATYPE_VARCHAR2
 62 
		 OraDatabase.Parameters.Add "V_EXT",   EmptyToNull(parVext), ORAPARM_INPUT, ORATYPE_VARCHAR2
56 
         Else
 - 
 
57 
            OraDatabase.Parameters.Add "V_EXT",   NULL,       ORAPARM_INPUT, ORATYPE_VARCHAR2
 63 
         OraDatabase.Parameters.Add "PV_ID",   matchPVID, ORAPARM_INPUT, ORATYPE_NUMBER
58 
         End If
 - 
 
59 
 
 64 
 
60 
         Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("UsedByProjects.sql"), cint(0) )
 65 
         Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("UsedByProjects.sql"), cint(0) )
61 
 
 66 
 
62 
         OraDatabase.Parameters.Remove "PKG_ID"
 67 
         OraDatabase.Parameters.Remove "PKG_ID"
63 
         OraDatabase.Parameters.Remove "V_EXT"
 68 
         OraDatabase.Parameters.Remove "V_EXT"
- 
 
 69 
         OraDatabase.Parameters.Remove "PV_ID"
64 
         %>
 70 
         %>
65 
         <%If rsTemp.RecordCount < 1 Then%>
 71 
         <%If rsTemp.RecordCount < 1 Then%>
66 
            <tr>
 72 
            <tr>
67 
               <td background="images/bg_form_lightgray.gif" nowrap class="form_item">&nbsp;</td>
 73 
               <td background="images/bg_form_lightgray.gif" nowrap class="form_item">&nbsp;</td>
68 
               <td background="images/bg_form_lightgray.gif" nowrap class="form_item">&nbsp;</td>
 74 
               <td background="images/bg_form_lightgray.gif" nowrap class="form_item">&nbsp;</td>
Line 70... Line 76...
70 
         <%End If%>
 76 
         <%End If%>
71 
         <%While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
 77 
         <%While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
72 
            projId = rsTemp("proj_id")
 78 
            projId = rsTemp("proj_id")
73 
            projName = rsTemp("proj_name")
 79 
            projName = rsTemp("proj_name")
74 
            projCount = rsTemp("used_count")
 80 
            projCount = rsTemp("used_count")
- 
 
 81 
            divId = "PROJID_" & projId & parExactMatch
75 
            %>
 82 
            %>
76 
            <tr>
 83 
            <tr>
77 
               <td background="images/bg_form_lightgray.gif" class="form_item"></td>
 84 
               <td background="images/bg_form_lightgray.gif" class="form_item"></td>
78 
               <td nowrap background="images/bg_form_lightgray.gif" class="form_item">
 85 
               <td nowrap background="images/bg_form_lightgray.gif" class="form_item">
79 
                  <a href="javascript:;" class="txt_linked" onClick="ToggleUsedByControl('PROJID_<%=projId%>','RequestUsedByThisProject.asp?pv_id=<%=parPvId%>&proj_id=<%=projId%>');">
 86 
                  <a href="javascript:;" class="txt_linked" onClick="ToggleUsedByControl('<%=divId%>','RequestUsedByThisProject.asp?pv_id=<%=parPvId%>&proj_id=<%=projId%>&mode=<%=parExactMatch%>');">
80 
                        <img id=IMG_PROJID_<%=projId%> src="images/bt_plus.gif" border="0" align="absmiddle" hspace="3">
 87 
                        <img id=IMG_<%=divId%> src="images/bt_plus.gif" border="0" align="absmiddle" hspace="3">
81 
                        <%= projName &" ("& projCount &")"%>
 88 
                        <%= projName &" ("& projCount &")"%>
82 
                   </a>
 89 
                   </a>
83 
                  <DIV class="form_item" id="PROJID_<%=projId%>" style="display:none;"><%=enumLOADING%></DIV>
 90 
                  <DIV class="form_item" id="<%=divId%>" style="display:none;"><%=enumLOADING%></DIV>
84 
               </td>
 91 
               </td>
85 
            </tr>
 92 
            </tr>
86 
 
 93 
 
87 
            <%rsTemp.MoveNext
 94 
            <%rsTemp.MoveNext
88 
         WEnd
 95 
         WEnd