Subversion Repositories DevTools

Rev

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

Rev 5357 Rev 5384
Line 92... Line 92...
92 
 
 92 
 
93 
   objEH.CatchORA ( OraSession )
 93 
   objEH.CatchORA ( OraSession )
94 
 
 94 
 
95 
   '-- Make dpkg_archive folder writable by all if Unofficial
 95 
   '-- Make dpkg_archive folder writable by all if Unofficial
96 
   If objEH.LastOraFailed = FALSE Then
 96 
   If objEH.LastOraFailed = FALSE Then
97 
      If UCase(isOfficial) = "N" Then
 - 
 
98 
       ' Does nothing.
 - 
 
99 
       ' Once upon a time it would make the package writable in the package archive
 - 
 
100 
       ' but this is no more.
 - 
 
101 
      End If
 - 
 
102 
 
 - 
 
103 
      '-- Notify new owner
 97 
      '-- Notify new owner
104 
      Call Send_Email ( "Release Manager Notification", ADMIN_EMAIL, GetUserEmail( NNown_id ), "You are now the owner of """& sPackage &"""", Empty, NULL )
 98 
      Call Send_Email ( "Release Manager Notification", ADMIN_EMAIL, GetUserEmail( NNown_id ), "You are now the owner of """& sPackage &"""", Empty, NULL )
105 
 
 99 
 
106 
      '-- Log the change
 100 
      '-- Log the change
107 
      sComments = "Changed from "& GetUsername(previousOwner) &" to "& GetUsername(NNown_id)
 101 
      sComments = "Changed from "& GetUsername(previousOwner) &" to "& GetUsername(NNown_id)