Subversion Repositories DevTools

Rev

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

Rev 129 Rev 5172
Line 93... Line 93...
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
 97 
      If UCase(isOfficial) = "N" Then
98 
 
 - 
 
99 
         Set objWSH = Server.CreateObject("WScript.Shell")
 98 
       ' Does nothing.
100 
 
 - 
 
101 
         objWSH.Run  "cmd.exe /c cscript.exe //B //NoLogo "& rootPath & SCRIPTS_FOLDER &"\Admin_Tools.wsf //job:onMakeUnofficial "&_
 99 
       ' Once upon a time it would make the package writable in the package archive
102 
                     "/pv_id:"& NNpv_id , _
 - 
 
103 
                     0, FALSE
 100 
       ' but this is no more.
104 
 
 - 
 
105 
      End If
 101 
      End If
106 
 
 102 
 
107 
      '-- Notify new owner
 103 
      '-- Notify new owner
108 
      Call Send_Email ( "Release Manager Notification", adminEmail, GetUserEmail( NNown_id ), "You are now the owner of """& sPackage &"""", Empty, NULL )
 104 
      Call Send_Email ( "Release Manager Notification", adminEmail, GetUserEmail( NNown_id ), "You are now the owner of """& sPackage &"""", Empty, NULL )
109 
 
 105