Subversion Repositories DevTools

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
119 ghuddy 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
3 
'=====================================================
4 
'|                                                   |
5 
'|			          wAddApplicationUser		 	 |
6 
'|                                                   |
7 
'=====================================================
8 
%>
9 
<%
10 
Option explicit
11 
Response.Expires = 0
12 
%>
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 
<!--#include file="common/common_dbedit.asp"-->
20 
<!--#include file="common/_form_window_common.asp"-->
21 
<!--#include file="common/_rtree_common.asp"-->
22 
 
23 
<%
24 
'------------ ACCESS CONTROL ------------------
25 
%>
26 
 
27 
<%
28 
'------------ VARIABLE DEFINITION -------------
29 
Dim rsPackages
30 
Dim FRview_id
31 
Dim	parProjId
32 
Dim	Query_String
33 
parProjId	=	Request("proj_id")
34 
'Dim objFormCollector
35 
'------------ CONSTANTS DECLARATION -----------
36 
Const LIMG_USER = "<img src='images/i_user.gif' width='16' height='16' hspace='2' border='0' align='absmiddle'>"
37 
Const LIMG_USER_DISABLED = "<img src='images/i_user_disabled.gif' width='16' height='16' hspace='2' border='0' align='absmiddle'>"
38 
Const LIMG_ROLE = "<img src='images/i_role.gif' width='16' height='16' hspace='2' border='0' align='absmiddle'>"
39 
'------------ VARIABLE INIT -------------------
40 
Set objFormCollector = CreateObject("Scripting.Dictionary")
41 
 
42 
'------------ CONDITIONS ----------------------
43 
'----------------------------------------------
44 
%>
45 
<%
46 
'--------------------------------------------------------------------------------------------------------------------------
47 
Sub Add_Package_Interest (nProj_id, nPkg_id_List)
48 
	On Error Resume Next
49 
 
50 
	OraDatabase.BeginTrans
51 
 
52 
	OraDatabase.Parameters.Add "PROJ_ID",	nProj_id, ORAPARM_INPUT, ORATYPE_NUMBER
53 
	OraDatabase.Parameters.Add "PKG_ID_LIST",	nPkg_id_List, 	ORAPARM_INPUT, ORATYPE_VARCHAR2
54 
	OraDatabase.Parameters.Add "USER_ID", 	objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
55 
 
56 
	objEH.TryORA ( OraSession )
57 
 
58 
	OraDatabase.ExecuteSQL _
59 
	"BEGIN   ADD_PACKAGE_INTEREST	( :PROJ_ID, :PKG_ID_LIST, :USER_ID );   END;"
60 
 
61 
	objEH.CatchORA ( OraSession )
62 
 
63 
	OraDatabase.Parameters.Remove "PROJ_ID"
64 
	OraDatabase.Parameters.Remove "PKG_ID_LIST"
65 
	OraDatabase.Parameters.Remove "USER_ID"
66 
 
67 
	OraDatabase.CommitTrans
68 
 
69 
End Sub
70 
'--------------------------------------------------------------------------------------------------------------------------
71 
%>
72 
<%
73 
'------------ RUN BEFORE PAGE RENDER ----------
74 
' --- Get Form details from DB (for edit forms only) ---
75 
'-------------------------------------------------------
76 
 
77 
' --- Load Validation Rules ---
78 
 
79 
 
80 
' --- Enter Form Validation Rule Changes here... ----
81 
'----------------------------------------------------
82 
 
83 
If CBool(Request("action")) Then
84 
	If objForm.IsValidOnPostBack Then
85 
		' --- Form is Valid ---
86 
 
87 
		Call Add_Package_Interest(parProjId, request("pkg_id_list"))
88 
 
89 
		If objEH.Finally Then
90 
		%>
91 
	<script language="JavaScript" type="text/javascript">
92 
	window.opener.location='members_notifications.asp?proj_id=<%=parProjId%>';
93 
	</script>
94 
		<%
95 
			Call CloseWindow()
96 
 
97 
		End If
98 
 
99 
	End If
100 
End If
101 
'----------------------------------------------
102 
%>
103 
<html>
104 
<head>
105 
<title>Release Manager</title>
106 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
107 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
108 
<link href="images/release_manager_style.css" rel="stylesheet" type="text/css">
109 
<script language="JavaScript" src="scripts/common.js"></script>
110 
</head>
111 
 
