Subversion Repositories DevTools

Rev

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

Rev 5087 Rev 5097
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
'=====================================================
 3 
'=====================================================
4 
'   sdk_opr_json.asp
 4 
'   sdk_opr_json.asp
5 
'   Ajax support for SDK operations
 5 
'   Ajax support for SDK operations
6 
'       addNew          - New SDK Name
 6 
'       addSdkName
- 
 
 7 
'       getSdkNameData
7 
'       updateEntry     - Update Sdk Name
 8 
'       updateSdkName
- 
 
 9 
'       getSdkNames
- 
 
 10 
'       getBaseViews
- 
 
 11 
'       getSdkDetails
- 
 
 12 
'       getSdkVersions
- 
 
 13 
'       getSdkVersionDetails
8 
'       getData         - Get single Sdk Name Entry
 14 
'       updateSdkVersionDetails
- 
 
 15 
'       getProjectList
- 
 
 16 
'       getReleaseList
- 
 
 17 
'       addNewSdkVersion
- 
 
 18 
'       deleteSdkVersion
- 
 
 19 
'       setSdkState
- 
 
 20 
'       setSdkContentState
- 
 
 21 
'
9 
'=====================================================
 22 
'=====================================================
10 
%>
 23 
%>
11 
<%
 24 
<%
12 
Option explicit
 25 
Option explicit
13 
' Essential to get UTF through all the hoops. ie: VÄSTTRAFIK (VTK)
 26 
' Essential to get UTF through all the hoops. ie: VÄSTTRAFIK (VTK)
Line 38... Line 51...
38 
Dim oJSON
 51 
Dim oJSON
39 
Set oJSON = New aspJSON
 52 
Set oJSON = New aspJSON
40 
Dim newitem
 53 
Dim newitem
41 
 
 54 
 
42 
Function canModify
 55 
Function canModify
43 
    canModify = canActionControlInProject("AdminSdk")
 56 
    canModify = canActionControl("AdminSdk")
44 
    If NOT canModify Then
 57 
    If NOT canModify Then
45 
        result = -4
 58 
        result = -4
46 
        oJSON.data("error") = 1
 59 
        oJSON.data("error") = 1
47 
        oJSON.data("emsgSummary") = "Permission denied"
 60 
        oJSON.data("emsgSummary") = "Permission denied"
48 
        oJSON.data("emsgDetails") = oJSON.data("emsgSummary")
 61 
        oJSON.data("emsgDetails") = oJSON.data("emsgSummary")
Line 52... Line 65...
52 
'
65 
'
53 
'   Perform the body of the operations within a Sub and use
 66 
'   Perform the body of the operations within a Sub and use
54 
'   On Error Resule Next to catch errors that accur in the code
 67 
'   On Error Resule Next to catch errors that accur in the code
55 
'
 68 
'
56 
On Error Resume Next
 69 
On Error Resume Next
57 
If (parOpr = "addNew") Then
 70 
If (parOpr = "addSdkName") Then
58 
    If canModify() Then addNewEntry
 71 
    If canModify() Then addSdkName
59 
 
 72 
 
60 
ElseIf (parOpr = "getData") Then
 73 
ElseIf (parOpr = "getSdkNameData") Then
61 
     getData
 74 
     getSdkNameData
62 
 
 75 
 
63 
ElseIf (parOpr = "updateEntry") Then
 76 
ElseIf (parOpr = "updateSdkName") Then
64 
    If canModify() Then updateEntry
 77 
    If canModify() Then updateSdkName
65 
 
 78 
 
66 
ElseIf (parOpr = "getSdkNames") Then
 79 
ElseIf (parOpr = "getSdkNames") Then
67 
    getSdkNames
 80 
    getSdkNames
68 
 
 81 
 
- 
 
 82 
ElseIf (parOpr = "getBaseViews") Then
- 
 
 83 
    getBaseViews
- 
 
 84 
 
69 
ElseIf (parOpr = "getSdkDetails") Then
 85 
ElseIf (parOpr = "getSdkDetails") Then
70 
    getSdkDetails
 86 
    getSdkDetails
