Subversion Repositories DevTools

Rev

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

Rev 4553 Rev 5176
Line 116... Line 116...
116 
   Set rsTemp = nothing
 116 
   Set rsTemp = nothing
117 
End Function
 117 
End Function
118 
 
 118 
 
119 
'-----------------------------------------------------------------------------------------------------------------------------
 119 
'-----------------------------------------------------------------------------------------------------------------------------
120 
Sub Rebuild_Environment ( NNrtag_id )
 120 
Sub Rebuild_Environment ( NNrtag_id )
121 
 
 - 
 
122 
   If Rebuild_Environment_Necessary(NNrtag_id) Then
 121 
   If Rebuild_Environment_Necessary(NNrtag_id) Then
- 
 
 122 
       Call Rebuild_Environment_Body(NNrtag_id, FALSE)
- 
 
 123 
   End If
- 
 
 124 
End Sub
123 
 
 125 
 
- 
 
 126 
'-----------------------------------------------------------------------------------------------------------------------------
- 
 
 127 
Sub Rebuild_Environment_Body ( NNrtag_id , BallStates)
124 
      On Error Resume Next
 128 
    On Error Resume Next
- 
 
 129 
 
- 
 
 130 
    ' It is important to set the flag rebuild_env = 'N' first,
- 
 
 131 
    ' to stop multiple processes doing the same thing
- 
 
 132 
    objEH.TryORA ( OraSession )
- 
 
 133 
    OraDatabase.ExecuteSQL " UPDATE release_tags "&_
- 
 
 134 
                         " SET rebuild_env = 'N'"&_
- 
 
 135 
                         " WHERE rtag_id = "& NNrtag_id
- 
 
 136 
    objEH.CatchORA ( OraSession )
- 
 
 137 
 
- 
 
 138 
    ' Only proceed if the last update succeeded
- 
 
 139 
    If objEH.LastOraFailed = FALSE Then
- 
 
 140 
        ' Now rebuild environment
- 
 
 141 
        objEH.TryORA ( OraSession )
- 
 
 142 
        OraDatabase.ExecuteSQL " BEGIN Rebuild_Environment( "& NNrtag_id &" ); END;"
- 
 
 143 
        objEH.CatchORA ( OraSession )
- 
 
 144 
    End If
- 
 
 145 
 
- 
 
 146 
    If BallStates Then
- 
 
 147 
        objEH.TryORA ( OraSession )
- 
 
 148 
        OraDatabase.ExecuteSQL " BEGIN REBUILD_DEPRECATE_STATE( "& NNrtag_id &" ); END;"
- 
 
 149 
        objEH.CatchORA ( OraSession )
- 
 
 150 
    End If
125 
 
 151 
 
126 
      ' It is important to set the flag rebuild_env = 'N' first, to stop multiple processes doing the same thing
 - 
 
127 
      objEH.TryORA ( OraSession )
 - 
 
128 
      OraDatabase.ExecuteSQL " UPDATE release_tags "&_
 - 
 
129 
                             " SET rebuild_env = 'N'"&_
 - 
 
130 
                             " WHERE rtag_id = "& NNrtag_id
 - 
 
131 
      objEH.CatchORA ( OraSession )
 - 
 
132 
 
 - 
 
133 
      ' Only proceed if the last update succeeded
 - 
 
134 
      If objEH.LastOraFailed = FALSE Then
 - 
 
135 
      ' Now rebuild environment
 - 
 
136 
         objEH.TryORA ( OraSession )
 - 
 
137 
         OraDatabase.ExecuteSQL " BEGIN Rebuild_Environment( "& NNrtag_id &" ); END;"
 - 
 
138 
         objEH.CatchORA ( OraSession )
 - 
 
139 
      End If
 - 
 
140 
   End If
 - 
 
141 
End Sub
 152 
End Sub
- 
 
 153 
 
142 
'-----------------------------------------------------------------------------------------------------------------------------
 154 
'-----------------------------------------------------------------------------------------------------------------------------
143 
Sub CheckRequirements ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters, sQuery )
 155 
Sub CheckRequirements ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters, sQuery )
144 
   Dim rsErr, Query_String
 156 
   Dim rsErr, Query_String
145 
   Query_String = sQuery
 157 
   Query_String = sQuery
146 
 
 158