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
'|				    	MEMBERS					     |
6
'|                    NOTIFICATIONS               	 |
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
Set pkgInfoHash = CreateObject("Scripting.Dictionary")
32
parProjId = Request("proj_id")
33
objPMod.PersistInQryString("proj_id")
34
If parProjId = "" then parProjId = 0
35
'----------------------------------------------
36
%>
37
<%
38
Function Get_My_Interest_Packages ( NNuser_id )
39
	Get_My_Interest_Packages = _
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
43
%>
44
 
45
<%
46
Function Get_My_Packages ( NNuser_id )
47
	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 "&_
49
	"  FROM packages pkg,"&_
50
	"       package_versions pv, "&_
51
	"       release_content rc,"&_
52
	"       release_tags rt,"&_
53
	"       projects proj"&_
54
	" WHERE pv.pkg_id = pkg.pkg_id"&_
55
	"   AND rc.pv_id = pv.pv_id"&_
56
	"   AND rc.rtag_id = rt.rtag_id"&_
57
	"   AND rt.proj_id = proj.proj_id "&_
58
	"   AND rt.official = 'N'"&_
59
	"   AND pv.owner_id = "& NNuser_id &_
60
	" ORDER BY pv.pv_id, UPPER(pkg.pkg_name), UPPER(proj.proj_name) "
61
End Function
62
 
63
'--------------------------------------------------------------------------------------------------------------------------
64
Sub DeletePackageInterestOwner (projId, pkgId)
65
 
66
	On Error Resume Next
67
 
68
	OraDatabase.BeginTrans
69
 
70
	OraDatabase.Parameters.Add "PROJ_ID",	projId, ORAPARM_INPUT, ORATYPE_NUMBER
71
	OraDatabase.Parameters.Add "PKG_ID",	pkgId, 	ORAPARM_INPUT, ORATYPE_NUMBER
72
	OraDatabase.Parameters.Add "USER_ID", 	objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER 
73
 
74
	objEH.TryORA ( OraSession )
75
 
76
	OraDatabase.ExecuteSQL _
77
	"BEGIN   REMOVE_PACKAGE_INTEREST ( :PROJ_ID, :PKG_ID, :USER_ID );   END;"
78
 
79
	objEH.CatchORA ( OraSession )
80
 
81
 
82
	OraDatabase.Parameters.Remove "PROJ_ID"	
83
	OraDatabase.Parameters.Remove "PKG_ID"	
84
	OraDatabase.Parameters.Remove "USER_ID"
85
 
86
	OraDatabase.CommitTrans	
87
 
88
 
89
End Sub
90
'--------------------------------------------------------------------------------------------------------------
91
If Request("btn") = "Remove" Then
92
	If objForm.IsValidOnPostBack Then
93
		Dim txt,posComma, posUnderscore, projId, pkgId, value
94
 
95
		txt = Mid(Request("pkg_id_list"), 1, len(Request("pkg_id_list"))-2)
96
		posComma = InStr(txt, ",")
97
 
98
		While posComma <> 0
99
			'Response.Write(txt)
100
			value = Mid(txt, 1, posComma-1)
101
			posUnderscore = Instr(value, "_")
102
			projId = Mid(value, 1, posUnderscore - 1)
103
			pkgId = Mid(value, posUnderscore + 1, posComma-1)
104
 
105
			Call DeletePackageInterestOwner(projId, pkgId)
106
 
107
			txt = Mid(txt, posComma + 1, Len(txt))
108
			posComma = InStr(txt, ",")
109
		Wend	
110
 
111
		If posComma = 0 Then
112
			posUnderscore = Instr(txt, "_")
113
			projId = Mid(txt, 1, posUnderscore - 1)
114
			pkgId = Mid(txt, posUnderscore + 1)
115
 
116
			Call DeletePackageInterestOwner(projId, pkgId)
117
 
118
		Else
119
		End if  	
120
		' --- Form is Valid ---
121
		'Call DeleteViewOwner()		
122
		If objEH.Finally Then
123
			Call OpenInWindow ( "members_notifications.asp" )
124
		End If	
125
	End If
126
End If
127
%>
128
<html>
129
<head>
130
<title>Release Manager</title>
131
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
132
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
133
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
134
<link rel="stylesheet" href="images/navigation.css" type="text/css">
135
<script language="JavaScript" src="images/common.js"></script>
136
<script language="javascript">
137
<!--
138
function checkUncheckAll(theElement) {
139
     var theForm = theElement.form, z = 0;
140
	 for(z=0; z<theForm.length;z++){
141
      if(theForm[z].type == 'checkbox' && theForm[z].name != 'checkall' && theForm[z].disabled != true){
142
	  theForm[z].checked = theElement.checked;
143
	  }
144
     }
145
    }
