Subversion Repositories DevTools

Rev

Rev 2365 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2365 Rev 3959
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
'=====================================================
 3 
'=====================================================
4 
'|                                                   |
 4 
'|                                                   |
5 
'|				    	MEMBERS					     |
 5 
'|				    	MEMBERS					     |
6 
'|                    NOTIFICATIONS               	 |
 6 
'|        NOTIFICATIONS - My Packages              	 |
7 
'=====================================================
 7 
'=====================================================
8 
%>
 8 
%>
9 
<%
 9 
<%
10 
Option explicit
 10 
Option explicit
11 
' Good idea to set when using redirect
 11 
' Good idea to set when using redirect
Line 26... Line 26...
26 
'------------ Variable Definition -------------
 26 
'------------ Variable Definition -------------
27 
Dim rsTemp
 27 
Dim rsTemp
28 
Dim parProjId
 28 
Dim parProjId
29 
'------------ Constants Declaration -----------
 29 
'------------ Constants Declaration -----------
30 
'------------ Variable Init -------------------
 30 
'------------ Variable Init -------------------
31 
Set pkgInfoHash = CreateObject("Scripting.Dictionary")
 - 
 
32 
parProjId = Request("proj_id")
 31 
parProjId = Request("proj_id")
33 
objPMod.PersistInQryString("proj_id")
 32 
objPMod.PersistInQryString("proj_id")
34 
If parProjId = "" then parProjId = 0
 33 
If parProjId = "" then parProjId = 0
35 
'----------------------------------------------
 34 
'----------------------------------------------
36 
%>
 - 
 
37 
<%
 35 
 
38 
Function Get_My_Interest_Packages ( NNuser_id )
 36 
Function NoSpace( txt )
39 
	Get_My_Interest_Packages = _
 37 
    NoSpace = Replace( txt, " ", "&nbsp;")
40 
	" SELECT * FROM PACKAGE_INTEREST PI, PACKAGES PKG, PROJECTS PRJ WHERE USER_ID = "& NNuser_id &""&_
 - 
 
41 
	" AND PI.PKG_ID = PKG.PKG_ID AND PI.PROJ_ID = PRJ.PROJ_ID order by PRJ.PROJ_ID, pkg.pkg_name"
 - 
 
42 
End Function
 38 
End Function
43 
%>
 - 
 
44 
 
 39 
 
45 
<%
 - 
 
46 
Function Get_My_Packages ( NNuser_id )
 40 
Function Get_My_Packages ( NNuser_id )
47 
	Get_My_Packages = _
 41 
	Get_My_Packages = _
48 
	" SELECT rc.rtag_id, pv.pv_id, pkg.pkg_name, pv.pkg_version, proj.proj_name, rt.rtag_name, rt.rtag_name "&_
 42 
	" SELECT rc.rtag_id, pv.pv_id, pkg.pkg_name, pv.pkg_version, proj.proj_name, rt.rtag_name, pkg.pkg_id "&_
49 
	"  FROM packages pkg,"&_
 43 
	"  FROM packages pkg,"&_
50 
	"       package_versions pv, "&_
 44 
	"       package_versions pv, "&_
51 
	"       release_content rc,"&_
 45 
	"       release_content rc,"&_
52 
	"       release_tags rt,"&_
 46 
	"       release_tags rt,"&_
53 
	"       projects proj"&_
 47 
	"       projects proj"&_
Line 55... Line 49...
55 
	"   AND rc.pv_id = pv.pv_id"&_
 49 
	"   AND rc.pv_id = pv.pv_id"&_
56 
	"   AND rc.rtag_id = rt.rtag_id"&_
 50 
	"   AND rc.rtag_id = rt.rtag_id"&_
57 
	"   AND rt.proj_id = proj.proj_id "&_
 51 
	"   AND rt.proj_id = proj.proj_id "&_
58 
	"   AND rt.official = 'N'"&_
 52 
	"   AND rt.official = 'N'"&_
59 
	"   AND pv.owner_id = "& NNuser_id &_
 53 
	"   AND pv.owner_id = "& NNuser_id &_
60 
	" ORDER BY pv.pv_id, UPPER(pkg.pkg_name), UPPER(proj.proj_name) "
 54 
	" ORDER BY UPPER(pkg.pkg_name),pv.pv_id, UPPER(proj.proj_name) "
