Subversion Repositories DevTools

Rev

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

Rev 5048 Rev 5049
Line 8... Line 8...
8 
'       getData         - Get single Sdk Name Entry
 8 
'       getData         - Get single Sdk Name Entry
9 
'=====================================================
 9 
'=====================================================
10 
%>
 10 
%>
11 
<%
 11 
<%
12 
Option explicit
 12 
Option explicit
- 
 
 13 
' Essential to get UTF through all the hoops. ie: VÄSTTRAFIK (VTK)
13 
' Good idea to set when using redirect
 14 
Response.ContentType = "text/html"
14 
Response.Expires = 0   ' always load the page, dont store
 15 
Response.AddHeader "Content-Type", "text/html;charset=UTF-8"
- 
 
 16 
Response.CodePage = 65001
- 
 
 17 
Response.CharSet = "UTF-8"
15 
%>
 18 
%>
16 
<!--#include file="common/conf.asp"-->
 19 
<!--#include file="common/conf.asp"-->
17 
<!--#include file="common/globals.asp"-->
 20 
<!--#include file="common/globals.asp"-->
18 
<!--#include file="common/qstr.asp"-->
 21 
<!--#include file="common/qstr.asp"-->
19 
<!--#include file="common/common_subs.asp"-->
 22 
<!--#include file="common/common_subs.asp"-->
Line 58... Line 61...
58 
     getData
 61 
     getData
59 
 
 62 
 
60 
ElseIf (parOpr = "updateEntry") Then
 63 
ElseIf (parOpr = "updateEntry") Then
61 
    If canModify() Then updateEntry
 64 
    If canModify() Then updateEntry
62 
 
 65 
 
- 
 
 66 
ElseIf (parOpr = "getSdkNames") Then
- 
 
 67 
    getSdkNames
- 
 
 68 
 
- 
 
 69 
ElseIf (parOpr = "getProjectList") Then
- 
 
 70 
    getProjectList
- 
 
 71 
 
- 
 
 72 
ElseIf (parOpr = "getReleaseList") Then
- 
 
 73 
    getReleaseList
- 
 
 74 
 
- 
 
 75 
ElseIf (parOpr = "addNewSdkVersion") Then
- 
 
 76 
    addNewSdkVersion
- 
 
 77 
 
63 
Else
 78 
Else
64 
    oJSON.data("error") = 1
 79 
    oJSON.data("error") = 1
65 
    oJSON.data("emsgSummary") = "Unknown JSON Operation"
 80 
    oJSON.data("emsgSummary") = "Unknown JSON Operation"
66 
    oJSON.data("emsgDetails") = "The Requested JSON operation is not supported: " & parOpr
 81 
    oJSON.data("emsgDetails") = "The Requested JSON operation is not supported: " & parOpr
67 
End If
 82 
End If
Line 142... Line 157...
142 
        oJSON.data("error") = -1
 157 
        oJSON.data("error") = -1
143 
        oJSON.data("emsgSummary") = "SDK Name already exists"
 158 
        oJSON.data("emsgSummary") = "SDK Name already exists"
144 
        oJSON.data("emsgDetails") = oJSON.data("emsgSummary")
 159 
        oJSON.data("emsgDetails") = oJSON.data("emsgSummary")
145 
    Else
 160 
    Else
146 
 
 161 
 
147 
        SqlQry = "IaNSERT INTO SDK_NAMES (SDK_NAME, SDK_COMMENT) VALUES (:SDKNAME, :SDKCOMMENT)"
 162 
        SqlQry = "INSERT INTO SDK_NAMES (SDK_NAME, SDK_COMMENT) VALUES (:SDKNAME, :SDKCOMMENT)"
148 
        objEH.ErrorRedirect = FALSE
 163 
        objEH.ErrorRedirect = FALSE
149 
        objEH.TryORA ( OraSession )
 164 
        objEH.TryORA ( OraSession )
150 
        On Error Resume Next
 165 
        On Error Resume Next
151 
        OraDatabase.ExecuteSQL SqlQry
 166 
        OraDatabase.ExecuteSQL SqlQry