112 
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" onLoad="self.focus();">
113 
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
114 
  <tr>
115 
 
116 
    <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>
117 
    Search for Package or select from the list. </td>
118 
 
119 
  </tr>
120 
  <form name="FormSearch" method="post" action="<%=ScriptName%>">
121 
  <tr>
122 
    <td background="images/bg_quicksearch.gif" class="body_txt"><table width="100" border="0" cellspacing="3" cellpadding="0">
123 
        <tr>
124 
          <td nowrap class="body_txtw"><strong>Package Search</strong> </td>
125 
          <td><input name="filter" type="text" class="body_txt" size="20" value="<%=Request("filter")%>"></td>
126 
          <td><input name="btn" type="image" src="images/b_search.gif" width="16" height="16" border="0"></td>
127 
        </tr>
128 
      </table></td>
129 
  </tr>
130 
  <%'=objPMod.ComposeHiddenTags()%>
131 
  <input type="hidden" name="view_id" value="<%=Request("view_id")%>">
132 
  <input type="hidden" name="proj_id" value="<%=Request("proj_id")%>">
133 
  </form>
134 
  <form name="FormName" method="post" action="<%=ScriptName%>">
135 
  <tr>
136 
    <td background="images/bg_drk_bage_pane.gif">
137 
	<table width="100%"  border="0" cellspacing="0" cellpadding="0">
138 
      <tr>
139 
        <td>&nbsp;</td>
140 
        <td align="right"><input name="btn" type="submit" class="form_btn" value="Add">
141 
          <input name="btn" type="reset" class="form_btn" value="Cancel" onClick="self.close();"></td>
142 
      </tr>
143 
    </table></td>
144 
  </tr>
145 
  <tr>
146 
    <td>
147 
 
148 
		<table width="300"  border="0" cellspacing="2" cellpadding="0">
149 
          <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
150 
          <%If NOT objEH.Finally Then%>
151 
          <tr>
152 
            <td>
153 
              <%objEH.DisplayMessage()%>
154 
            </td>
155 
          </tr>
156 
          <%End If%>
157 
          <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
158 
        </table>
159 
 
160 
<%
161 
		Dim startPosition, pageNumber, navigator, totalRecords, lastRecord
162 
		Const MAX_ROWS = 50	' Maximum number of rows displayed
163 
 
164 
 
165 
		OraDatabase.Parameters.Add "KEYWORD", 			Request("filter"), 			ORAPARM_INPUT, ORATYPE_VARCHAR2
166 
		'--- Set filters ---
167 
		If Request("filter") <> "" Then
168 
 
169 
 			Query_String = _
170 
			" SELECT DISTINCT PKG.PKG_ID, PKG.PKG_NAME FROM RELEASE_CONTENT RC,"&_
171 
			" RELEASE_TAGS RT, PROJECTS PRJ,"&_
172 
			" PACKAGE_VERSIONS PV, PACKAGES PKG,"&_
173 
			"	("&_
174 
 
175 
		  	"	/* Exact match */"&_
176 
		  	"	SELECT 1 AS DISPLAY_ORDER,"&_
177 
			"		   pkg.PKG_ID,"&_
178 
			"		   pkg.PKG_NAME"&_
179 
			"	  FROM PACKAGES pkg"&_
180 
			"	 WHERE UPPER(pkg.PKG_NAME) = UPPER(:KEYWORD)"&_
181 
 
182 
			"	UNION"&_
183 
 
184 
			"	/* Starts with */  "&_
185 
			"	SELECT 2 AS DISPLAY_ORDER,"&_
186 
			"		   pkg.PKG_ID,"&_
187 
			"		   pkg.PKG_NAME"&_
188 
			"	  FROM PACKAGES pkg"&_
189 
			"	 WHERE UPPER(pkg.PKG_NAME) LIKE UPPER(:KEYWORD) ||'%'"&_
190 
 
191 
			"	UNION"&_
192 
 
193 
			"	/* Ends with */  "&_
194 
			"	SELECT 3 AS DISPLAY_ORDER,"&_
