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
%>