61 
End Function
 55 
End Function
62 
 
 - 
 
63 
'--------------------------------------------------------------------------------------------------------------------------
 - 
 
64 
Sub DeletePackageInterestOwner (projId, pkgId)
 - 
 
65 
 
 - 
 
66 
	On Error Resume Next
 - 
 
67 
 
 - 
 
68 
	OraDatabase.Parameters.Add "PROJ_ID",	projId, ORAPARM_INPUT, ORATYPE_NUMBER
 - 
 
69 
	OraDatabase.Parameters.Add "PKG_ID",	pkgId, 	ORAPARM_INPUT, ORATYPE_NUMBER
 - 
 
70 
	OraDatabase.Parameters.Add "USER_ID", 	objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
 - 
 
71 
 
 - 
 
72 
	objEH.TryORA ( OraSession )
 - 
 
73 
 
 - 
 
74 
	OraDatabase.ExecuteSQL _
 - 
 
75 
	"BEGIN   REMOVE_PACKAGE_INTEREST ( :PROJ_ID, :PKG_ID, :USER_ID );   END;"
 - 
 
76 
 
 - 
 
77 
	objEH.CatchORA ( OraSession )
 - 
 
78 
 
 - 
 
79 
	OraDatabase.Parameters.Remove "PROJ_ID"
 - 
 
80 
	OraDatabase.Parameters.Remove "PKG_ID"
 - 
 
81 
	OraDatabase.Parameters.Remove "USER_ID"
 - 
 
82 
 
 - 
 
83 
End Sub
 - 
 
84 
'--------------------------------------------------------------------------------------------------------------
 - 
 
85 
If Request("btn") = "Remove" Then
 - 
 
86 
	If objForm.IsValidOnPostBack Then
 - 
 
87 
		Dim txt,posComma, posUnderscore, projId, pkgId, value
 - 
 
88 
 
 - 
 
89 
		txt = Mid(Request("pkg_id_list"), 1, len(Request("pkg_id_list"))-2)
 - 
 
90 
		posComma = InStr(txt, ",")
 - 
 
91 
 
 - 
 
92 
		While posComma <> 0
 - 
 
93 
			'Response.Write(txt)
 - 
 
94 
			value = Mid(txt, 1, posComma-1)
 - 
 
95 
			posUnderscore = Instr(value, "_")
 - 
 
96 
			projId = Mid(value, 1, posUnderscore - 1)
 - 
 
97 
			pkgId = Mid(value, posUnderscore + 1, posComma-1)
 - 
 
98 
 
 - 
 
99 
			Call DeletePackageInterestOwner(projId, pkgId)
 - 
 
100 
 
 - 
 
101 
			txt = Mid(txt, posComma + 1, Len(txt))
 - 
 
102 
			posComma = InStr(txt, ",")
 - 
 
103 
		Wend
 - 
 
104 
 
 - 
 
105 
		If posComma = 0 Then
 - 
 
106 
			posUnderscore = Instr(txt, "_")
 - 
 
107 
			projId = Mid(txt, 1, posUnderscore - 1)
 - 
 
108 
			pkgId = Mid(txt, posUnderscore + 1)
 - 
 
109 
 
 - 
 
110 
			Call DeletePackageInterestOwner(projId, pkgId)
 - 
 
111 
 
 - 
 
112 
		Else
 - 
 
113 
		End if
 - 
 
114 
		' --- Form is Valid ---
 - 
 
115 
		'Call DeleteViewOwner()
 - 
 
116 
		If objEH.Finally Then
 - 
 
117 
			Call OpenInWindow ( "members_notifications.asp" )
 - 
 
118 
		End If
 - 
 
119 
	End If
 - 
 
120 
End If
 - 
 
121 
%>
 56 
%>
122 
<html>
 57 
<html>
123 
<head>
 58 
<head>
124 
<title>Release Manager</title>
 59 
<title>Release Manager</title>
125 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
 60 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
Line 178... Line 113...
178 
              You are currently the owner of the following packages. <br>
 113 
              You are currently the owner of the following packages. <br>
179 
              NOTE: You will be notified when your package is ready to be build.<br>
 114 
              NOTE: You will be notified when your package is ready to be build.<br>
