Subversion Repositories DevTools

Rev

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

Rev 139 Rev 151
Line 658... Line 658...
658 
 
 658 
 
659 
   OraDatabase.Parameters.Remove "RTAG_ID"
 659 
   OraDatabase.Parameters.Remove "RTAG_ID"
660 
   OraDatabase.Parameters.Remove "PV_ID"
 660 
   OraDatabase.Parameters.Remove "PV_ID"
661 
End Sub
 661 
End Sub
662 
'------------------------------------------------------------------------------------------------------------------
 662 
'------------------------------------------------------------------------------------------------------------------
- 
 
 663 
Sub UpdateChangeType (nPvId, nChangeType)
- 
 
 664 
   Dim rsTemp, Query_String
- 
 
 665 
 
- 
 
 666 
   On Error Resume Next
- 
 
 667 
   If (NOT IsNull(nChangeType)) AND (nChangeType <> "") AND (NOT IsNull(nPvId)) AND (nPvId <> "") Then
- 
 
 668 
 
- 
 
 669 
      OraDatabase.Parameters.Add "PV_ID",       nPvId,       ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 670 
      OraDatabase.Parameters.Add "CHANGE_TYPE", nChangeType, ORAPARM_INPUT, ORATYPE_CHAR
- 
 
 671 
 
- 
 
 672 
      objEH.TryORA ( OraSession )
- 
 
 673 
      On Error Resume Next
- 
 
 674 
 
- 
 
 675 
      OraDatabase.ExecuteSQL _
- 
 
 676 
      "UPDATE package_versions pv SET pv.change_type = '"& nChangeType &"' WHERE pv.pv_id = "& nPvId
- 
 
 677 
 
- 
 
 678 
      objEH.CatchORA ( OraSession )
- 
 
 679 
 
- 
 
 680 
      OraDatabase.Parameters.Remove "PV_ID"
- 
 
 681 
      OraDatabase.Parameters.Remove "CHANGE_TYPE"
- 
 
 682 
 
- 
 
 683 
      If objEH.LastOraFailed = FALSE Then
- 
 
 684 
         '/* Log Action */
- 
 
 685 
         If nChangeType = "M" Then
- 
 
 686 
            Call Log_Action ( nPvId, "change_type_update", "Major Change" )
- 
 
 687 
 
- 
 
 688 
         ElseIf nChangeType = "N" Then
- 
 
 689 
            Call Log_Action ( nPvId, "change_type_update", "Minor Change" )
- 
 
 690 
 
- 
 
 691 
         ElseIf nChangeType = "P" Then
- 
 
 692 
            Call Log_Action ( nPvId, "change_type_update", "Patch Change" )
- 
 
 693 
 
- 
 
 694 
         End If
- 
 
 695 
      End If
- 
 
 696 
   End If
- 
 
 697 
End Sub
- 
 
 698 
'------------------------------------------------------------------------------------------------------------------
- 
 
 699 
Sub UpdateReasonForVersion (nPvId, nReason)
- 
 
 700 
   Dim rsTemp, Query_String
- 
 
 701 
 
- 
 
 702 
   On Error Resume Next
- 
 
 703 
   If (NOT IsNull(nReason)) AND (nReason <> "") AND (NOT IsNull(nPvId)) AND (nPvId <> "") Then
- 
 
 704 
 
- 
 
 705 
      OraDatabase.Parameters.Add "PV_ID",    nPvId,   ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 706 
      OraDatabase.Parameters.Add "COMMENTS", nReason, ORAPARM_INPUT, ORATYPE_VARCHAR2
- 
 
 707 
 
- 
 
 708 
      objEH.TryORA ( OraSession )
- 
 
 709 
      On Error Resume Next
- 
 
 710 
 
- 
 
 711 
      OraDatabase.ExecuteSQL _
- 
 
 712 
      "UPDATE package_versions pv SET pv.comments = '"& nReason &"' WHERE pv.pv_id = "& nPvId
- 
 
 713 
 
- 
 
 714 
      objEH.CatchORA ( OraSession )
- 
 
 715 
 
- 
 
 716 
      OraDatabase.Parameters.Remove "PV_ID"
- 
 
 717 
      OraDatabase.Parameters.Remove "COMMENTS"
- 
 
 718 
 
- 
 
 719 
      If objEH.LastOraFailed = FALSE Then
- 
 
 720 
         '/* Log Action */
- 
 
 721 
         Call Log_Action ( nPvId, "reason_for_release", nReason )
- 
 
 722 
      End If
- 
 
 723 
   End If
- 
 
 724 
End Sub
- 
 
 725 
'------------------------------------------------------------------------------------------------------------------
- 
 
 726 
 
663 
%>
 727 
%>