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
%>