180 
              <br>
 115 
              <br>
181 
              <table width="100%" border="0" cellspacing="1" cellpadding="2">
 116 
              <table width="100%" border="0" cellspacing="1" cellpadding="2">
182 
                <tr>
 117 
                <tr>
183 
                  <td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">&nbsp;</td>
 118 
                  <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field"><INPUT type=checkbox name="checkall" value="Check All" onClick="checkUncheckAll(this);"></td>
184 
                  <td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Package Name and Version&nbsp;</td>
 119 
                  <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Package Name and Version&nbsp;</td>
185 
                  <td width="100%" background="images/bg_form_lightbluedark.gif" class="form_field">Location</td>
 120 
                  <td background="images/bg_form_lightbluedark.gif" class="form_field">Location</td>
186 
                </tr>
 121 
                </tr>
187 
				<%
 122 
				<%
188 
				Dim currPv_id
 123 
				Dim currPv_id
189 
				currPv_id = -1
 124 
				currPv_id = -1
190 
				Set rsTemp = OraDatabase.DbCreateDynaset( Get_My_Packages( objAccessControl.UserId ), cint(0))
 125 
				Set rsTemp = OraDatabase.DbCreateDynaset( Get_My_Packages( objAccessControl.UserId ), cint(0))
191 
			    While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
 126 
			    While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
192 
				%>
 127 
				%>
193 
				<%If CStr( currPv_id ) <> CStr(rsTemp("pv_id")) Then%>
 128 
				<%If CStr( currPv_id ) <> CStr(rsTemp("pv_id")) Then%>
194 
                <tr>
 129 
                <tr>
195 
                  <td background="images/bg_form_lightgray.gif" class="form_item"><input type="checkbox" name="pv_list" value="<%=rsTemp("pv_id")%>"></td>
 130 
                  <td background="images/bg_form_lightgray.gif" class="form_item"><input type="checkbox" name="pv_list" value="<%=rsTemp("pv_id")%>"></td>
196 
                  <td background="images/bg_form_lightgray.gif" class="form_item"><a href="dependencies.asp?pv_id=<%=rsTemp("pv_id")%>&rtag_id=<%=rsTemp("rtag_id")%>" class="txt_linked"><%=rsTemp("pkg_name") &" "& rsTemp("pkg_version")%></a></td>
 131 
                  <td background="images/bg_form_lightgray.gif" class="form_item"><a href="dependencies.asp?pv_id=<%=rsTemp("pv_id")%>&rtag_id=<%=rsTemp("rtag_id")%>" class="txt_linked"><%=NoSpace(rsTemp("pkg_name") &"&nbsp;"& rsTemp("pkg_version"))%></a></td>
197 
                  <td background="images/bg_form_lightgray.gif" class="form_item"><%=rsTemp("proj_name") &" &gt; "& rsTemp("rtag_name") %></td>
 132 
                  <td background="images/bg_form_lightgray.gif" class="form_item"><%=NoSpace(rsTemp("proj_name") &" &gt; "& rsTemp("rtag_name"))%></td>
198 
                </tr>
 133 
                </tr>
199 
				<%currPv_id = rsTemp("pv_id")%>
 134 
				<%currPv_id = rsTemp("pv_id")%>
200 
				<%Else%>
 135 
				<%Else%>
201 
				<tr>
 136 
				<tr>
202 
                  <td background="images/bg_form_lightgray.gif" class="form_item"></td>
 137 
                  <td background="images/bg_form_lightgray.gif" class="form_item"></td>
203 
                  <td background="images/bg_form_lightgray.gif" class="form_item"></td>
 138 
                  <td background="images/bg_form_lightgray.gif" class="form_item"></td>
204 
                  <td background="images/bg_form_lightgray.gif" class="form_item"><%=rsTemp("proj_name") &" &gt; "& rsTemp("rtag_name") %></td>
 139 
                  <td background="images/bg_form_lightgray.gif" class="form_item"><%=NoSpace(rsTemp("proj_name") &" &gt; "& rsTemp("rtag_name"))%></td>
205 
                </tr>
 140 
                </tr>
206 
				<%End If%>
 141 
				<%End If%>