195 
			"	   pkg.PKG_ID,"&_
196 
			"	   pkg.PKG_NAME"&_
197 
			"  FROM PACKAGES pkg"&_
198 
			" WHERE UPPER(pkg.PKG_NAME) LIKE '%'|| UPPER(:KEYWORD) "&_
199 
 
200 
			"	UNION"&_
201 
 
202 
			"	/* Middle of word */  "&_
203 
			"	SELECT 4 AS DISPLAY_ORDER,"&_
204 
			"		   pkg.PKG_ID,"&_
205 
			"		   pkg.PKG_NAME"&_
206 
			"	  FROM PACKAGES pkg"&_
207 
			"	 WHERE UPPER(pkg.PKG_NAME) LIKE '%'|| UPPER(:KEYWORD) ||'%'"&_
208 
 
209 
      		" ) qry"&_
210 
			" WHERE RC.RTAG_ID = RT.RTAG_ID AND PRJ.PROJ_ID = RT.PROJ_ID AND PKG.PKG_ID NOT IN"&_
211 
			" (SELECT PKG_ID FROM PACKAGE_INTEREST WHERE PROJ_ID ="& parProjId &" AND USER_ID ="& objAccessControl.UserId &")"&_
212 
			" AND PV.PV_ID = RC.PV_ID AND PKG.PKG_ID = PV.PKG_ID AND qry.pkg_id = pkg.pkg_id AND PRJ.PROJ_ID="& parProjId &" order by pkg.pkg_name"
213 
 
214 
 
215 
 
216 
		Else
217 
 			Query_String = _
218 
			" SELECT DISTINCT PKG.PKG_ID, PKG.PKG_NAME FROM RELEASE_CONTENT RC,"&_
219 
			" RELEASE_TAGS RT, PROJECTS PRJ,"&_
220 
			" PACKAGE_VERSIONS PV, PACKAGES PKG"&_
221 
			" WHERE RC.RTAG_ID = RT.RTAG_ID AND PRJ.PROJ_ID = RT.PROJ_ID and PKG.PKG_ID NOT IN"&_
222 
			" (SELECT PKG_ID FROM PACKAGE_INTEREST WHERE PROJ_ID ="& parProjId &" AND USER_ID ="& objAccessControl.UserId &")"&_
223 
			" AND PV.PV_ID = RC.PV_ID AND PKG.PKG_ID = PV.PKG_ID AND PRJ.PROJ_ID="& parProjId &" order by pkg.pkg_name"
224 
		End If
225 
 
226 
 
227 
		Set rsPackages = OraDatabase.DbCreateDynaset( Query_String , ORADYN_DEFAULT )
228 
 
229 
		OraDatabase.Parameters.Remove "KEYWORD"
230 
 
231 
 
232 
		'--- Get page number ---
233 
		pageNumber = 0
234 
		If Request("pg") <> "" Then
235 
		pageNumber = CInt(Request("pg"))
236 
		End If
237 
 
238 
 
239 
		'--- Set Cursor start position ---
240 
		startPosition = pageNumber * MAX_ROWS + 1
241 
		If (NOT rsPackages.BOF) AND (NOT rsPackages.EOF) Then
242 
			rsPackages.MoveTo ( startPosition )		' Set starting cursor point
243 
 
244 
		End If
245 
 
246 
 
247 
		'--- Construct Navigator
248 
		navigator = ""
249 
		If (NOT rsPackages.BOF) AND (NOT rsPackages.EOF) Then
250 
			totalRecords = rsPackages.RecordCount	' Get total number of records
251 
 
252 
			'--- Create "Previous" link
253 
			If pageNumber > 0 Then
254 
				navigator = navigator &"<a href='"& ScriptName &"?view_id="&Request("view_id")&"&pg="& pageNumber - 1 &"&"& objPMod.ComposeURL &"' class='body_link' title='Show Previous Page'>&laquo; Previous</a>"
255 
			End If
256 
 
257 
			'--- Create "Next" link
258 
			If ( startPosition + MAX_ROWS ) < totalRecords Then
259 
				navigator = navigator &"&nbsp;&nbsp;<a href='"& ScriptName &"?view_id="&Request("view_id")&"&pg="& pageNumber + 1 &"&"& objPMod.ComposeURL &"' class='body_link' title='Show Next Page'>Next &raquo;</a>"