71 
 
 87 
 
72 
ElseIf (parOpr = "getSdkVersions") Then
 88 
ElseIf (parOpr = "getSdkVersions") Then
73 
    getSdkVersions
 89 
    getSdkVersions
Line 152... Line 168...
152 
'Return the object
 168 
'Return the object
153 
Response.Write oJSON.JSONoutput()
 169 
Response.Write oJSON.JSONoutput()
154 
%>
 170 
%>
155 
<%
 171 
<%
156 
'-------------------------------------------------
 172 
'-------------------------------------------------
157 
' Function:    addNewEntry
 173 
' Function:    addSdkName
158 
' Description: Create a new SDK Name entry
 174 
' Description: Create a new SDK Name entry
159 
Sub addNewEntry
 175 
Sub addSdkName
- 
 
 176 
    Dim baseView : baseView = "SDK_" & QStrPar("sdkName")
- 
 
 177 
    Dim SEQ_view_id
- 
 
 178 
 
160 
 
 179 
 
161 
    '   Add a new entry
 180 
    '   Add a new entry
162 
    '
 181 
    '
163 
    '   Setup for the database access
 182 
    '   Setup for the database access
164 
    OraDatabase.Parameters.Add "SDKNAME",    QStrPar("sdkName"), ORAPARM_INPUT, ORATYPE_VARCHAR2
 183 
    OraDatabase.Parameters.Add "SDKNAME",    QStrPar("sdkName"),    ORAPARM_INPUT, ORATYPE_VARCHAR2
165 
    OraDatabase.Parameters.Add "SDKCOMMENT", QStrPar("sdkComment"), ORAPARM_INPUT, ORATYPE_VARCHAR2
 184 
    OraDatabase.Parameters.Add "SDKCOMMENT", QStrPar("sdkComment"), ORAPARM_INPUT, ORATYPE_VARCHAR2
- 
 
 185 
    OraDatabase.Parameters.Add "SDKBASEVIEW", baseView,             ORAPARM_INPUT, ORATYPE_VARCHAR2
- 
 
 186 
    OraDatabase.Parameters.Add "SDKVIEWID", 0,                       ORAPARM_INPUT, ORATYPE_NUMBER
166 
 
 187 
 
167 
     '  Test existance - simply to provide a Nice Error message
 188 
     '  Test existance - simply to provide a Nice Error message
168 
    SqlQry = "SELECT * FROM SDK_NAMES WHERE SDK_NAME = :SDKNAME"
 189 
    SqlQry = "SELECT * FROM SDK_NAMES WHERE SDK_NAME = :SDKNAME"
169 
    objEH.ErrorRedirect = FALSE
 190 
    objEH.ErrorRedirect = FALSE
170 
    objEH.TryORA ( OraSession )
 191 
    objEH.TryORA ( OraSession )
Line 178... Line 199...
178 
        oJSON.data("error") = -1
 199 
        oJSON.data("error") = -1
179 
        oJSON.data("emsgSummary") = "SDK Name already exists"
 200 
        oJSON.data("emsgSummary") = "SDK Name already exists"
180 
        oJSON.data("emsgDetails") = oJSON.data("emsgSummary")
 201 
        oJSON.data("emsgDetails") = oJSON.data("emsgSummary")
181 
    Else
 202 
    Else
182 
 
 203 
 
- 
 
 204 
        ' Test for existance of Base View Name
- 
 
 205 
        '
183 
        SqlQry = "INSERT INTO SDK_NAMES (SDK_NAME, SDK_COMMENT) VALUES (:SDKNAME, :SDKCOMMENT)"
 206 
        SqlQry = "SELECT * FROM VIEWS WHERE UPPER(VIEW_NAME) = UPPER(:SDKBASEVIEW)"
184 
        objEH.ErrorRedirect = FALSE
 207 
        objEH.ErrorRedirect = FALSE
185 
        objEH.TryORA ( OraSession )
 208 
        objEH.TryORA ( OraSession )
186 
        On Error Resume Next
 209 
        On Error Resume Next