207 
				<%rsTemp.MoveNext
 142 
				<%rsTemp.MoveNext
208 
	    	    WEnd%>
 143 
	    	    WEnd%>
209 
				<%If rsTemp.RecordCount = 0 Then%>
 144 
				<%If rsTemp.RecordCount = 0 Then%>
Line 217... Line 152...
217 
                <%End If%>
 152 
                <%End If%>
218 
			    </p>
 153 
			    </p>
219 
              <p>&nbsp;</p>
 154 
              <p>&nbsp;</p>
220 
 
 155 
 
221 
			  </form>
 156 
			  </form>
222 
<%
 - 
 
223 
'-- FROM START ---------------------------------------------------------------------------------------------------------
 - 
 
224 
objFormComponent.FormName = "FormName"
 - 
 
225 
objFormComponent.Action = ScriptName
 - 
 
226 
Call objFormComponent.FormStart()
 - 
 
227 
%>
 - 
 
228 
			<a name="PACKAGE_INTEREST"></a>
 - 
 
229 
              <p>You are currently interested in the following packages. <br>
 - 
 
230 
  NOTE: You will be notified when the package is officially released/autobuild.</p>
 - 
 
231 
              <table width="100%" border="0" cellspacing="1" cellpadding="2">
 - 
 
232 
		  <tr>
 - 
 
233 
			<td nowrap class="form_iname" valign="top">Select Project </td>
 - 
 
234 
			<td valign="top" nowrap class="form_iname">
 - 
 
235 
			<%
 - 
 
236 
 
 - 
 
237 
			  Dim Query_String, rsQry
 - 
 
238 
			  	Query_String = _
 - 
 
239 
				" SELECT * FROM PROJECTS order by proj_name"
 - 
 
240 
 
 - 
 
241 
 
 - 
 
242 
			  Set rsQry = OraDatabase.DbCreateDynaset( Query_String , cint(0) )
 - 
 
243 
 
 - 
 
244 
			Response.write "<select name='FRproj_id' onChange=""Cascaded_Menu('parent','"& scriptName &"?proj_id="&Request("FRproj_id")&"',this,0)"" class='form_item'>"
 - 
 
245 
			Response.write "<option value='0' selected>--NONE--</option>"
 - 
 
246 
			  %>
 - 
 
247 
 
 - 
 
248 
				<%While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 - 
 
249 
 
 - 
 
250 
			If CDbl(Request("proj_id")) = CDbl(rsQry.Fields("proj_id")) Then
 - 
 
251 
	        	Response.write "<option value='"& rsQry.Fields("proj_id") &"' selected>"& UCase(rsQry.Fields("proj_name")) &"</option>"
 - 
 
252 
	        Else
 - 
 
253 
 
 - 
 
254 
				Response.write "<option value='"& rsQry.Fields("proj_id") &"'>"& UCase(rsQry.Fields("proj_name")) &"</option>"
 - 
 
255 
			End If
 - 
 
256 
					rsQry.MoveNext
 - 
 
257 
				WEnd
 - 
 
258 
 
 - 
 
259 
				rsQry.Close()
 - 
 
260 
				Set rsQry = nothing
 - 
 
261 
				%>
 - 
 
262 
			  </select>
 - 
 
263 
			  </tr>
 - 
 
264 
			  <%If parProjId > 0  Then %>
 - 
 
265 
			  <tr>
 - 
 
266 
				<td nowrap class="form_iname" valign="top">Add Interest</td>
 - 
 
267 
				<td valign="top" nowrap class="form_iname">
 - 
 
268 
 
 - 
 
269 
			<a href="javascript:;" class ="form_iname" onClick="MM_openBrWindow('wAddPackageInterest.asp?proj_id=<%=parProjId%>','AddPackageInterest','scrollbars=yes,resizable=yes,width=350,height=800')"><img src="images/email-contact-orange.gif"></a>
 - 
 
270 
			<%End If%>
 - 
 
271 
			  </tr>
 - 
 
272 
                <tr>
 - 
 
273 
                  <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field"><INPUT type=checkbox name="checkall" value="Check All" onClick="checkUncheckAll(this);"></td>
 - 
 
274 
                  <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Project&nbsp;</td>
 - 
 
275 
                  <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Package</td>
 - 
 
