Subversion Repositories DevTools

Rev

Rev 5957 | Rev 6070 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
5357 dpurdie 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
3 
'=====================================================
4 
'|                                                   |
5 
'|				    	MEMBERS					     |
6 
'|      NOTIFICATIONS - Packages Followed            |
7 
'=====================================================
8 
%>
9 
<%
10 
Option explicit
11 
' Good idea to set when using redirect
12 
Response.Expires = 0	' always load the page, dont store
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/_form_window_common.asp"-->
20 
<%
21 
'------------ ACCESS CONTROL ------------------
22 
%>
23 
<!--#include file="_access_control_login.asp"-->
24 
<!--#include file="_access_control_general.asp"-->
25 
<%
26 
'------------ Variable Definition -------------
27 
Dim rsTemp
28 
Dim parProjId
29 
'------------ Constants Declaration -----------
30 
'------------ Variable Init -------------------
31 
parProjId = Request("proj_id")
32 
objPMod.PersistInQryString("proj_id")
33 
If parProjId = "" then parProjId = 0
34 
'----------------------------------------------
35 
 
36 
Function Get_My_Interest_Packages ( NNuser_id )
37 
	Get_My_Interest_Packages = _
38 
	" SELECT * FROM PACKAGE_INTEREST PI, PACKAGES PKG, PROJECTS PRJ WHERE USER_ID = "& NNuser_id &""&_
39 
	" AND PI.PKG_ID = PKG.PKG_ID AND PI.PROJ_ID = PRJ.PROJ_ID order by PRJ.PROJ_ID, pkg.pkg_name"
40 
End Function
41 
 
42 
'--------------------------------------------------------------------------------------------------------------------------
43 
Sub DeletePackageInterestOwner (projId, pkgId)
44 
 
45 
	On Error Resume Next
46 
 
47 
	OraDatabase.Parameters.Add "PROJ_ID",	projId, ORAPARM_INPUT, ORATYPE_NUMBER
48 
	OraDatabase.Parameters.Add "PKG_ID",	pkgId, 	ORAPARM_INPUT, ORATYPE_NUMBER
49 
	OraDatabase.Parameters.Add "USER_ID", 	objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
50 
 
51 
	objEH.TryORA ( OraSession )
52 
 
53 
	OraDatabase.ExecuteSQL _
54 
	"BEGIN   REMOVE_PACKAGE_INTEREST ( :PROJ_ID, :PKG_ID, :USER_ID );   END;"
55 
 
56 
	objEH.CatchORA ( OraSession )
57 
 
58 
	OraDatabase.Parameters.Remove "PROJ_ID"
59 
	OraDatabase.Parameters.Remove "PKG_ID"
60 
	OraDatabase.Parameters.Remove "USER_ID"
61 
 
62 
End Sub
63 
'--------------------------------------------------------------------------------------------------------------
64 
If Request("btn") = "Remove" Then
65 
	If objForm.IsValidOnPostBack Then
66 
		Dim txt,posComma, posUnderscore, projId, pkgId, value
67 
 
68 
		txt = Mid(Request("pkg_id_list"), 1, len(Request("pkg_id_list"))-2)
69 
		posComma = InStr(txt, ",")
70 
 
71 
		While posComma <> 0
72 
			'Response.Write(txt)
73 
			value = Mid(txt, 1, posComma-1)
74 
			posUnderscore = Instr(value, "_")
75 
			projId = Mid(value, 1, posUnderscore - 1)
76 
			pkgId = Mid(value, posUnderscore + 1, posComma-1)
77 
 
78 
			Call DeletePackageInterestOwner(projId, pkgId)
79 
 
80 
			txt = Mid(txt, posComma + 1, Len(txt))
81 
			posComma = InStr(txt, ",")
82 
		Wend
83 
 
84 
		If posComma = 0 Then
85 
			posUnderscore = Instr(txt, "_")
86 
			projId = Mid(txt, 1, posUnderscore - 1)
87 
			pkgId = Mid(txt, posUnderscore + 1)
88 
 
89 
			Call DeletePackageInterestOwner(projId, pkgId)
90 
 
91 
		Else
92 
		End if
93 
		' --- Form is Valid ---
94 
		'Call DeleteViewOwner()
95 
		If objEH.Finally Then
96 
			Call OpenInWindow ( "members_pkgs_followed.asp" )
97 
		End If
98 
	End If
