WebSVN – DevTools – Diff – /ManagerSuite/Release_Manager/trunk/sdk_opr_json.asp

+    '
     '   Setup for the database access
     OraDatabase.Parameters.Add "SDKNAME",    QStrPar("sdkName"),    ORAPARM_INPUT, ORATYPE_VARCHAR2
     OraDatabase.Parameters.Add "SDKCOMMENT", QStrPar("sdkComment"), ORAPARM_INPUT, ORATYPE_VARCHAR2
     OraDatabase.Parameters.Add "SDKBASEVIEW", baseView,             ORAPARM_INPUT, ORATYPE_VARCHAR2
-    OraDatabase.Parameters.Add "SDKVIEWID", 0,                       ORAPARM_INPUT, ORATYPE_NUMBER
+    OraDatabase.Parameters.Add "SDKVIEWID",  0,                     ORAPARM_INPUT, ORATYPE_NUMBER
+    OraDatabase.Parameters.Add "SDKPROJECT", QStrPar("sdkProject"), ORAPARM_INPUT, ORATYPE_NUMBER
      '  Test existance - simply to provide a Nice Error message
     SqlQry = "SELECT * FROM SDK_NAMES WHERE SDK_NAME = :SDKNAME"
     objEH.ErrorRedirect = FALSE
     objEH.TryORA ( OraSession )
               "INSERT INTO views (view_id, view_name, owner_id, base_view, public_read)"&_
               " VALUES ("& SEQ_view_id &", '"& baseView  &"', 0,'S','Y')"
         End If
         If Err.Number = 0 Then
-            SqlQry = "INSERT INTO SDK_NAMES (SDK_NAME, SDK_COMMENT, VIEW_ID) VALUES (:SDKNAME, :SDKCOMMENT, :SDKVIEWID )"
+            SqlQry = "INSERT INTO SDK_NAMES (SDK_NAME, SDK_COMMENT, VIEW_ID, PROJ_ID) VALUES (:SDKNAME, :SDKCOMMENT, :SDKVIEWID, :SDKPROJECT )"
             On Error Resume Next
             OraDatabase.ExecuteSQL SqlQry
             If Err.Number = 0 Then
                 result = 0
             End If
         End If
         objEH.CatchORA ( OraSession )
         On Error GoTo 0
     End If
+    OraDatabase.Parameters.Remove "SDKPROJECT"
     OraDatabase.Parameters.Remove "SDKVIEWID"
     OraDatabase.Parameters.Remove "SDKBASEVIEW"
     OraDatabase.Parameters.Remove "SDKCOMMENT"
     OraDatabase.Parameters.Remove "SDKNAME"
 End Sub
+    '
     OraDatabase.Parameters.Add "SDKID",      QStrPar("sdkId"), ORAPARM_INPUT, ORATYPE_NUMBER
     OraDatabase.Parameters.Add "SDKNAME",    QStrPar("sdkName"), ORAPARM_INPUT, ORATYPE_VARCHAR2
     OraDatabase.Parameters.Add "SDKCOMMENT", QStrPar("sdkComment"), ORAPARM_INPUT, ORATYPE_VARCHAR2
     OraDatabase.Parameters.Add "SDKBASEVIEW", QStrPar("sdkBaseView"), ORAPARM_INPUT, ORATYPE_NUMBER
+    OraDatabase.Parameters.Add "SDKPROJECT", QStrPar("sdkProject"), ORAPARM_INPUT, ORATYPE_NUMBER
     '  Test existance - simply to provide a Nice Error message
     SqlQry = "SELECT * FROM SDK_NAMES WHERE SDK_NAME = :SDKNAME AND  SDK_ID != :SDKID"
     objEH.ErrorRedirect = FALSE
     objEH.TryORA ( OraSession )
         oJSON.data("error") = -1
         oJSON.data("emsgSummary") = "SDK Name already exists"
         oJSON.data("emsgDetails") = oJSON.data("emsgSummary")
     Else
         '   Update an existing entry
-        SqlQry = "UPDATE SDK_NAMES SET SDK_NAME = :SDKNAME, SDK_COMMENT = :SDKCOMMENT, VIEW_ID = :SDKBASEVIEW WHERE SDK_ID = :SDKID"
+        SqlQry = "UPDATE SDK_NAMES SET SDK_NAME = :SDKNAME, SDK_COMMENT = :SDKCOMMENT, VIEW_ID = :SDKBASEVIEW, PROJ_ID = :SDKPROJECT WHERE SDK_ID = :SDKID"
         objEH.ErrorRedirect = FALSE
         objEH.TryORA ( OraSession )
         On Error Resume Next
         OraDatabase.ExecuteSQL SqlQry
         objEH.CatchORA ( OraSession )
         On Error GoTo 0
         result = 0
     End If
