Subversion Repositories DevTools

Rev

Rev 6176 | Rev 6705 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6176 Rev 6440
Line 79... Line 79...
79 
      ' and root_file is null) then it will remain exlcuded, as it will if there is some underlying package that has caused
 79 
      ' and root_file is null) then it will remain exlcuded, as it will if there is some underlying package that has caused
80 
      ' the exclusion.
 80 
      ' the exclusion.
81 
      OraDatabase.ExecuteSQL ("DELETE FROM do_not_ripple "&_
 81 
      OraDatabase.ExecuteSQL ("DELETE FROM do_not_ripple "&_
82 
                              "      WHERE pv_id   = :PV_ID "&_
 82 
                              "      WHERE pv_id   = :PV_ID "&_
83 
                              "        AND rtag_id = :RTAG_ID "&_
 83 
                              "        AND rtag_id = :RTAG_ID "&_
84 
                              "        AND root_pv_id IS NULL"&_
 84 
                              "        AND nvl(root_pv_id,-1) < 0"&_
85 
                              "        AND ((root_cause IS NOT NULL) OR (root_file IS NOT NULL))" )
 85 
                              "        AND ((root_cause IS NOT NULL) OR (root_file IS NOT NULL))" )
86 
 
 86 
 
87 
      If Err.Number = 0 Then
 87 
      If Err.Number = 0 Then
88 
 
 88 
 
89 
         OraDatabase.ExecuteSQL ("BEGIN Log_Action ( :PV_ID, :ACTION_TYPE_NAME, :USER_ID, :DESCRIPTION ); END;")
 89 
         OraDatabase.ExecuteSQL ("BEGIN Log_Action ( :PV_ID, :ACTION_TYPE_NAME, :USER_ID, :DESCRIPTION ); END;")