99 
End If
100 
%>
101 
<html>
102 
<head>
103 
<title>Release Manager</title>
104 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
105 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
106 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
107 
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
108 
<link rel="stylesheet" href="images/navigation.css" type="text/css">
109 
<script language="JavaScript" src="images/common.js"></script>
5590 dpurdie 110 
<!--#include file="_jquery_includes.asp"-->
5984 dpurdie 111 
<!--#include file="_menu_def.asp"-->
112 
<script language="JavaScript1.2" src="images/popup_menu.js"></script>
5357 dpurdie 113 
<script language="javascript">
114 
<!--
115 
function checkUncheckAll(theElement) {
116 
     var theForm = theElement.form, z = 0;
117 
	 for(z=0; z<theForm.length;z++){
118 
      if(theForm[z].type == 'checkbox' && theForm[z].name != 'checkall' && theForm[z].disabled != true){
119 
	  theForm[z].checked = theElement.checked;
120 
	  }
121 
     }
122 
    }
123 
//-->
124 
</script>
125 
</head>
126 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
5984 dpurdie 127 
<!-- MENU LAYERS -------------------------------------->
128 
<div id="popmenu" class="menuskin" onMouseover="clearhidemenu();highlightmenu(event,'on')" onMouseout="highlightmenu(event,'off');dynamichide(event)"></div>
5357 dpurdie 129 
<!-- TIPS LAYERS -------------------------------------->
130 
<div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>
131 
<!----------------------------------------------------->
132 
<!-- HEADER -->
133 
<!--#include file="_header.asp"-->
134 
<!-- BODY ---->
135 
<table width="100%" border="0" cellspacing="0" cellpadding="0">
136 
  <tr>
137 
    <td width="1%" background="images/bg_member_dark.gif" valign="top">
138 
      <!-- MEMBERS MENU ---------------------------------------------->
139 
	  <!--#include file="members_menu_def.asp"-->
140 
	  <%Call Member_Menu( "notifications" )%>
141 
      <!--  MEMBERS MENU END ------------------------------------------>
142 
    </td>
5984 dpurdie 143 
    <td width="1%" valign="top" background="images/bg_member_light.gif"></td>
5357 dpurdie 144 
    <td rowspan="2" valign="top" width="1%" background="images/bg_member_light.gif" nowrap>
145 
      <!------------------------------------------->
146 
      <br>
147 
      <span class="mmb_ttl">Notifications</span><br>
148 
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
149 
        <%
150 
        '-- FROM START ---------------------------------------------------------
151 
        objFormComponent.FormName = "FormName"
152 
        objFormComponent.Action = ScriptName
153 
        Call objFormComponent.FormStart()
154 
        %>
155 
        <tr>
156 
          <td width="1%">&nbsp;</td>
157 
          <td align="right"><img src="images/h_trsp_dot.gif" width="500" height="30"></td>
158 
          <td width="1%">&nbsp;</td>
159 
        </tr>
160 
        <tr>
161 
          <td align="left" valign="top" width="1%" background="images/bg_member_dark.gif"><img src="images/h_trsp_dot.gif" width="13" height="13"></td>
162 
            <td background="images/bg_member_dark.gif" align="left" class="wform_ttl">&nbsp;</td>
163 
          <td align="right" valign="top" width="1%" background="images/bg_member_dark.gif">&nbsp;</td>
164 
        </tr>
165 
 
166 
        <tr>
167 
          <td width="1%" bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="100"></td>
168 
          <td bgcolor="#FFFFFF" valign="top" class="form_item"> <br>
169 
 
170 
			<a name="PACKAGE_INTEREST"></a>
171 
              <p>You are currently interested in the following packages. <br>
172 
  NOTE: You will be notified when the package is officially released/autobuild.</p>
173 
              <table width="100%" border="0" cellspacing="1" cellpadding="2">
174 
		  <tr>
175 
			<td nowrap class="form_iname" valign="top">Select Project </td>
176 
			<td valign="top" nowrap class="form_iname">
177 
			<%
178 
 
179 
			  Dim Query_String, rsQry
180 
			  	Query_String = _
181 
				" SELECT * FROM PROJECTS order by proj_name"
182 
 
183 
 
184 
			  Set rsQry = OraDatabase.DbCreateDynaset( Query_String , cint(0) )
185 
 
186 
			Response.write "<select name='FRproj_id' onChange=""Cascaded_Menu('parent','"& scriptName &"?proj_id="&Request("FRproj_id")&"',this,0)"" class='form_item'>"
187 
			Response.write "<option value='0' selected>--NONE--</option>"
188 
			  %>
189 
 
190 
				<%While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
191 
 
