Subversion Repositories DevTools

Rev

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

Rev 6579 Rev 6624
Line 59... Line 59...
59 
   "  WHERE usr.IS_DISABLED IS NULL"&_
 59 
   "  WHERE usr.IS_DISABLED IS NULL"&_
60 
   "  ORDER BY UPPER(usr.full_name)"
 60 
   "  ORDER BY UPPER(usr.full_name)"
61 
End Function
 61 
End Function
62 
 
 62 
 
63 
Sub Update_Owner ( NNpv_id, NNown_id )
 63 
Sub Update_Owner ( NNpv_id, NNown_id )
64 
   Dim rsTemp, Query_String, sComments, previousOwner, isOfficial
 64 
   Dim rsTemp, Query_String, sComments, previousOwner
65 
   Dim objWSH, sPackage
 65 
   Dim objWSH, sPackage
66 
 
 66 
 
67 
 
 67 
 
68 
   '-- Get package details
 68 
   '-- Get package details
69 
   Query_String = _
 69 
   Query_String = _
70 
   " SELECT pv.owner_id, pv.dlocked, pkg.pkg_name, pv.pkg_version"&_
 70 
   " SELECT pv.owner_id, pv.dlocked, pkg.pkg_name, pv.pkg_version"&_
71 
   " FROM package_versions pv, packages pkg"&_
 71 
   " FROM package_versions pv, packages pkg"&_
72 
   " WHERE pv.pv_id = "& NNpv_id &_
 72 
   " WHERE pv.pv_id = "& NNpv_id &_
73 
   "   AND pv.pkg_id = pkg.pkg_id"
 73 
   "   AND pv.pkg_id = pkg.pkg_id" &_
- 
 
 74 
   "   AND pv.owner_id != " & NNown_id
74 
 
 75 
 
75 
   Set rsTemp = OraDatabase.CreateDynaset( Query_String, cint(0))
 76 
   Set rsTemp = OraDatabase.CreateDynaset( Query_String, cint(0))
- 
 
 77 
   If rsTemp.RecordCount <> 0 Then
76 
   previousOwner = rsTemp.Fields("owner_id").Value
 78 
       previousOwner = rsTemp.Fields("owner_id").Value
77 
 
 79 
 
- 
 
 80 
       sPackage = rsTemp("pkg_name") &" "& rsTemp("pkg_version")
- 
 
 81 
 
- 
 
 82 
       '-- Update database to change the owner
- 
 
 83 
       objEH.TryORA ( OraSession )
- 
 
 84 
       On Error Resume Next
- 
 
 85 
 
78 
   isOfficial = rsTemp("dlocked")
 86 
       OraDatabase.ExecuteSQL _
- 
 
 87 
          " UPDATE PACKAGE_VERSIONS pv SET "&_
- 
 
 88 
          " pv.owner_id = "& NNown_id &_
- 
 
 89 
          " WHERE pv.pv_id = "& NNpv_id
- 
 
 90 
 
- 
 
 91 
       objEH.CatchORA ( OraSession )
- 
 
 92 
 
- 
 
 93 
       If objEH.LastOraFailed = FALSE Then
- 
 
 94 
          '-- Notify new owner
- 
 
 95 
          Call Send_Email ( "Release Manager Notification", ADMIN_EMAIL, GetUserEmail( NNown_id ), "You are now the owner of """& sPackage &"""", Empty, NULL )
- 
 
 96 
 
- 
 
 97 
          '-- Log the change
- 
 
 98 
          sComments = "Changed from "& GetUsername(previousOwner) &" to "& GetUsername(NNown_id)
79 
   sPackage = rsTemp("pkg_name") &" "& rsTemp("pkg_version")
 99 
          call Log_Action ( NNpv_id, "owner_change", sComments )
- 
 
 100 
       End If
- 
 
 101 
   End If
80 
 
 102 
 
81 
   rsTemp.Close
 103 
   rsTemp.Close
82 
   Set rsTemp = nothing
 104 
   Set rsTemp = nothing
83 
 
 - 
 
84 
   '-- Update database to change the owner
 - 
 
85 
   objEH.TryORA ( OraSession )
 - 
 
86 
   On Error Resume Next
 - 
 
87 
 
 - 
 
88 
   OraDatabase.ExecuteSQL _
 - 
 
89 
      " UPDATE PACKAGE_VERSIONS pv SET "&_
 - 
 
90 
      " pv.owner_id = "& NNown_id &_
 - 
 
91 
      " WHERE pv.pv_id = "& NNpv_id
 - 
 
92 
 
 - 
 
93 
   objEH.CatchORA ( OraSession )
 - 
 
94 
 
 - 
 
95 
   '-- Make dpkg_archive folder writable by all if Unofficial
 - 
 
96 
   If objEH.LastOraFailed = FALSE Then
 - 
 
97 
      '-- Notify new owner
 - 
 
98 
      Call Send_Email ( "Release Manager Notification", ADMIN_EMAIL, GetUserEmail( NNown_id ), "You are now the owner of """& sPackage &"""", Empty, NULL )
 - 
 
99 
 
 - 
 
100 
      '-- Log the change
 - 
 
101 
      sComments = "Changed from "& GetUsername(previousOwner) &" to "& GetUsername(NNown_id)
 - 
 
102 
      call Log_Action ( NNpv_id, "owner_change", sComments )
 - 
 
103 
   End If
 - 
 
104 
End Sub
 105 
End Sub
105 
%>
 106 
%>
106 
<%
 107 
<%
107 
'Process submition
 108 
'Process submition
108 
If CBool(QStrPar("action")) AND  objAccessControl.UserLogedIn Then
 109 
If CBool(QStrPar("action")) AND objAccessControl.UserLogedIn Then
109 
   Call Update_Owner ( parPv_id, Request("own_id") )
 110 
   Call Update_Owner ( parPv_id, Request("own_id") )
110 
   Call ReloadParentWindow
 111 
   Call ReloadParentWindow
111 
   Call CloseWindow
 112 
   Call CloseWindow
112 
End If
 113 
End If
113 
%>
 114 
%>