260 
			End If
261 
 
262 
		End If
263 
 
264 
 
265 
		'--- Calculate Last Record ---
266 
		If totalRecords > 0 Then
267 
			lastRecord = ( startPosition - 1 + MAX_ROWS ) _
268 
						+ ( CInt( ( startPosition - 1 + MAX_ROWS )/totalRecords > 1) ) * ( ( startPosition - 1 + MAX_ROWS ) - totalRecords )
269 
		End If
270 
		%>
271 
		<table width="100%"  border="0" cellspacing="0" cellpadding="0">
272 
          <tr align="left">
273 
            <td colspan="2" class="body_row">&nbsp;</td>
274 
          </tr>
275 
          <tr>
276 
            <td align="left" class="body_row">
277 
			<%
278 
			If totalRecords > 0 Then
279 
				Response.write "Showing "& startPosition &" - "& lastRecord &" of "& totalRecords
280 
			Else
281 
				Response.write "No Results."
282 
			End If
283 
			%></td>
284 
            <td align="right" class="body_scol"><%=navigator%></td>
285 
          </tr>
286 
        </table>
287 
		 <!-- DETAILS ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
288 
		 <table width="100%"  border="0" cellspacing="3" cellpadding="0">
289 
          <tr>
290 
		  	<td width="1%" background="images/bg_table_col.gif"><img src="images/spacer.gif" width="16" height="16" hspace="2"></td>
291 
            <td width="30%" background="images/bg_table_border.gif">
292 
			<table width="100%"  border="0" cellspacing="1" cellpadding="2">
293 
              <tr>
294 
                <td align="left" nowrap background="images/bg_table_col.gif" class="body_col">Packages</td>
295 
 
296 
              </tr>
297 
            </table></td>
298 
          </tr>
299 
		  <%
300 
		  '--- Render rows ---
301 
		  Do While (NOT rsPackages.BOF) AND (NOT rsPackages.EOF)
302 
 
303 
		  		If rsPackages.RowPosition => (startPosition + MAX_ROWS) Then Exit Do	' Limit the number of rows displayed
304 
		  %>
305 
          <tr>
306 
		  	<td align="center"><input type="checkbox" name="pkg_id_list" value="<%=rsPackages("pkg_id")%>"></td>
307 
            <td nowrap class="body_row"><%=Highlight_Substring( rsPackages("pkg_name"), request("filter") )%></td>
308 
          </tr>
309 
		  <%rsPackages.MoveNext%>
310 
 
311 
		  <%If (NOT rsPackages.BOF) AND (NOT rsPackages.EOF) Then%>
312 
          <tr>
313 
            <td colspan="4" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
314 
          </tr>
315 
		  <%End If%>
316 
 
317 
		  <%
318 
		  Loop
319 
 
320 
 
321 
 
322 
		  rsPackages.Close()
323 
		  Set rsPackages = Nothing
324 
		  %>
325 
          <tr>
326 
            <td colspan="4" background="images/bg_table_border.gif">
327 
			 <table width="100%"  border="0" cellspacing="1" cellpadding="2">
328 
              <tr>
329 
                <td nowrap background="images/bg_table_col.gif"><img src="images/spacer.gif" width="1" height="1"></td>
330 
              </tr>
331 
             </table>
332 
			</td>
333 
          </tr>
334 
         </table>
335 
		 <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
336 
		 <table width="100%"  border="0" cellspacing="0" cellpadding="0">
337 
          <tr>
338 
            <td align="right" class="body_scol"><%=navigator%></td>
339 
          </tr>
340 
        </table>
341 
	</td>
342 
  </tr>
343 
  <%=objPMod.ComposeHiddenTags()%>
344 
  <input type="hidden" name="view_id" value="<%=Request("view_id")%>">
345 
 
346 
  <input type="hidden" name="action" value="true">
347 
  </form>
348 
</table>
349 
</body>
350 
</html>
351 
<%
352 
'------------ RUN AFTER PAGE RENDER -----------
353 
Set objFormCollector = Nothing
354 
'----------------------------------------------
355 
%>
356 
<!--#include file="common/destructor.asp"-->