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

 <%@LANGUAGE="VBSCRIPT"%>
 <%
 Option explicit
-Response.Expires = 0	' always load the page, dont store
+Response.Expires = 0   ' always load the page, dont store
 %>
 <%
 '=====================================================
-'					Change Owner
+'               Change Owner
 '=====================================================
 %>
 <!--#include file="common/conf.asp"-->
 <!--#include file="common/globals.asp"-->
 <!--#include file="common/qstr.asp"-->
 parPv_id = QStrPar("pv_id")
 '----------------------------------------------
 %>
 <%
 Sub Get_Pkg_Info_With_Owner ( NNpv_id )
-	Dim rsTemp, Query_String
+   Dim rsTemp, Query_String
-	Query_String = _
+   Query_String = _
-	" SELECT pkg.pkg_name, pv.pkg_version, pv.owner_id"&_
+   " SELECT pkg.pkg_name, pv.pkg_version, pv.owner_id"&_
-	"   FROM packages pkg, package_versions pv"&_
+   "   FROM packages pkg, package_versions pv"&_
-	"  WHERE pkg.pkg_id = pv.pkg_id"&_
+   "  WHERE pkg.pkg_id = pv.pkg_id"&_
-	"    AND pv.pv_id = "& NNpv_id
+   "    AND pv.pv_id = "& NNpv_id
-	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
+   Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
-	If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
+   If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
-		pkgInfoHash.Add "pkg_name", (rsTemp.Fields("pkg_name"))
+      pkgInfoHash.Add "pkg_name", (rsTemp.Fields("pkg_name"))
-		pkgInfoHash.Add "pkg_version", (rsTemp.Fields("pkg_version"))
+      pkgInfoHash.Add "pkg_version", (rsTemp.Fields("pkg_version"))
-		pkgInfoHash.Add "owner_id", (rsTemp.Fields("owner_id"))
+      pkgInfoHash.Add "owner_id", (rsTemp.Fields("owner_id"))
-	End If
+   End If
-	rsTemp.Close
+   rsTemp.Close
-	Set rsTemp = nothing
+   Set rsTemp = nothing
 End Sub
 Function Users_List ( )
-	Users_List = _
+   Users_List = _
-	" SELECT usr.user_id, usr.full_name"&_
+   " SELECT usr.user_id, usr.full_name"&_
     "   FROM users usr"&_
-	"  WHERE usr.IS_DISABLED IS NULL"&_
+   "  WHERE usr.IS_DISABLED IS NULL"&_
-	"  ORDER BY UPPER(usr.full_name)"
+   "  ORDER BY UPPER(usr.full_name)"
 End Function
 Sub Update_Owner ( NNpv_id, NNown_id )
-	Dim rsTemp, Query_String, sComments, previousOwner, isOfficial
+   Dim rsTemp, Query_String, sComments, previousOwner, isOfficial
-	Dim objWSH, sPackage
+   Dim objWSH, sPackage
-	'-- Get package details
+   '-- Get package details
-	Query_String = _
+   Query_String = _
-	" SELECT pv.owner_id, pv.dlocked, pkg.pkg_name, pv.pkg_version"&_
+   " SELECT pv.owner_id, pv.dlocked, pkg.pkg_name, pv.pkg_version"&_
-	" FROM package_versions pv, packages pkg"&_
+   " FROM package_versions pv, packages pkg"&_
-	" WHERE pv.pv_id = "& NNpv_id &_
+   " WHERE pv.pv_id = "& NNpv_id &_
-	"   AND pv.pkg_id = pkg.pkg_id"
+   "   AND pv.pkg_id = pkg.pkg_id"
-	Set rsTemp = OraDatabase.CreateDynaset( Query_String, cint(0))
+   Set rsTemp = OraDatabase.CreateDynaset( Query_String, cint(0))
-	previousOwner = rsTemp.Fields("owner_id").Value
+   previousOwner = rsTemp.Fields("owner_id").Value
-	isOfficial = rsTemp("dlocked")
+   isOfficial = rsTemp("dlocked")
-	sPackage = rsTemp("pkg_name") &" "& rsTemp("pkg_version")
+   sPackage = rsTemp("pkg_name") &" "& rsTemp("pkg_version")
-	rsTemp.Close
+   rsTemp.Close
-	Set rsTemp = nothing
+   Set rsTemp = nothing
-	'-- Update database to change the owner
+   '-- Update database to change the owner
+   objEH.TryORA ( OraSession )
-	OraSession.BeginTrans
+   On Error Resume Next
-	OraDatabase.ExecuteSQL _
+   OraDatabase.ExecuteSQL _
-		" UPDATE PACKAGE_VERSIONS pv SET "&_
+      " UPDATE PACKAGE_VERSIONS pv SET "&_
-		" pv.owner_id = "& NNown_id &_
+      " pv.owner_id = "& NNown_id &_
-		" WHERE pv.pv_id = "& NNpv_id
+      " WHERE pv.pv_id = "& NNpv_id
-	OraSession.CommitTrans
+   objEH.CatchORA ( OraSession )
-	'-- Make dpkg_archive folder writable by all if Unofficial
+   '-- Make dpkg_archive folder writable by all if Unofficial
+   If objEH.LastOraFailed = FALSE Then
-	If UCase(isOfficial) = "N" Then
+      If UCase(isOfficial) = "N" Then
-		Set objWSH = Server.CreateObject("WScript.Shell")
+         Set objWSH = Server.CreateObject("WScript.Shell")
-		objWSH.Run   "cmd.exe /c cscript.exe //B //NoLogo "& rootPath & SCRIPTS_FOLDER &"\Admin_Tools.wsf //job:onMakeUnofficial "&_
+         objWSH.Run  "cmd.exe /c cscript.exe //B //NoLogo "& rootPath & SCRIPTS_FOLDER &"\Admin_Tools.wsf //job:onMakeUnofficial "&_
-	                 "/pv_id:"& NNpv_id , _
+                     "/pv_id:"& NNpv_id , _
 , FALSE