192 
			If CDbl(Request("proj_id")) = CDbl(rsQry.Fields("proj_id")) Then
193 
	        	Response.write "<option value='"& rsQry.Fields("proj_id") &"' selected>"& UCase(rsQry.Fields("proj_name")) &"</option>"
194 
	        Else
195 
 
196 
				Response.write "<option value='"& rsQry.Fields("proj_id") &"'>"& UCase(rsQry.Fields("proj_name")) &"</option>"
197 
			End If
198 
					rsQry.MoveNext
199 
				WEnd
200 
 
201 
				rsQry.Close()
202 
				Set rsQry = nothing
203 
				%>
204 
			  </select>
205 
			  </tr>
206 
			  <%If parProjId > 0  Then %>
207 
			  <tr>
208 
				<td nowrap class="form_iname" valign="top">Add Interest</td>
209 
				<td valign="top" nowrap class="form_iname">
210 
 
5590 dpurdie 211 
			<a href="javascript:;" class ="form_iname" onClick="MM_openVixIFrame('wAddPackageInterest.asp?proj_id=<%=parProjId%>','Add Packages of Interest')"><img src="images/email-contact-orange.gif"></a>
5357 dpurdie 212 
			<%End If%>
213 
			  </tr>
214 
                <tr>
215 
                  <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field"><INPUT type=checkbox name="checkall" value="Check All" onClick="checkUncheckAll(this);"></td>
216 
                  <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Project&nbsp;</td>
217 
                  <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Package</td>
218 
                </tr>
219 
                <%
220 
				Dim currProj_id
221 
				currProj_id = -1
222 
 
223 
 
224 
				Set rsTemp = OraDatabase.DbCreateDynaset(Get_My_Interest_Packages( objAccessControl.UserId ), cint(0))
225 
			    While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
226 
				%>
227 
                <%If CStr( currProj_id ) <> CStr(rsTemp("proj_id")) Then%>
228 
                <tr>
229 
                  <td nowrap background="images/bg_form_lightgray.gif" class="form_item"></td>
230 
                  <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><b><%=rsTemp("proj_name")%></b></td>
231 
                  <td nowrap background="images/bg_form_lightgray.gif" class="form_item"></td>
232 
                </tr>
233 
                <%currProj_id = rsTemp("proj_id")%>
234 
 
235 
 
236 
                <%End If%>
237 
				<tr>
238 
                  <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>
239 
                  <td nowrap background="images/bg_form_lightgray.gif" class="form_item"></td>
240 
                  <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsTemp("pkg_name")%></td>
241 
                </tr>
242 
                <%rsTemp.MoveNext
243 
	    	    WEnd%>
244 
                <%If rsTemp.RecordCount = 0 Then%>
245 
                <tr>
246 
                  <td background="images/bg_form_lightgray.gif" class="form_item" colspan="3">You are not interested in any packages.</td>
247 
                </tr>
248 
                <%End If%>
249 
              </table>
250 
              <br>
251 
              <%If rsTemp.RecordCount <> 0 Then%>
252 
              <input name="btn" type="submit" class="form_btn" value="Remove">
253 
              <%End If
254 
			  rsTemp.Close()
255 
			  set rsTemp = nothing
256 
			  %>
257 
			<input type="hidden" name="pkg_id_list" value="<%=Request("pkg_id_list")%>">
258 
			<input type="hidden" name="action" value="true">
259 
			</td>
260 
          <td width="1%" background="images/lbox_bgside_white.gif">&nbsp;</td>
261 
        </tr>
262 
        <tr>
263 
          <td width="1%" background="images/bg_member_dark.gif" valign="bottom"><img src="images/h_trsp_dot.gif" width="13" height="13"></td>
264 
          <td background="images/bg_member_dark.gif"></td>
265 
          <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>
266 
        </tr>
267 
        <%
268 
        Call objFormComponent.FormEnd()
269 
        '-- FROM END -----------------------------------------------------------
270 
        %>
271 
      </table>
272 
      <!-------------------------------------------------------->
273 
    </td>
274 
    <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>
275 
  </tr>
276 
  <tr>
277 
    <td valign="bottom" align="center" background="images/bg_member_dark.gif"><img src="images/img_members.gif" width="81" height="57" vspace="20" hspace="30"></td>
278 
    <td background="images/bg_member_light.gif" valign="top"><img src="images/h_trsp_dot.gif" width="100" height="400"></td>
279 
  </tr>
280 
</table>
281 
<!-- FOOTER -->
282 
<!--#include file="_footer.asp"-->
283 
</body>
284 
</html>