Subversion Repositories DevTools

Rev

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

Rev 5506 Rev 5590
Line 43... Line 43...
43 
'----------------------------------------------
 43 
'----------------------------------------------
44 
%>
 44 
%>
45 
<%
 45 
<%
46 
'--------------------------------------------------------------------------------------------------------------------------
 46 
'--------------------------------------------------------------------------------------------------------------------------
47 
Sub Add_Package_Interest (nProj_id, nPkg_id_List)
 47 
Sub Add_Package_Interest (nProj_id, nPkg_id_List)
48 
	On Error Resume Next
 - 
 
49 
 
 48 
 
50 
	OraDatabase.Parameters.Add "PROJ_ID",	nProj_id, ORAPARM_INPUT, ORATYPE_NUMBER
 49 
	OraDatabase.Parameters.Add "PROJ_ID",	nProj_id, ORAPARM_INPUT, ORATYPE_NUMBER
51 
	OraDatabase.Parameters.Add "PKG_ID_LIST",	nPkg_id_List, 	ORAPARM_INPUT, ORATYPE_VARCHAR2
 50 
	OraDatabase.Parameters.Add "PKG_ID_LIST",	nPkg_id_List, 	ORAPARM_INPUT, ORATYPE_VARCHAR2
52 
	OraDatabase.Parameters.Add "USER_ID", 	objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
 51 
	OraDatabase.Parameters.Add "USER_ID", 	objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
53 
 
 52 
 
- 
 
 53 
	On Error Resume Next
- 
 
 54 
    objEH.ErrorRedirect = FALSE
54 
	objEH.TryORA ( OraSession )
 55 
	objEH.TryORA ( OraSession )
55 
 
 56 
 
56 
	OraDatabase.ExecuteSQL _
 57 
	OraDatabase.ExecuteSQL _
57 
	"BEGIN   ADD_PACKAGE_INTEREST	( :PROJ_ID, :PKG_ID_LIST, :USER_ID );   END;"
 58 
	"BEGIN   ADD_PACKAGE_INTEREST	( :PROJ_ID, :PKG_ID_LIST, :USER_ID );   END;"
58 
 
 59 
 
Line 77... Line 78...
77 
'----------------------------------------------------
 78 
'----------------------------------------------------
78 
 
 79 
 
79 
If CBool(Request("action")) Then
 80 
If CBool(Request("action")) Then
80 
	If objForm.IsValidOnPostBack Then
 81 
	If objForm.IsValidOnPostBack Then
81 
		' --- Form is Valid ---
 82 
		' --- Form is Valid ---
82 
 
 - 
 
83 
		Call Add_Package_Interest(parProjId, request("pkg_id_list"))
 83 
		Call Add_Package_Interest(parProjId, request("pkg_id_list"))
84 
 
 - 
 
85 
		If objEH.Finally Then
 84 
		If objEH.Finally Then
86 
		%>
 - 
 
87 
	<script language="JavaScript" type="text/javascript">
 85 
            Call ReloadParentWindow()
88 
	window.opener.location='members_pkgs_followed.asp?proj_id=<%=parProjId%>';
 - 
 
89 
	</script>
 - 
 
90 
		<%
 - 
 
91 
			Call CloseWindow()
 86 
            Response.End
92 
 
 - 
 
93 
		End If
 87 
		End If
94 
 
 88 
 
95 
	End If
 89 
	End If
96 
End If
 90 
End If
97 
'----------------------------------------------
 91 
'----------------------------------------------
Line 107... Line 101...
107 
</head>
 101 
</head>
108 
 
 102 
 
109 
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" onLoad="self.focus();">
 103 
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" onLoad="self.focus();">
110 
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
 104 
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
111 
  <tr>
 105 
  <tr>
112 
 
 - 
 
113 
    <td bgcolor="#FFFFFF" class="body_txt"><span class="body_h1"><img src="images/i_user_lrg.gif" width="13" height="17" hspace="0" align="absmiddle">&nbsp;Add Package </span> <br>
 106 
    <td bgcolor="#FFFFFF" class="body_txt">
114 
    Search for Package or select from the list. </td>
 107 
        Search for Package or select from the list.
115 
 
 108 
    </td>
116 
  </tr>
 109 
  </tr>
117 
  <form name="FormSearch" method="post" action="<%=ScriptName%>">
 110 
  <form name="FormSearch" method="post" action="<%=ScriptName%>">
118 
  <tr>
 111 
  <tr>
119 
    <td background="images/bg_quicksearch.gif" class="body_txt"><table width="100" border="0" cellspacing="3" cellpadding="0">
 112 
    <td background="images/bg_quicksearch.gif" class="body_txt"><table width="100" border="0" cellspacing="3" cellpadding="0">
120 
        <tr>
 113 
        <tr>