187 
        OraDatabase.ExecuteSQL SqlQry
 210 
        Set rsQry = OraDatabase.DbCreateDynaset( SqlQry, ORADYN_DEFAULT )
188 
        objEH.CatchORA ( OraSession )
 211 
        objEH.CatchORA ( OraSession )
189 
        On Error GoTo 0
 212 
        On Error GoTo 0
- 
 
 213 
        If rsQry.RecordCount <> 0 Then
- 
 
 214 
            ' Use existing base view
- 
 
 215 
            SEQ_view_id = rsQry("VIEW_ID")
- 
 
 216 
            OraDatabase.Parameters("SDKVIEWID").Value = SEQ_view_id
- 
 
 217 
        Else
- 
 
 218 
 
- 
 
 219 
            ' Create a new Base View for this SDK
- 
 
 220 
            ' Return new Base View
- 
 
 221 
            SEQ_view_id = Get_From_DUAL("SEQ_VIEW_ID.nextval")
- 
 
 222 
            OraDatabase.Parameters("SDKVIEWID").Value = SEQ_view_id
- 
 
 223 
 
- 
 
 224 
            On Error Resume Next
- 
 
 225 
            OraDatabase.ExecuteSQL _
- 
 
 226 
              "INSERT INTO views (view_id, view_name, owner_id, base_view, public_read)"&_
- 
 
 227 
              " VALUES ("& SEQ_view_id &", '"& baseView  &"', 0,'S','Y')"
- 
 
 228 
        End If
- 
 
 229 
 
- 
 
 230 
        If Err.Number = 0 Then
- 
 
 231 
            SqlQry = "INSERT INTO SDK_NAMES (SDK_NAME, SDK_COMMENT, VIEW_ID) VALUES (:SDKNAME, :SDKCOMMENT, :SDKVIEWID )"
- 
 
 232 
            On Error Resume Next
- 
 
 233 
            OraDatabase.ExecuteSQL SqlQry
- 
 
 234 
            If Err.Number = 0 Then
- 
 
 235 
                result = 0
- 
 
 236 
            End If
- 
 
 237 
        End If
190 
 
 238 
 
- 
 
 239 
        objEH.CatchORA ( OraSession )
191 
        result = 0
 240 
        On Error GoTo 0
192 
    End If
 241 
    End If
- 
 
 242 
    OraDatabase.Parameters.Remove "SDKVIEWID"
- 
 
 243 
    OraDatabase.Parameters.Remove "SDKBASEVIEW"
193 
    OraDatabase.Parameters.Remove "SDKCOMMENT"
 244 
    OraDatabase.Parameters.Remove "SDKCOMMENT"
194 
    OraDatabase.Parameters.Remove "SDKNAME"
 245 
    OraDatabase.Parameters.Remove "SDKNAME"
195 
End Sub
 246 
End Sub
196 
 
 247 
 
197 
'-------------------------------------------------
 248 
'-------------------------------------------------
198 
' Function:    getData
 249 
' Function:    getSdkNameData
199 
' Description: get data for a specified SDK Name
 250 
' Description: get data for a specified SDK Name
200 
Sub getData
 251 
Sub getSdkNameData
201 
 
 252 
 
202 
    '   Get Data for an existing entry
 253 
    '   Get Data for an existing entry
203 
    '   Setup for the database access
 254 
    '   Setup for the database access
204 
    OraDatabase.Parameters.Add "SDKID",    QStrPar("sdkId"), ORAPARM_INPUT, ORATYPE_NUMBER
 255 
    OraDatabase.Parameters.Add "SDKID",    QStrPar("sdkId"), ORAPARM_INPUT, ORATYPE_NUMBER
205 
 
 256 
 
Line 224... Line 275...
224 
    rsQry.Close
 275 
    rsQry.Close
225 
    Set rsQry = Nothing
 276 
    Set rsQry = Nothing
226 
End Sub
 277 
End Sub
227 
 
 278 
 
228 
'-------------------------------------------------
 279 
'-------------------------------------------------
229 
' Function:    updateEntry
 280 
' Function:    updateSdkName
230 
' Description: Update an exxisting SDK Names entry
 281 