-	End If
+      End If
-	'-- Notify new owner
+      '-- Notify new owner
-	Call Send_Email ( "Release Manager Notification", adminEmail, GetUserEmail( NNown_id ), "You are now the owner of """& sPackage &"""", Empty, NULL )
+      Call Send_Email ( "Release Manager Notification", adminEmail, GetUserEmail( NNown_id ), "You are now the owner of """& sPackage &"""", Empty, NULL )
-	'-- Log the change
+      '-- Log the change
-	sComments = "Changed from "& GetUsername(previousOwner) &" to "& GetUsername(NNown_id)
+      sComments = "Changed from "& GetUsername(previousOwner) &" to "& GetUsername(NNown_id)
-	call Log_Action ( NNpv_id, "owner_change", sComments )
+      call Log_Action ( NNpv_id, "owner_change", sComments )
+   End If
 End Sub
 %>
 <%
 'Process submition
 If CBool(QStrPar("action")) AND  objAccessControl.UserLogedIn Then
-	Call Update_Owner ( parPv_id, Request("own_id") )
+   Call Update_Owner ( parPv_id, Request("own_id") )
-	Call OpenInParentWindow ( "dependencies.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id )
+   Call OpenInParentWindow ( "dependencies.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id )
-	Call CloseWindow
+   Call CloseWindow
 End If
 %>
 <%
 Call Get_Pkg_Info_With_Owner ( parPv_id )
 %>
 </head>
 <body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onload="self.focus();">
 <form name="chowner" method="post" action="<%=scriptName%>">
   <table width="100%" border="0" cellspacing="0" cellpadding="2" height="100%">
     <tr>
       <td background="images/lbox_bg_orange.gif" width="1%" height="1%"><img src="images/i_owner.gif" width="20" height="29" hspace="5"></td>
       <td background="images/lbox_bg_blue.gif" nowrap width="50%" class="wform_ttl">&nbsp;Change Owner</td>
       <td background="images/lbox_bg_blue.gif" align="right" width="50%">
         <input type="submit" name="btn" value="Update" class="form_btn_comp">
         <input type="reset" name="btn" value="Cancel" class="form_btn_comp" onclick="self.close()">
       </td>
       <td background="images/lbox_bg_blue.gif" align="right" width="1%%" nowrap>
         <img src="images/h_trsp_dot.gif" width="5" height="22"> </td>
     </tr>
     <tr>
       <td height="100%" width="1%">&nbsp;</td>
       <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/bg_form_lightgray.gif">
         <table width="100%" border="0" cellspacing="1" cellpadding="2">
           <tr>
             <td width="1%"><img src="images/h_trsp_dot.gif" width="10" height="30"></td>
             <td width="1%" nowrap class="form_group" valign="bottom"></td>
             <td nowrap width="100%">&nbsp; </td>
           </tr>
           <tr>
             <td width="1%">&nbsp;</td>
             <td width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Package</td>
             <td nowrap width="100%" background="images/bg_form_lightbluedark.gif" class="form_txt">
               <%=pkgInfoHash.Item ("pkg_name") &" "& pkgInfoHash.Item ("pkg_version")%></td>
           </tr>
           <tr>
             <td width="1%">&nbsp;</td>
             <td width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Owner</td>
             <td nowrap width="100%" background="images/bg_form_lightbluedark.gif">
-			<select name="own_id" class="form_item">
+         <select name="own_id" class="form_item">
 <%
-			Dim rsUsers
+         Dim rsUsers
-			Set rsUsers = OraDatabase.DbCreateDynaset( Users_List( ), cint(0))
+         Set rsUsers = OraDatabase.DbCreateDynaset( Users_List( ), cint(0))
-			While ((NOT rsUsers.BOF) AND (NOT rsUsers.EOF))%>
+         While ((NOT rsUsers.BOF) AND (NOT rsUsers.EOF))%>
                 <option <%If CInt(rsUsers("user_id")) = CInt(pkgInfoHash.Item("owner_id")) Then%>selected<%End If%> value="<%=rsUsers.Fields("user_id")%>"><%=rsUsers.Fields("full_name")%></option>
-<%				rsUsers.MoveNext
+<%            rsUsers.MoveNext
-			WEnd
+         WEnd
-			rsUsers.Close
+         rsUsers.Close
-			set rsUsers = nothing
+         set rsUsers = nothing
-			%>
+         %>
-			</select>
+         </select>
             <input type="hidden" name="pv_id" value="<%=parPv_id%>">
-			<input type="hidden" name="rtag_id" value="<%=parRtag_id%>">
+         <input type="hidden" name="rtag_id" value="<%=parRtag_id%>">
-			<input type="hidden" name="action" value="true">
+         <input type="hidden" name="action" value="true">
             </td>
           </tr>
           <tr>
             <td width="1%">&nbsp;</td>
             <td width="1%" nowrap class="form_field"><img src="images/h_trsp_dot.gif" width="100" height="10"></td>
             <td nowrap width="100%">
               <p>&nbsp;</p>
             </td>
           </tr>
         </table>
       </td>
 </body>
 </html>
 <!-- DESTRUCTOR ------->
-<!--#include file="common/destructor.asp"-->
 <!--#include file="common/destructor.asp"-->

Subversion Repositories DevTools

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