152 
        objEH.CatchORA ( OraSession )
 167 
        objEH.CatchORA ( OraSession )
Line 228... Line 243...
228 
 
 243 
 
229 
    OraDatabase.Parameters.Remove "SDKCOMMENT"
 244 
    OraDatabase.Parameters.Remove "SDKCOMMENT"
230 
    OraDatabase.Parameters.Remove "SDKNAME"
 245 
    OraDatabase.Parameters.Remove "SDKNAME"
231 
    OraDatabase.Parameters.Remove "SDKID"
 246 
    OraDatabase.Parameters.Remove "SDKID"
232 
End Sub
 247 
End Sub
- 
 
 248 
 
- 
 
 249 
'-------------------------------------------------
- 
 
 250 
' Function:    getSdkNames
- 
 
 251 
' Description: Get Project information
- 
 
 252 
'              Array of:
- 
 
 253 
'               SDK_ID
- 
 
 254 
'               SDK_NAME
- 
 
 255 
 
- 
 
 256 
Sub getSdkNames
- 
 
 257 
    '   Get Data for an existing entry
- 
 
 258 
    '   Setup for the database access
- 
 
 259 
    SqlQry = "SELECT SDK_ID,SDK_NAME from SDK_NAMES order by SDK_NAME ASC"
- 
 
 260 
 
- 
 
 261 
    objEH.ErrorRedirect = FALSE
- 
 
 262 
    objEH.TryORA ( OraSession )
- 
 
 263 
    On Error Resume Next
- 
 
 264 
    Set rsQry = OraDatabase.DbCreateDynaset( SqlQry, ORADYN_DEFAULT )
- 
 
 265 
    objEH.CatchORA ( OraSession )
- 
 
 266 
 
- 
 
 267 
    Set oJSON.data("aaData") = oJSON.Collection()
- 
 
 268 
   While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
- 
 
 269 
       Set newitem = oJSON.AddToCollection(oJSON.data("aaData"))
- 
 
 270 
         Dim ii
- 
 
 271 
        for ii = 0 to rsQry.Fields.Count - 1
- 
 
 272 
            newitem (rsQry.FieldName(ii)) = rsQry.Fields(ii)
- 
 
 273 
        Next
- 
 
 274 
 
- 
 
 275 
       rsQry.MoveNext
- 
 
 276 
    Wend
- 
 
 277 
    result = 0
- 
 
 278 
    rsQry.Close
- 
 
 279 
    Set rsQry = Nothing
- 
 
 280 
 
- 
 
 281 
End Sub
- 
 
 282 
 
- 
 
 283 
 
- 
 
 284 
'-------------------------------------------------
- 
 
 285 
' Function:    getProjectList
- 
 
 286 
' Description: Get Project information
- 
 
 287 
'              Array of:
- 
 
 288 
'               proj_id
- 
 
 289 
'               proj_name
- 
 
 290 
Sub getProjectList
- 
 
 291 
    '   Get Data for an existing entry
- 
 
 292 
    '   Setup for the database access
- 
 
 293 
    SqlQry = "SELECT PROJ_ID,PROJ_NAME from PROJECTS order by PROJ_NAME ASC"
- 
 
 294 
 
- 
 
 295 
    objEH.ErrorRedirect = FALSE
- 
 
 296 
    objEH.TryORA ( OraSession )
- 
 
 297 
    On Error Resume Next
- 
 
 298 
    Set rsQry = OraDatabase.DbCreateDynaset( SqlQry, ORADYN_DEFAULT )
- 
 
 299 
    objEH.CatchORA ( OraSession )
- 
 
 300 
 
- 
 
 301 
    Set oJSON.data("aaData") = oJSON.Collection()
- 
 
 302 
   While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
- 
 
 303 
       Set newitem = oJSON.AddToCollection(oJSON.data("aaData"))
- 
 
 304 
         Dim ii
- 
 
 305 
        for ii = 0 to rsQry.Fields.Count - 1
- 
 
 306 
            newitem (rsQry.FieldName(ii)) = rsQry.Fields(ii)
- 
 
 307 
        Next
- 
 
 308 
 
- 
 
 309 
       rsQry.MoveNext