276 
                </tr>
 - 
 
277 
                <%
 - 
 
278 
				Dim currProj_id
 - 
 
279 
				currProj_id = -1
 - 
 
280 
 
 - 
 
281 
 
 - 
 
282 
				Set rsTemp = OraDatabase.DbCreateDynaset(Get_My_Interest_Packages( objAccessControl.UserId ), cint(0))
 - 
 
283 
			    While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
 - 
 
284 
				%>
 - 
 
285 
                <%If CStr( currProj_id ) <> CStr(rsTemp("proj_id")) Then%>
 - 
 
286 
                <tr>
 - 
 
287 
                  <td nowrap background="images/bg_form_lightgray.gif" class="form_item"></td>
 - 
 
288 
                  <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><b><%=rsTemp("proj_name")%></b></td>
 - 
 
289 
                  <td nowrap background="images/bg_form_lightgray.gif" class="form_item"></td>
 - 
 
290 
                </tr>
 - 
 
291 
                <%currProj_id = rsTemp("proj_id")%>
 - 
 
292 
 
 - 
 
293 
 
 - 
 
294 
                <%End If%>
 - 
 
295 
				<tr>
 - 
 
296 
                  <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><input type="checkbox" name="pkg_id_list" value="<%=rsTemp("proj_id")%>_<%=rsTemp("pkg_id")%>"></td>
 - 
 
297 
                  <td nowrap background="images/bg_form_lightgray.gif" class="form_item"></td>
 - 
 
298 
                  <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsTemp("pkg_name")%></td>
 - 
 
299 
                </tr>
 - 
 
300 
                <%rsTemp.MoveNext
 - 
 
301 
	    	    WEnd%>
 - 
 
302 
                <%If rsTemp.RecordCount = 0 Then%>
 - 
 
303 
                <tr>
 - 
 
304 
                  <td background="images/bg_form_lightgray.gif" class="form_item" colspan="3">You are not interested in any packages.</td>
 - 
 
305 
                </tr>
 - 
 
306 
                <%End If%>
 - 
 
307 
              </table>
 - 
 
308 
              <br>
 - 
 
309 
              <%If rsTemp.RecordCount <> 0 Then%>
 - 
 
310 
              <input name="btn" type="submit" class="form_btn" value="Remove">
 - 
 
311 
              <%End If
 - 
 
312 
			  rsTemp.Close()
 - 
 
313 
			  set rsTemp = nothing
 - 
 
314 
			  %>
 - 
 
315 
			<input type="hidden" name="pkg_id_list" value="<%=Request("pkg_id_list")%>">
 - 
 
316 
			<input type="hidden" name="action" value="true">
 - 
 
317 
			</td>
 - 
 
318 
          <td width="1%" background="images/lbox_bgside_white.gif">&nbsp;</td>
 - 
 
319 
        </tr>
 - 
 
320 
        <tr>
 - 
 
321 
          <td width="1%" background="images/bg_member_dark.gif" valign="bottom"><img src="images/h_trsp_dot.gif" width="13" height="13"></td>
 - 
 
322 
          <td background="images/bg_member_dark.gif"></td>
 - 
 
323 
          <td width="1%" background="images/bg_member_dark.gif" valign="bottom" align="right"><img src="images/h_trsp_dot.gif" width="13" height="13"></td>
 - 
 
324 
        </tr>
 - 
 
325 
<%
 - 
 
326 
Call objFormComponent.FormEnd()
 - 
 
327 
'-- FROM END ----------------------------------------------------------------------------------------------------------------
 - 
 
328 
%>
 - 
 
329 
      </table>
 157 
      </table>
330 
      <!-------------------------------------------------------->
 158 
      <!-------------------------------------------------------->
331 
    </td>
 159 
    </td>
332 
    <td rowspan="2" valign="bottom" width="100%" background="images/bg_member_light.gif" align="right"><img src="images/bg_img_view.gif" width="249" height="144" vspace="10" hspace="10"></td>
 160 
    <td rowspan="2" valign="bottom" width="100%" background="images/bg_member_light.gif" align="right"><img src="images/bg_img_view.gif" width="249" height="144" vspace="10" hspace="10"></td>
333 
  </tr>
 161 
  </tr>