Line 133... Line 126...
133 
    <td background="images/bg_drk_bage_pane.gif">
 126 
    <td background="images/bg_drk_bage_pane.gif">
134 
	<table width="100%"  border="0" cellspacing="0" cellpadding="0">
 127 
	<table width="100%"  border="0" cellspacing="0" cellpadding="0">
135 
      <tr>
 128 
      <tr>
136 
        <td>&nbsp;</td>
 129 
        <td>&nbsp;</td>
137 
        <td align="right"><input name="btn" type="submit" class="form_btn" value="Add">
 130 
        <td align="right"><input name="btn" type="submit" class="form_btn" value="Add">
138 
          <input name="btn" type="reset" class="form_btn" value="Cancel" onClick="self.close();"></td>
 131 
          <input name="btn" type="reset" class="form_btn" value="Cancel" onclick="parent.closeIFrame();"></td>
139 
      </tr>
 132 
      </tr>
140 
    </table></td>
 133 
    </table></td>
141 
  </tr>
 134 
  </tr>
142 
  <tr>
 135 
  <tr>
143 
    <td>
 136 
    <td>
144 
 
 - 
 
145 
		<table width="300"  border="0" cellspacing="2" cellpadding="0">
 - 
 
146 
          <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 137 
        <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
147 
          <%If NOT objEH.Finally Then%>
 - 
 
148 
          <tr>
 - 
 
149 
            <td>
 - 
 
150 
              <%objEH.DisplayMessage()%>
 138 
        <!--#include file="messages/_msg_inline.asp"-->
151 
            </td>
 - 
 
152 
          </tr>
 - 
 
153 
          <%End If%>
 - 
 
154 
          <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 139 
        <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
155 
        </table>
 - 
 
156 
 
 - 
 
157 
<%
 140 
<%
158 
		Dim startPosition, pageNumber, navigator, totalRecords, lastRecord
 141 
		Dim startPosition, pageNumber, navigator, totalRecords, lastRecord
159 
		Const MAX_ROWS = 50	' Maximum number of rows displayed
 142 
		Const MAX_ROWS = 50	' Maximum number of rows displayed
160 
 
 143 
 
161 
 
 144 
 
Line 280... Line 263...
280 
			%></td>
 263 
			%></td>
281 
            <td align="right" class="body_scol"><%=navigator%></td>
 264 
            <td align="right" class="body_scol"><%=navigator%></td>
282 
          </tr>
 265 
          </tr>
283 
        </table>
 266 
        </table>
284 
		 <!-- DETAILS ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 267 
		 <!-- DETAILS ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
- 
 
 268 
        <div style="min-height:300px;max-height:500px;overflow:scroll;">
285 
		 <table width="100%"  border="0" cellspacing="3" cellpadding="0">
 269 
		 <table width="100%"  border="0" cellspacing="3" cellpadding="0">
286 
          <tr>
 270 
          <tr>
287 
		  	<td width="1%" background="images/bg_table_col.gif"><img src="images/spacer.gif" width="16" height="16" hspace="2"></td>
 271 
		  	<td width="1%" background="images/bg_table_col.gif"><img src="images/spacer.gif" width="16" height="16" hspace="2"></td>
288 
            <td width="30%" background="images/bg_table_border.gif">
 272 
            <td width="30%" background="images/bg_table_border.gif">
289 
			<table width="100%"  border="0" cellspacing="1" cellpadding="2">
 273 
			<table width="100%"  border="0" cellspacing="1" cellpadding="2">
Line 317... Line 301...
317 
 
 301 
 
318 
 
 302 
 
319 
		  rsPackages.Close()
 303 
		  rsPackages.Close()
320 
		  Set rsPackages = Nothing
 304 
		  Set rsPackages = Nothing
321 
		  %>
 305 
		  %>
322 
          <tr>
 - 
 
323 
            <td colspan="4" background="images/bg_table_border.gif">
 - 
 
324 
			 <table width="100%"  border="0" cellspacing="1" cellpadding="2">
 - 
 
325 
              <tr>
 - 
 
326 
                <td nowrap background="images/bg_table_col.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 - 
 
327 
              </tr>
 - 
 
328 
             </table>
 - 
 
329 
			</td>
 - 
 
330 
          </tr>
 - 
 
331 
         </table>
 306 
         </table>
- 
 
 307 
         </div>
332 
		 <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 308 
		 <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
333 
		 <table width="100%"  border="0" cellspacing="0" cellpadding="0">
 309 
		 <table width="100%"  border="0" cellspacing="0" cellpadding="0">
334 
          <tr>
 310 
          <tr>
335 
            <td align="right" class="body_scol"><%=navigator%></td>
 311 
            <td align="right" class="body_scol"><%=navigator%></td>
336 
          </tr>
 312 
          </tr>