Subversion Repositories DevTools

Rev

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

Rev 5506 Rev 5751
Line 113... Line 113...
113 
    setSdkState
 113 
    setSdkState
114 
 
 114 
 
115 
ElseIf (parOpr = "setSdkContentState") Then
 115 
ElseIf (parOpr = "setSdkContentState") Then
116 
    setSdkContentState
 116 
    setSdkContentState
117 
 
 117 
 
- 
 
 118 
ElseIf (parOpr = "cloneSdkPackages") Then
- 
 
 119 
    cloneSdkPackages
- 
 
 120 
 
- 
 
 121 
ElseIf (parOpr = "setSdkPackages") Then
- 
 
 122 
    setSdkPackages
- 
 
 123 
 
118 
Else
 124 
Else
119 
    oJSON.data("error") = 1
 125 
    oJSON.data("error") = 1
120 
    oJSON.data("emsgSummary") = "Unknown JSON Operation"
 126 
    oJSON.data("emsgSummary") = "Unknown JSON Operation"
121 
    oJSON.data("emsgDetails") = "The Requested JSON operation is not supported: " & parOpr
 127 
    oJSON.data("emsgDetails") = "The Requested JSON operation is not supported: " & parOpr
122 
End If
 128 
End If
Line 972... Line 978...
972 
    OraDatabase.Parameters.Remove "SDKPKG_STATE"
 978 
    OraDatabase.Parameters.Remove "SDKPKG_STATE"
973 
    OraDatabase.Parameters.Remove "PV_ID"
 979 
    OraDatabase.Parameters.Remove "PV_ID"
974 
    OraDatabase.Parameters.Remove "SDKTAG_ID"
 980 
    OraDatabase.Parameters.Remove "SDKTAG_ID"
975 
 
 981 
 
976 
End Sub
 982 
End Sub
- 
 
 983 
 
- 
 
 984 
'-------------------------------------------------
- 
 
 985 
' Function:     cloneSdkPackages
- 
 
 986 
' Description:  Clone state from reference SDK
- 
 
 987 
'               Merge selected items (Leave unselected alone)
- 
 
 988 
'               Request Parameters
- 
 
 989 
'                   sdktag_id
- 
 
 990 
'                   sdk_ref_tag_id
- 
 
 991 
Sub cloneSdkPackages
- 
 
 992 
    OraDatabase.Parameters.Add "SDKTAG_ID",     QStrPar("sdktagId"), ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 993 
    OraDatabase.Parameters.Add "SDK_REFTAG_ID",  QStrPar("sdk_reftag_id"), ORAPARM_INPUT, ORATYPE_CHAR
- 
 
 994 
 
- 
 
 995 
        '   Merge ref state into sdk
- 
 
 996 
        SqlQry = _
- 
 
 997 
            "MERGE INTO SDK_CONTENT t USING " &_
- 
 
 998 
            "(SELECT A.PV_ID, " &_
- 
 
 999 
            "  A.sdkpkg_state, " &_
- 
 
 1000 
            "  B.sdkpkg_state AS REF_SDKPKG_STATE " &_
- 
 
 1001 
            "FROM " &_
- 
 
 1002 
            "  (SELECT p.pkg_name " &_
- 
 
 1003 
            "    || pv.v_ext AS mname, " &_
- 
 
 1004 
            "    sc.pv_id, " &_
- 
 
 1005 
            "    sc.sdkpkg_state " &_
- 
 
 1006 
            "  FROM SDK_CONTENT SC , " &_
- 
 
 1007 
            "    PACKAGE_VERSIONS pv, " &_
- 
 
 1008 
            "    PACKAGES p " &_
- 
 
 1009 
            "  WHERE sc.sdktag_id = :sdktag_id " &_
- 
 
 1010 
            "  AND pv.pv_id       = sc.pv_id " &_
- 
 
 1011 
            "  AND p.pkg_id       = pv.pkg_id " &_
- 
 
 1012 
            "  ) A " &_
- 
 
 1013 
            "INNER JOIN " &_
- 
 
 1014 
            "  (SELECT p.pkg_name " &_