146
//-->
147
</script>
148
</head>
149
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
150
<!-- TIPS LAYERS -------------------------------------->
151
<div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>
152
<!----------------------------------------------------->
153
<!-- HEADER -->
154
<%If objAccessControl.UserLogedIn Then%>
155
<div id="Layer1" style="position:absolute; left:2; top:2; width:1px; height:1px; z-index:1"><a href="#"><img src="images/i_logout.gif" width="14" height="14" border="0" alt="Logout from <%=objAccessControl.UserName%> disabled" title="Logout from <%=objAccessControl.UserName%> disabled"></a></div>
156
<%End If%>
157
<table width="100%" border="0" cellspacing="0" cellpadding="0">
158
  <tr> 
159
    <td><a href="index.asp"><img src="images/b_release_manager.jpg" width="467" height="50" border="0"></a></td>
160
    <td valign="bottom" align="right">&nbsp;</td>
161
  </tr>
162
  <tr> 
163
    <td align=left noWrap valign=center width=150 background="images/h_dot.gif" height="1"></td>
164
    <td background="images/h_dot.gif" height="1"></td>
165
  </tr>
166
</table>
167
<!-- BODY ---->
168
<table width="100%" border="0" cellspacing="0" cellpadding="0">
169
  <tr> 
170
    <td width="1%" background="images/bg_member_dark.gif" valign="top"> 
171
      <!-- MEMBERS MENU ---------------------------------------------->
172
	  <!--#include file="members_menu_def.asp"-->
173
	  <%Call Member_Menu( "notifications" )%>
174
      <!--  MEMBERS MENU END ------------------------------------------>
175
    </td>
176
    <td width="1%" valign="top" background="images/bg_member_light.gif"><a href="index.asp" class="form_txt_link"><img src="images/i_home.gif" width="13" height="12" border="0" align="absmiddle">Exit</a></td>
177
    <td rowspan="2" valign="top" width="1%" background="images/bg_member_light.gif" nowrap> 
178
      <!------------------------------------------->
179
      <br>
180
      <span class="mmb_ttl">Notifications</span><br>
181
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
182
	  <form name="changeowner" method="post" action="members_change_owner.asp">
183
        <tr> 
184
          <td width="1%">&nbsp;</td>
185
          <td align="right"><img src="images/h_trsp_dot.gif" width="500" height="30"></td>
186
          <td width="1%">&nbsp;</td>
187
        </tr>
188
        <tr> 
189
          <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>
190
            <td background="images/bg_member_dark.gif" align="left" class="wform_ttl">&nbsp;</td>
191
          <td align="right" valign="top" width="1%" background="images/bg_member_dark.gif">&nbsp;</td>
192
        </tr>
193
        <tr> 
194
          <td width="1%" bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="100"></td>
195
          <td bgcolor="#FFFFFF" valign="top" class="form_item"> <br>
196
              You are currently the owner of the following packages. <br>
197
              NOTE: You will be notified when your package is ready to be build.<br>
198
              <br>
199
              <table width="100%" border="0" cellspacing="1" cellpadding="2">
200
                <tr> 
201
                  <td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">&nbsp;</td>
202
                  <td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Package Name and Version&nbsp;</td>
203
                  <td width="100%" background="images/bg_form_lightbluedark.gif" class="form_field">Location</td>
204
                </tr>
205
				<%
206
				Dim currPv_id
207
				currPv_id = -1
208
				Set rsTemp = OraDatabase.DbCreateDynaset( Get_My_Packages( objAccessControl.UserId ), cint(0))
209
			    While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
210
				%>
211
				<%If CStr( currPv_id ) <> CStr(rsTemp("pv_id")) Then%>
212
                <tr> 
213
                  <td background="images/bg_form_lightgray.gif" class="form_item"><input type="checkbox" name="pv_list" value="<%=rsTemp("pv_id")%>"></td>
214
                  <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>
215
                  <td background="images/bg_form_lightgray.gif" class="form_item"><%=rsTemp("proj_name") &" &gt; "& rsTemp("rtag_name") %></td>
216
                </tr>
217
				<%currPv_id = rsTemp("pv_id")%>
218
				<%Else%>
219
				<tr> 
220
                  <td background="images/bg_form_lightgray.gif" class="form_item"></td>
221
                  <td background="images/bg_form_lightgray.gif" class="form_item"></td>
222
                  <td background="images/bg_form_lightgray.gif" class="form_item"><%=rsTemp("proj_name") &" &gt; "& rsTemp("rtag_name") %></td>
223
                </tr>
224
				<%End If%>
225
				<%rsTemp.MoveNext
226
	    	    WEnd%>
227
				<%If rsTemp.RecordCount = 0 Then%>
228
				<tr> 
229
                  <td background="images/bg_form_lightgray.gif" class="form_item" colspan="3">You do not own any packages.</td>
230
                </tr>
231
				<%End If%>
232
              </table>
233
              <p>                <%If rsTemp.RecordCount <> 0 Then%>
234
                <input name="Submit" type="submit" class="form_btn" value="Change Owner">
235
                <%End If%>
236
			    </p>
237
              <p>&nbsp;</p>
238
 
239
			  </form>
240
<%
241
'-- FROM START ---------------------------------------------------------------------------------------------------------
242
objFormComponent.FormName = "FormName"
243
objFormComponent.Action = ScriptName
244
Call objFormComponent.FormStart()
245
%>
246
			<a name="PACKAGE_INTEREST"></a>