+    OraDatabase.Parameters.Remove "SDKPROJECT"
     OraDatabase.Parameters.Remove "SDKBASEVIEW"
     OraDatabase.Parameters.Remove "SDKCOMMENT"
     OraDatabase.Parameters.Remove "SDKNAME"
     OraDatabase.Parameters.Remove "SDKID"
 End Sub
 End Sub
 '-------------------------------------------------
 ' Function:    getSdkUsage
 ' Description: Get SDK Usage information for a given sdktag_id
-'              Array of:
+'                Array of (unless countOnly is not empty):
-'               sdktag_id
+'                 sdktag_id
-'               sdktag_name
+'                 sdktag_name
-'               sdktag_state
+'                 sdktag_state
+'                useCount
+'
 ' Options:      sdktag_id  - Get information for given sdktag
+'               countOnly       - Just get count (Simple Test)
 Sub getSdkUsage
     '   Get Data for an existing entry
     '   Setup for the database access
     Dim sdktag_id : sdktag_id = QStrPar("sdktag_id")
     OraDatabase.Parameters.Add "SDKTAG_ID",      sdktag_id, ORAPARM_INPUT, ORATYPE_NUMBER
     SqlQry = "SELECT DISTINCT p.proj_id, rc.rtag_id, p.PROJ_NAME, rt.RTAG_NAME" &_
              " FROM release_content rc," &_
              " release_tags rt, PROJECTS p" &_
-             " WHERE NOT rc.SDKTAG_ID = :SDKTAG_ID" &_
+             " WHERE rc.SDKTAG_ID = :SDKTAG_ID" &_
              " and rc.RTAG_ID = rt.RTAG_ID" &_
              " and p.PROJ_ID = rt.PROJ_ID" &_
              " ORDER BY UPPER(p.PROJ_NAME), UPPER(rt.RTAG_NAME)"
     ' Perform Query
     On Error Resume Next
     Set rsQry = OraDatabase.DbCreateDynaset( SqlQry, ORADYN_DEFAULT )
     objEH.CatchORA ( OraSession )
     ' Process Results
+    If QStrPar("countOnly") = "" Then
-    Set oJSON.data("aaData") = oJSON.Collection()
+        Set oJSON.data("aaData") = oJSON.Collection()
-    While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
+        While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
-        Set newitem = oJSON.AddToCollection(oJSON.data("aaData"))
+            Set newitem = oJSON.AddToCollection(oJSON.data("aaData"))
-        Dim ii
+            Dim ii
-        for ii = 0 to rsQry.Fields.Count - 1
+            for ii = 0 to rsQry.Fields.Count - 1
-            newitem (rsQry.FieldName(ii)) = rsQry.Fields(ii)
+                newitem (rsQry.FieldName(ii)) = rsQry.Fields(ii)
-        Next
+            Next
-       rsQry.MoveNext
+           rsQry.MoveNext
-    Wend
+        Wend
+    End If
+    ' Return count too
+    oJSON.data("useCount") = rsQry.RecordCount
     result = 0
     rsQry.Close
     Set rsQry = Nothing
+    '
     OraDatabase.Parameters.Add "SDKTAG_ID", sdkTagId, ORAPARM_INPUT, ORATYPE_NUMBER
      '  Test to see if the version is in use - simply to provide a Nice Error message
     SqlQry = "SELECT * FROM SDK_TAGS WHERE SDKTAG_ID = :SDKTAG_ID"
-    objEH.ErrorRedirect = FALSE
+    'objEH.ErrorRedirect = FALSE
-    objEH.TryORA ( OraSession )
+    'objEH.TryORA ( OraSession )
     'On Error Resume Next
     Set rsQry = OraDatabase.DbCreateDynaset( SqlQry, ORADYN_DEFAULT )
-    objEH.CatchORA ( OraSession )
+    'objEH.CatchORA ( OraSession )
     On Error GoTo 0
     If rsQry.RecordCount = 0 Then
         result = -3
         oJSON.data("error") = -1
         oJSON.data("emsgSummary") = "SDK Verion does not exist"
         oJSON.data("emsgDetails") = oJSON.data("emsgSummary")
     Else