- 
 
 1015 
            "    || pv.v_ext AS mname, " &_
- 
 
 1016 
            "    sc.pv_id, " &_
- 
 
 1017 
            "    sc.sdkpkg_state " &_
- 
 
 1018 
            "  FROM SDK_CONTENT SC , " &_
- 
 
 1019 
            "    PACKAGE_VERSIONS pv, " &_
- 
 
 1020 
            "    PACKAGES p " &_
- 
 
 1021 
            "  WHERE sc.sdktag_id = :sdk_reftag_id " &_
- 
 
 1022 
            "  AND pv.pv_id       = sc.pv_id " &_
- 
 
 1023 
            "  AND p.pkg_id       = pv.pkg_id " &_
- 
 
 1024 
            "  ) B " &_
- 
 
 1025 
            "ON A.mname            = B.mname " &_
- 
 
 1026 
            "AND A.sdkpkg_state   != B.sdkpkg_state AND A.sdkpkg_state != 'E' " &_
- 
 
 1027 
            ") aa ON (t.pv_id = aa.pv_id ) " &_
- 
 
 1028 
            "WHEN MATCHED THEN " &_
- 
 
 1029 
            "  UPDATE SET t.sdkpkg_state = aa.ref_sdkpkg_state " &_
- 
 
 1030 
            "WHERE  t.sdktag_id = :sdktag_id"
- 
 
 1031 
 
- 
 
 1032 
        objEH.ErrorRedirect = FALSE
- 
 
 1033 
        objEH.TryORA ( OraSession )
- 
 
 1034 
        On Error Resume Next
- 
 
 1035 
        OraDatabase.ExecuteSQL SqlQry
- 
 
 1036 
        objEH.CatchORA ( OraSession )
- 
 
 1037 
        On Error GoTo 0
- 
 
 1038 
        result = 0
- 
 
 1039 
 
- 
 
 1040 
    OraDatabase.Parameters.Remove "SDKTAG_ID"
- 
 
 1041 
    OraDatabase.Parameters.Remove "SDK_REFTAG_ID"
- 
 
 1042 
 
- 
 
 1043 
End Sub
- 
 
 1044 
 
- 
 
 1045 
'-------------------------------------------------
- 
 
 1046 
' Function:     setSdkPackages
- 
 
 1047 
' Description:  Clear state from reference SDK
- 
 
 1048 
'               Request Parameters
- 
 
 1049 
'                   sdktag_id
- 
 
 1050 
Sub setSdkPackages
- 
 
 1051 
    OraDatabase.Parameters.Add "SDKTAG_ID",     QStrPar("sdktagId"), ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 1052 
    OraDatabase.Parameters.Add "SDKPKG_STATE",  QStrPar("sdkpkg_state"), ORAPARM_INPUT, ORATYPE_CHAR
- 
 
 1053 
 
- 
 
 1054 
        '   Reset ref state into sdk
- 
 
 1055 
        SqlQry = _
- 
 
 1056 
            "UPDATE SDK_CONTENT " &_
- 
 
 1057 
            "  SET SDKPKG_STATE = :SDKPKG_STATE " &_
- 
 
 1058 
            "  WHERE SDKTAG_ID =  :sdktag_id AND SDKPKG_STATE != :SDKPKG_STATE"
- 
 
 1059 
        objEH.ErrorRedirect = FALSE
- 
 
 1060 
        objEH.TryORA ( OraSession )
- 
 
 1061 
        On Error Resume Next
- 
 
 1062 
        OraDatabase.ExecuteSQL SqlQry
- 
 
 1063 
        objEH.CatchORA ( OraSession )
- 
 
 1064 
        On Error GoTo 0
- 
 
 1065 
        result = 0
- 
 
 1066 
 
- 
 
 1067 
    OraDatabase.Parameters.Remove "SDKTAG_ID"
- 
 
 1068 
    OraDatabase.Parameters.Remove "SDKPKG_STATE"
- 
 
 1069 
End Sub
- 
 
 1070 
 
- 
 
 1071 
 
977 
%>
 1072 
%>