WebSVN – DevTools – Diff – /ManagerSuite/Release_Manager/trunk/members_notifications.asp

 '--------------------------------------------------------------------------------------------------------------------------
 Sub DeletePackageInterestOwner (projId, pkgId)
 	On Error Resume Next
-	OraDatabase.BeginTrans
 	OraDatabase.Parameters.Add "PROJ_ID",	projId, ORAPARM_INPUT, ORATYPE_NUMBER
 	OraDatabase.Parameters.Add "PKG_ID",	pkgId, 	ORAPARM_INPUT, ORATYPE_NUMBER
 	OraDatabase.Parameters.Add "USER_ID", 	objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
 	objEH.TryORA ( OraSession )
 	OraDatabase.ExecuteSQL _
 	"BEGIN   REMOVE_PACKAGE_INTEREST ( :PROJ_ID, :PKG_ID, :USER_ID );   END;"
 	objEH.CatchORA ( OraSession )
 	OraDatabase.Parameters.Remove "PROJ_ID"
 	OraDatabase.Parameters.Remove "PKG_ID"
 	OraDatabase.Parameters.Remove "USER_ID"
-	OraDatabase.CommitTrans
 End Sub
 '--------------------------------------------------------------------------------------------------------------
 If Request("btn") = "Remove" Then
 	If objForm.IsValidOnPostBack Then
 		Dim txt,posComma, posUnderscore, projId, pkgId, value
 		txt = Mid(Request("pkg_id_list"), 1, len(Request("pkg_id_list"))-2)
 		posComma = InStr(txt, ",")
 		While posComma <> 0
 			'Response.Write(txt)
 			value = Mid(txt, 1, posComma-1)
 			posUnderscore = Instr(value, "_")
 			projId = Mid(value, 1, posUnderscore - 1)
 			pkgId = Mid(value, posUnderscore + 1, posComma-1)
 			Call DeletePackageInterestOwner(projId, pkgId)
 			txt = Mid(txt, posComma + 1, Len(txt))
 			posComma = InStr(txt, ",")
 		Wend
 		If posComma = 0 Then
 			posUnderscore = Instr(txt, "_")
 			projId = Mid(txt, 1, posUnderscore - 1)
 			pkgId = Mid(txt, posUnderscore + 1)
 			Call DeletePackageInterestOwner(projId, pkgId)
 		Else
 		End if
 		' --- Form is Valid ---
 		'Call DeleteViewOwner()
 		If objEH.Finally Then
 			Call OpenInWindow ( "members_notifications.asp" )
 		End If
 	End If
 End If
 %>
 <html>
 <head>
 <!-- HEADER -->
 <%If objAccessControl.UserLogedIn Then%>
 <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>
 <%End If%>
 <table width="100%" border="0" cellspacing="0" cellpadding="0">
   <tr>
     <td><a href="index.asp"><img src="images/b_release_manager.jpg" width="467" height="50" border="0"></a></td>
     <td valign="bottom" align="right">&nbsp;</td>
   </tr>
   <tr>
     <td align=left noWrap valign=center width=150 background="images/h_dot.gif" height="1"></td>
     <td background="images/h_dot.gif" height="1"></td>
   </tr>
 </table>
 <!-- BODY ---->
 <table width="100%" border="0" cellspacing="0" cellpadding="0">
   <tr>
     <td width="1%" background="images/bg_member_dark.gif" valign="top">
       <!-- MEMBERS MENU ---------------------------------------------->
 	  <!--#include file="members_menu_def.asp"-->
 	  <%Call Member_Menu( "notifications" )%>
       <!--  MEMBERS MENU END ------------------------------------------>
     </td>
     <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>
     <td rowspan="2" valign="top" width="1%" background="images/bg_member_light.gif" nowrap>
       <!------------------------------------------->
       <br>
       <span class="mmb_ttl">Notifications</span><br>
       <table width="100%" border="0" cellspacing="0" cellpadding="0">
 	  <form name="changeowner" method="post" action="members_change_owner.asp">
         <tr>
           <td width="1%">&nbsp;</td>
           <td align="right"><img src="images/h_trsp_dot.gif" width="500" height="30"></td>
           <td width="1%">&nbsp;</td>
         </tr>
         <tr>
           <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>
             <td background="images/bg_member_dark.gif" align="left" class="wform_ttl">&nbsp;</td>
           <td align="right" valign="top" width="1%" background="images/bg_member_dark.gif">&nbsp;</td>
         </tr>
         <tr>
           <td width="1%" bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="100"></td>
           <td bgcolor="#FFFFFF" valign="top" class="form_item"> <br>
               You are currently the owner of the following packages. <br>
               NOTE: You will be notified when your package is ready to be build.<br>
               <br>
               <table width="100%" border="0" cellspacing="1" cellpadding="2">
                 <tr>
                   <td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">&nbsp;</td>
                   <td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Package Name and Version&nbsp;</td>
                   <td width="100%" background="images/bg_form_lightbluedark.gif" class="form_field">Location</td>
                 </tr>
 				<%
 				currPv_id = -1
 				Set rsTemp = OraDatabase.DbCreateDynaset( Get_My_Packages( objAccessControl.UserId ), cint(0))
 			    While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
 				%>
 				<%If CStr( currPv_id ) <> CStr(rsTemp("pv_id")) Then%>
                 <tr>
                   <td background="images/bg_form_lightgray.gif" class="form_item"><input type="checkbox" name="pv_list" value="<%=rsTemp("pv_id")%>"></td>
                   <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>
                   <td background="images/bg_form_lightgray.gif" class="form_item"><%=rsTemp("proj_name") &" &gt; "& rsTemp("rtag_name") %></td>
                 </tr>
 				<%currPv_id = rsTemp("pv_id")%>
 				<%Else%>
 				<tr>
                   <td background="images/bg_form_lightgray.gif" class="form_item"></td>
                   <td background="images/bg_form_lightgray.gif" class="form_item"></td>
                   <td background="images/bg_form_lightgray.gif" class="form_item"><%=rsTemp("proj_name") &" &gt; "& rsTemp("rtag_name") %></td>
                 </tr>
 				<%End If%>
 				<%rsTemp.MoveNext
 	    	    WEnd%>
 				<%If rsTemp.RecordCount = 0 Then%>
 				<tr>
                   <td background="images/bg_form_lightgray.gif" class="form_item" colspan="3">You do not own any packages.</td>
                 </tr>
 				<%End If%>
               </table>
               <p>                <%If rsTemp.RecordCount <> 0 Then%>
                 <input name="Submit" type="submit" class="form_btn" value="Change Owner">
                 <%End If%>
 			    </p>
               <p>&nbsp;</p>
 			  </form>
 <%
 '-- FROM START ---------------------------------------------------------------------------------------------------------
 objFormComponent.FormName = "FormName"
 objFormComponent.Action = ScriptName
               <table width="100%" border="0" cellspacing="1" cellpadding="2">
 		  <tr>
 			<td nowrap class="form_iname" valign="top">Select Project </td>
 			<td valign="top" nowrap class="form_iname">
 			<%
 			  Dim Query_String, rsQry
 			  	Query_String = _
 				" SELECT * FROM PROJECTS order by proj_name"
 			  Set rsQry = OraDatabase.DbCreateDynaset( Query_String , cint(0) )
 			Response.write "<select name='FRproj_id' onChange=""Cascaded_Menu('parent','"& scriptName &"?proj_id="&Request("FRproj_id")&"',this,0)"" class='form_item'>"
 			Response.write "<option value='0' selected>--NONE--</option>"
 			  %>
 				<%While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 			If CDbl(Request("proj_id")) = CDbl(rsQry.Fields("proj_id")) Then
 	        	Response.write "<option value='"& rsQry.Fields("proj_id") &"' selected>"& UCase(rsQry.Fields("proj_name")) &"</option>"
 	        Else
 				Response.write "<option value='"& rsQry.Fields("proj_id") &"'>"& UCase(rsQry.Fields("proj_name")) &"</option>"
 			End If
 					rsQry.MoveNext
 				WEnd
 				rsQry.Close()
 				Set rsQry = nothing
 				%>
 			  </select>
 			  </tr>
 			  <%If parProjId > 0  Then %>
 			  <tr>
 				<td nowrap class="form_iname" valign="top">Add Interest</td>
 				<td valign="top" nowrap class="form_iname">
 			<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>
 			<%End If%>
 			  </tr>
                 <tr>
                   <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field"><INPUT type=checkbox name="checkall" value="Check All" onClick="checkUncheckAll(this);"></td>
                   <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Project&nbsp;</td>
                   <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Package</td>
                 </tr>
                 <%
 				Dim currProj_id
 				currProj_id = -1
 				Set rsTemp = OraDatabase.DbCreateDynaset(Get_My_Interest_Packages( objAccessControl.UserId ), cint(0))
 			    While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
 				%>
                 <%If CStr( currProj_id ) <> CStr(rsTemp("proj_id")) Then%>
                 <tr>
                   <td nowrap background="images/bg_form_lightgray.gif" class="form_item"></td>
                   <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><b><%=rsTemp("proj_name")%></b></td>
                   <td nowrap background="images/bg_form_lightgray.gif" class="form_item"></td>
                 </tr>
                 <%currProj_id = rsTemp("proj_id")%>
                 <%End If%>
 				<tr>
                   <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>
                   <td nowrap background="images/bg_form_lightgray.gif" class="form_item"></td>
               <br>
               <%If rsTemp.RecordCount <> 0 Then%>
               <input name="btn" type="submit" class="form_btn" value="Remove">
               <%End If
 			  rsTemp.Close()
 			  set rsTemp = nothing
 			  %>
 			<input type="hidden" name="pkg_id_list" value="<%=Request("pkg_id_list")%>">
 			<input type="hidden" name="action" value="true">
 			</td>
           <td width="1%" background="images/lbox_bgside_white.gif">&nbsp;</td>
         </tr>
         <tr>
           <td width="1%" background="images/bg_member_dark.gif" valign="bottom"><img src="images/h_trsp_dot.gif" width="13" height="13"></td>
           <td background="images/bg_member_dark.gif"></td>
           <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>
         </tr>
 <%
       </table>
       <!-------------------------------------------------------->
     </td>
     <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>
   </tr>
   <tr>
     <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>
     <td background="images/bg_member_light.gif" valign="top"><img src="images/h_trsp_dot.gif" width="100" height="400"></td>
   </tr>
 </table>
 <!-- FOOTER -->
 <!--#include file="_footer.asp"-->
 </body>
 </html>
 <%
 Call Destroy_All_Objects
-%>
 %>

Subversion Repositories DevTools

(root)/ManagerSuite/Release_Manager/trunk/members_notifications.asp @ 157 – Rev 119 → 129