' Description: Update an existing SDK Names entry
231 
Sub updateEntry
 282 
Sub updateSdkName
232 
 
 283 
 
233 
    '
 284 
    '
234 
    '
 285 
    '
235 
    OraDatabase.Parameters.Add "SDKID",      QStrPar("sdkId"), ORAPARM_INPUT, ORATYPE_NUMBER
 286 
    OraDatabase.Parameters.Add "SDKID",      QStrPar("sdkId"), ORAPARM_INPUT, ORATYPE_NUMBER
236 
    OraDatabase.Parameters.Add "SDKNAME",    QStrPar("sdkName"), ORAPARM_INPUT, ORATYPE_VARCHAR2
 287 
    OraDatabase.Parameters.Add "SDKNAME",    QStrPar("sdkName"), ORAPARM_INPUT, ORATYPE_VARCHAR2
237 
    OraDatabase.Parameters.Add "SDKCOMMENT", QStrPar("sdkComment"), ORAPARM_INPUT, ORATYPE_VARCHAR2
 288 
    OraDatabase.Parameters.Add "SDKCOMMENT", QStrPar("sdkComment"), ORAPARM_INPUT, ORATYPE_VARCHAR2
- 
 
 289 
    OraDatabase.Parameters.Add "SDKBASEVIEW", QStrPar("sdkBaseView"), ORAPARM_INPUT, ORATYPE_NUMBER
238 
 
 290 
 
239 
    '  Test existance - simply to provide a Nice Error message
 291 
    '  Test existance - simply to provide a Nice Error message
240 
    SqlQry = "SELECT * FROM SDK_NAMES WHERE SDK_NAME = :SDKNAME AND  SDK_ID != :SDKID"
 292 
    SqlQry = "SELECT * FROM SDK_NAMES WHERE SDK_NAME = :SDKNAME AND  SDK_ID != :SDKID"
241 
    objEH.ErrorRedirect = FALSE
 293 
    objEH.ErrorRedirect = FALSE
242 
    objEH.TryORA ( OraSession )
 294 
    objEH.TryORA ( OraSession )
Line 250... Line 302...
250 
        oJSON.data("error") = -1
 302 
        oJSON.data("error") = -1
251 
        oJSON.data("emsgSummary") = "SDK Name already exists"
 303 
        oJSON.data("emsgSummary") = "SDK Name already exists"
252 
        oJSON.data("emsgDetails") = oJSON.data("emsgSummary")
 304 
        oJSON.data("emsgDetails") = oJSON.data("emsgSummary")
253 
    Else
 305 
    Else
254 
        '   Update an existing entry
 306 
        '   Update an existing entry
255 
        SqlQry = "UPDATE SDK_NAMES SET SDK_NAME = :SDKNAME, SDK_COMMENT = :SDKCOMMENT WHERE SDK_ID = :SDKID"
 307 
        SqlQry = "UPDATE SDK_NAMES SET SDK_NAME = :SDKNAME, SDK_COMMENT = :SDKCOMMENT, VIEW_ID = :SDKBASEVIEW WHERE SDK_ID = :SDKID"
256 
        objEH.ErrorRedirect = FALSE
 308 
        objEH.ErrorRedirect = FALSE
257 
        objEH.TryORA ( OraSession )
 309 
        objEH.TryORA ( OraSession )
258 
        On Error Resume Next
 310 
        On Error Resume Next
259 
        OraDatabase.ExecuteSQL SqlQry
 311 
        OraDatabase.ExecuteSQL SqlQry
260 
        objEH.CatchORA ( OraSession )
 312 
        objEH.CatchORA ( OraSession )
261 
        On Error GoTo 0
 313 
        On Error GoTo 0
262 
        result = 0
 314 
        result = 0
263 
    End If
 315 
    End If
264 
 
 316 
 
- 
 
 317 
    OraDatabase.Parameters.Remove "SDKBASEVIEW"
265 
    OraDatabase.Parameters.Remove "SDKCOMMENT"
 318 
    OraDatabase.Parameters.Remove "SDKCOMMENT"
