Subversion Repositories DevTools

Rev

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

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