- 
 
 310 
    Wend
- 
 
 311 
    result = 0
- 
 
 312 
    rsQry.Close
- 
 
 313 
    Set rsQry = Nothing
- 
 
 314 
 
- 
 
 315 
End Sub
- 
 
 316 
 
- 
 
 317 
'-------------------------------------------------
- 
 
 318 
' Function:    getReleaseList
- 
 
 319 
' Description: Get Release information for a project
- 
 
 320 
'              Array of:
- 
 
 321 
'               rtag_id
- 
 
 322 
'               rtag_name
- 
 
 323 
'               official
- 
 
 324 
'              Also
- 
 
 325 
'               proj_id
- 
 
 326 
'
- 
 
 327 
' Options:      proj_id - Get Releases for given project
- 
 
 328 
'               rtag_id - Get Releases for project of this release
- 
 
 329 
'               mode    - true: All Releases, otherwise only non-closed releases
- 
 
 330 
 
- 
 
 331 
Sub getReleaseList
- 
 
 332 
    '   Get Data for an existing entry
- 
 
 333 
    '   Setup for the database access
- 
 
 334 
    Dim rtag_id : rtag_id = QStrPar("rtag_id")
- 
 
 335 
    Dim proj_id : proj_id = QStrPar("proj_id")
- 
 
 336 
    OraDatabase.Parameters.Add "PROJ_ID",      proj_id, ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 337 
    OraDatabase.Parameters.Add "RTAG_ID",      rtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 338 
 
- 
 
 339 
    '
- 
 
 340 
    '   Limit Selection to non-closed releases
- 
 
 341 
    '
- 
 
 342 
    Dim limit
- 
 
 343 
    If NOT QStrPar("mode") Then
- 
 
 344 
        limit = " AND OFFICIAL NOT IN ('Y', 'A')"
- 
 
 345 
    End If
- 
 
 346 
 
- 
 
 347 
    Dim where
- 
 
 348 
    If rtag_id <> "" Then
- 
 
 349 
        where = " WHERE proj_id = (SELECT PROJ_ID from RELEASE_TAGS where RTAG_ID=:RTAG_ID)"
- 
 
 350 
    Else
- 
 
 351 
        where = " WHERE PROJ_ID=:PROJ_ID"
- 
 
 352 
    End If
- 
 
 353 
 
- 
 
 354 
    SqlQry = "SELECT PROJ_ID,RTAG_ID,RTAG_NAME,OFFICIAL  from RELEASE_TAGS" &_
- 
 
 355 
             where & limit &_
- 
 
 356 
             " ORDER BY RTAG_NAME ASC"
- 
 
 357 
 
- 
 
 358 
    ' Perform Query
- 
 
 359 
    objEH.ErrorRedirect = FALSE
- 
 
 360 
    objEH.TryORA ( OraSession )
- 
 
 361 
    On Error Resume Next
- 
 
 362 
    Set rsQry = OraDatabase.DbCreateDynaset( SqlQry, ORADYN_DEFAULT )
- 
 
 363 
    objEH.CatchORA ( OraSession )
- 
 
 364 
 
- 
 
 365 
    ' Process Results
- 
 
 366 
    Set oJSON.data("aaData") = oJSON.Collection()
- 
 
 367 
    While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
- 
 
 368 
        Set newitem = oJSON.AddToCollection(oJSON.data("aaData"))
- 
 
 369 
        Dim ii
- 
 
 370 
        for ii = 1 to rsQry.Fields.Count - 1
- 
 
 371 
            newitem (rsQry.FieldName(ii)) = rsQry.Fields(ii)
- 
 
 372 
        Next
- 
 
 373 
        proj_id = rsQry.Fields(0)
- 
 
 374 
 
- 
 
 375 
       rsQry.MoveNext
- 
 
 376 
    Wend
- 
 
 377 
 
- 
 
 378 
    oJSON.data("proj_id") = proj_id
- 
 
 379 
 
- 
 
 380 
    result = 0
- 
 
 381 
    rsQry.Close
- 
 
 382 
    Set rsQry = Nothing
- 
 
 383 
 
- 
 
 384 
    OraDatabase.Parameters.Remove "RTAG_ID"