247
              <p>You are currently interested in the following packages. <br>
248
  NOTE: You will be notified when the package is officially released/autobuild.</p>
249
              <table width="100%" border="0" cellspacing="1" cellpadding="2">
250
		  <tr>
251
			<td nowrap class="form_iname" valign="top">Select Project </td>
252
			<td valign="top" nowrap class="form_iname">
253
			<%
254
 
255
			  Dim Query_String, rsQry
256
			  	Query_String = _
257
				" SELECT * FROM PROJECTS order by proj_name"
258
 
259
 
260
			  Set rsQry = OraDatabase.DbCreateDynaset( Query_String , cint(0) )
261
 
262
			Response.write "<select name='FRproj_id' onChange=""Cascaded_Menu('parent','"& scriptName &"?proj_id="&Request("FRproj_id")&"',this,0)"" class='form_item'>"
263
			Response.write "<option value='0' selected>--NONE--</option>"
264
			  %>
265
 
266
				<%While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
267
 
268
			If CDbl(Request("proj_id")) = CDbl(rsQry.Fields("proj_id")) Then
269
	        	Response.write "<option value='"& rsQry.Fields("proj_id") &"' selected>"& UCase(rsQry.Fields("proj_name")) &"</option>"
270
	        Else
271
 
272
				Response.write "<option value='"& rsQry.Fields("proj_id") &"'>"& UCase(rsQry.Fields("proj_name")) &"</option>"
273
			End If		
274
					rsQry.MoveNext
275
				WEnd
276
 
277
				rsQry.Close()
278
				Set rsQry = nothing
279
				%>
280
			  </select>		
281
			  </tr>
282
			  <%If parProjId > 0  Then %>	
283
			  <tr>
284
				<td nowrap class="form_iname" valign="top">Add Interest</td>
285
				<td valign="top" nowrap class="form_iname">			  
286
 
287
			<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>	
288
			<%End If%>
289
			  </tr>			  	  
290
                <tr>
291
                  <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field"><INPUT type=checkbox name="checkall" value="Check All" onClick="checkUncheckAll(this);"></td>
292
                  <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Project&nbsp;</td>
293
                  <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Package</td>
294
                </tr>
295
                <%
296
				Dim currProj_id
297
				currProj_id = -1
298
 
299
 
300
				Set rsTemp = OraDatabase.DbCreateDynaset(Get_My_Interest_Packages( objAccessControl.UserId ), cint(0))
301
			    While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
302
				%>
303
                <%If CStr( currProj_id ) <> CStr(rsTemp("proj_id")) Then%>
304
                <tr>
305
                  <td nowrap background="images/bg_form_lightgray.gif" class="form_item"></td>
306
                  <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><b><%=rsTemp("proj_name")%></b></td>
307
                  <td nowrap background="images/bg_form_lightgray.gif" class="form_item"></td>
308
                </tr>
309
                <%currProj_id = rsTemp("proj_id")%>
310
 
311
 
312
                <%End If%>
313
				<tr>
314
                  <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>
315
                  <td nowrap background="images/bg_form_lightgray.gif" class="form_item"></td>
316
                  <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsTemp("pkg_name")%></td>
317
                </tr>
318
                <%rsTemp.MoveNext
319
	    	    WEnd%>
320
                <%If rsTemp.RecordCount = 0 Then%>
321
                <tr>
322
                  <td background="images/bg_form_lightgray.gif" class="form_item" colspan="3">You are not interested in any packages.</td>
323
                </tr>
324
                <%End If%>
325
              </table>
326
              <br>
327
              <%If rsTemp.RecordCount <> 0 Then%>
328
              <input name="btn" type="submit" class="form_btn" value="Remove">
329
              <%End If
330
			  rsTemp.Close()
331
			  set rsTemp = nothing	
332
			  %>
333
			<input type="hidden" name="pkg_id_list" value="<%=Request("pkg_id_list")%>">
334
			<input type="hidden" name="action" value="true">
335
			</td>
336
          <td width="1%" background="images/lbox_bgside_white.gif">&nbsp;</td>
337
        </tr>
338
        <tr> 
339
          <td width="1%" background="images/bg_member_dark.gif" valign="bottom"><img src="images/h_trsp_dot.gif" width="13" height="13"></td>
340
          <td background="images/bg_member_dark.gif"></td>
341
          <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>
342
        </tr>
343
<%
344
Call objFormComponent.FormEnd()
345
'-- FROM END ----------------------------------------------------------------------------------------------------------------
346
%>
347
      </table>
348
      <!-------------------------------------------------------->
349
    </td>
350
    <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>
351
  </tr>
352
  <tr> 
353
    <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>
354
    <td background="images/bg_member_light.gif" valign="top"><img src="images/h_trsp_dot.gif" width="100" height="400"></td>
355
  </tr>
356
</table>
357
<!-- FOOTER -->
358
<!--#include file="_footer.asp"-->
359
</body>
360
</html>
361
<%
362
Call Destroy_All_Objects
363
%>