-        ' Determine the number of times this SDK_TAG is in use
-        ' Determine the sdk_tag
-        SqlQry = "SELECT st.SDK_ID, st.SDKTAG_ID FROM SDK_TAGS st WHERE SDK_ID IN ( SELECT SDK_ID FROM SDK_TAGS WHERE SDKTAG_ID=:SDKTAG_ID)"
-        Dim sdkId, sdkTagCount
+        ' Determine if the SDK is in use
-        objEH.ErrorRedirect = FALSE
+        '
-        objEH.TryORA ( OraSession )
+        SqlQry = "SELECT distinct rtag_id FROM RELEASE_CONTENT WHERE SDKTAG_ID = :SDKTAG_ID"
-        On Error Resume Next
         Set rsQry = OraDatabase.DbCreateDynaset( SqlQry, ORADYN_DEFAULT )
-        If Err.Number = 0 Then
+        If rsQry.RecordCount  <> 0 Then
-            sdkTagCount = rsQry.RecordCount
+            oJSON.data("useCount") = rsQry.RecordCount
-            oJSON.data("sdkTagCount") = sdkTagCount
+            result = 0
+        Else
-            If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
+            ' Determine the number of times this SDK_TAG is in use
-                sdkId = rsQry.Fields(0)
+            ' Determine the sdk_tag
-                oJSON.data("sdkId") = sdkId
+            SqlQry = "SELECT st.SDK_ID, st.SDKTAG_ID FROM SDK_TAGS st WHERE SDK_ID IN ( SELECT SDK_ID FROM SDK_TAGS WHERE SDKTAG_ID=:SDKTAG_ID)"
-            End If
-            ' Delete content
+            Dim sdkId, sdkTagCount
-            SqlQry = "DELETE FROM SDK_CONTENT WHERE SDKTAG_ID = :SDKTAG_ID"
             objEH.ErrorRedirect = FALSE
             objEH.TryORA ( OraSession )
             On Error Resume Next
-            OraDatabase.ExecuteSQL SqlQry
+            Set rsQry = OraDatabase.DbCreateDynaset( SqlQry, ORADYN_DEFAULT )
-            ' Delete tag
             If Err.Number = 0 Then
+                sdkTagCount = rsQry.RecordCount
+                oJSON.data("sdkTagCount") = sdkTagCount
+                If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
+                    sdkId = rsQry.Fields(0)
+                    oJSON.data("sdkId") = sdkId
+                End If
+                ' Delete content
-                SqlQry = "DELETE FROM SDK_TAGS WHERE SDKTAG_ID = :SDKTAG_ID"
+                SqlQry = "DELETE FROM SDK_CONTENT WHERE SDKTAG_ID = :SDKTAG_ID"
+                objEH.ErrorRedirect = FALSE
+                objEH.TryORA ( OraSession )
+                On Error Resume Next
                 OraDatabase.ExecuteSQL SqlQry
-            End If
-            If Err.Number = 0 Then
+                ' Delete tag
-                ' Possibly delete the Sdk Name entry
-                If sdkTagCount = 1 Then
+                If Err.Number = 0 Then
-                    SqlQry = "DELETE FROM SDK_NAMES WHERE SDK_ID = :SDK_ID"
+                    SqlQry = "DELETE FROM SDK_TAGS WHERE SDKTAG_ID = :SDKTAG_ID"
-                    OraDatabase.Parameters.Add "SDK_ID", sdkId, ORAPARM_INPUT, ORATYPE_NUMBER
                     OraDatabase.ExecuteSQL SqlQry
+                End If
+                If Err.Number = 0 Then
+                    ' Possibly delete the Sdk Name entry
+                    If sdkTagCount = 1 Then
+                        SqlQry = "DELETE FROM SDK_NAMES WHERE SDK_ID = :SDK_ID"
+                        OraDatabase.Parameters.Add "SDK_ID", sdkId, ORAPARM_INPUT, ORATYPE_NUMBER
+                        OraDatabase.ExecuteSQL SqlQry
-                    OraDatabase.Parameters.Remove "SDK_ID"
+                        OraDatabase.Parameters.Remove "SDK_ID"
-                    oJSON.data("SdkNameRemoved") = sdkId
+                        oJSON.data("SdkNameRemoved") = sdkId
+                    End If
                 End If
             End If
             objEH.CatchORA ( OraSession )
             On Error GoTo 0
             result = 0
         End If
     End If
     OraDatabase.Parameters.Remove "SDKTAG_ID"
 End Sub
 '-------------------------------------------------

Subversion Repositories DevTools

(root)/ManagerSuite/Release_Manager/trunk/sdk_opr_json.asp @ 5102 – Rev 5098 → 5102