- 
 
 385 
    OraDatabase.Parameters.Remove "PROJ_ID"
- 
 
 386 
End Sub
- 
 
 387 
 
- 
 
 388 
'-------------------------------------------------
- 
 
 389 
' Function:     addNewSdkVersion
- 
 
 390 
' Description:  Add a New Sdk Version
- 
 
 391 
Sub addNewSdkVersion
- 
 
 392 
    Dim userId : userId = objAccessControl.UserId()
- 
 
 393 
    '   Add a new entry
- 
 
 394 
    '
- 
 
 395 
    '   Setup for the database access
- 
 
 396 
    '
- 
 
 397 
    OraDatabase.Parameters.Add "SDKTAG_NAME",   QStrPar("sdkName"),     ORAPARM_INPUT, ORATYPE_VARCHAR2
- 
 
 398 
    OraDatabase.Parameters.Add "DESCRIPTION",   QStrPar("sdkComment"),  ORAPARM_INPUT, ORATYPE_VARCHAR2
- 
 
 399 
    OraDatabase.Parameters.Add "SDK_ID",        QStrPar("sdk_id"),      ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 400 
    OraDatabase.Parameters.Add "RTAG_ID",       QStrPar("rtag_id"),     ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 401 
    OraDatabase.Parameters.Add "CREATOR_ID",    userId,                 ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 402 
    OraDatabase.Parameters.Add "STATE_ID",      userId,                 ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 403 
 
- 
 
 404 
     '  Test existance - simply to provide a Nice Error message
- 
 
 405 
    SqlQry = "SELECT * FROM SDK_TAGS WHERE SDKTAG_NAME = :SDKTAG_NAME AND SDK_ID = :SDK_ID"
- 
 
 406 
    objEH.ErrorRedirect = FALSE
- 
 
 407 
    objEH.TryORA ( OraSession )
- 
 
 408 
    On Error Resume Next
- 
 
 409 
    Set rsQry = OraDatabase.DbCreateDynaset( SqlQry, ORADYN_DEFAULT )
- 
 
 410 
    objEH.CatchORA ( OraSession )
- 
 
 411 
    On Error GoTo 0
- 
 
 412 
 
- 
 
 413 
    If rsQry.RecordCount <> 0 Then
- 
 
 414 
        result = -3
- 
 
 415 
        oJSON.data("error") = -1
- 
 
 416 
        oJSON.data("emsgSummary") = "SDK Verion Name already exists in this SDK family"
- 
 
 417 
        oJSON.data("emsgDetails") = oJSON.data("emsgSummary")
- 
 
 418 
    Else
- 
 
 419 
        SqlQry = "INSERT INTO SDK_TAGS (SDKTAG_NAME, DESCRIPTION, SDK_ID, RTAG_ID, CREATOR_ID, STATE_ID) VALUES (:SDKTAG_NAME, :DESCRIPTION, :SDK_ID, :RTAG_ID, :CREATOR_ID, :STATE_ID)"
- 
 
 420 
        objEH.ErrorRedirect = FALSE
- 
 
 421 
        objEH.TryORA ( OraSession )
- 
 
 422 
        On Error Resume Next
- 
 
 423 
        OraDatabase.ExecuteSQL SqlQry
- 
 
 424 
        objEH.CatchORA ( OraSession )
- 
 
 425 
        On Error GoTo 0
- 
 
 426 
 
- 
 
 427 
        result = 0
- 
 
 428 
    End If
- 
 
 429 
 
- 
 
 430 
    OraDatabase.Parameters.Remove "SDKTAG_NAME"
- 
 
 431 
    OraDatabase.Parameters.Remove "DESCRIPTION"
- 
 
 432 
    OraDatabase.Parameters.Remove "SDK_ID"
- 
 
 433 
    OraDatabase.Parameters.Remove "RTAG_ID"
- 
 
 434 
    OraDatabase.Parameters.Remove "CREATOR_ID"
- 
 
 435 
    OraDatabase.Parameters.Remove "STATE_ID"
- 
 
 436 
 
- 
 
 437 
End Sub
233 
%>
 438 
%>