266 
    OraDatabase.Parameters.Remove "SDKNAME"
 319 
    OraDatabase.Parameters.Remove "SDKNAME"
267 
    OraDatabase.Parameters.Remove "SDKID"
 320 
    OraDatabase.Parameters.Remove "SDKID"
268 
End Sub
 321 
End Sub
269 
 
 322 
 
Line 275... Line 328...
275 
'               SDK_NAME
 328 
'               SDK_NAME
276 
 
 329 
 
277 
Sub getSdkNames
 330 
Sub getSdkNames
278 
    '   Get Data for an existing entry
 331 
    '   Get Data for an existing entry
279 
    '   Setup for the database access
 332 
    '   Setup for the database access
280 
    SqlQry = "SELECT SDK_ID,SDK_NAME from SDK_NAMES order by SDK_NAME ASC"
 333 
    SqlQry = "SELECT SDK_ID,SDK_NAME from SDK_NAMES order by UPPER(SDK_NAME) ASC"
281 
 
 334 
 
282 
    objEH.ErrorRedirect = FALSE
 335 
    objEH.ErrorRedirect = FALSE
283 
    objEH.TryORA ( OraSession )
 336 
    objEH.TryORA ( OraSession )
284 
    On Error Resume Next
 337 
    On Error Resume Next
285 
    Set rsQry = OraDatabase.DbCreateDynaset( SqlQry, ORADYN_DEFAULT )
 338 
    Set rsQry = OraDatabase.DbCreateDynaset( SqlQry, ORADYN_DEFAULT )
Line 299... Line 352...
299 
    rsQry.Close
 352 
    rsQry.Close
300 
    Set rsQry = Nothing
 353 
    Set rsQry = Nothing
301 
 
 354 
 
302 
End Sub
 355 
End Sub
303 
 
 356 
 
304 
  '-------------------------------------------------
 357 
'-------------------------------------------------
- 
 
 358 
' Function:    getBaseViews
- 
 
 359 
' Description: Get Base Views
- 
 
 360 
'              Array of:
- 
 
 361 
'               VIEW_ID
- 
 
 362 
'               VIEW_NAME
- 
 
 363 
 
- 
 
 364 
Sub getBaseViews
- 
 
 365 
    '   Get Data for an existing entry
- 
 
 366 
    '   Setup for the database access
- 
 
 367 
    SqlQry = "SELECT VIEW_ID, VIEW_NAME from VIEWS WHERE base_view = 'S' order by UPPER(VIEW_NAME) ASC"
- 
 
 368 
 
- 
 
 369 
    objEH.ErrorRedirect = FALSE
- 
 
 370 
    objEH.TryORA ( OraSession )
- 
 
 371 
    On Error Resume Next
- 
 
 372 
    Set rsQry = OraDatabase.DbCreateDynaset( SqlQry, ORADYN_DEFAULT )
- 
 
 373 
    objEH.CatchORA ( OraSession )
- 
 
 374 
 
- 
 
 375 
    Set oJSON.data("aaData") = oJSON.Collection()
- 
 
 376 
   While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
- 
 
 377 
       Set newitem = oJSON.AddToCollection(oJSON.data("aaData"))
- 
 
 378 
         Dim ii
- 
 
 379 
        for ii = 0 to rsQry.Fields.Count - 1
- 
 
 380 
            newitem (rsQry.FieldName(ii)) = rsQry.Fields(ii)
- 
 
 381 
        Next
- 
 
 382 
 
- 
 
 383 
       rsQry.MoveNext
- 
 
 384 
    Wend
- 
 
 385 
    result = 0
- 
 
 386 
    rsQry.Close
- 
 
 387 
    Set rsQry = Nothing
- 
 
 388 
 
- 
 
 389 
End Sub
- 
 
 390 
 
- 
 
 391 
'-------------------------------------------------
305 
' Function:    getSdkDetails
 392 
' Function:    getSdkDetails
306 
' Description: Get Details for a specific SDK Family
 393 
' Description: Get Details for a specific SDK Family
307 
'              Hash of:
 394 
'              Hash of:
308 
'               Lots of stuff
 395 
'               Lots of stuff
309 
'
 396 
'