Subversion Repositories DevTools

Rev

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

Rev 4198 Rev 4199
Line 34... Line 34...
34 
'   Default data will be added at the end
 34 
'   Default data will be added at the end
35 
Dim oJSON
 35 
Dim oJSON
36 
Set oJSON = New aspJSON
 36 
Set oJSON = New aspJSON
37 
Dim newitem
 37 
Dim newitem
38 
 
 38 
 
- 
 
 39 
If NOT objAccessControl.UserLogedIn Then
- 
 
 40 
    oJSON.data("error") = 1
- 
 
 41 
 
- 
 
 42 
    oJSON.data("emsgSummary") = "User no longer logged in"
- 
 
 43 
    oJSON.data("emsgDetails") = oJSON.data("emsgSummary")
- 
 
 44 
 
39 
If (parOpr = "updateVer") Then
 45 
ElseIf (parOpr = "updateVer") Then
40 
 
 46 
 
41 
    Dim buildType, changeType, pvId, rtagId, version, vExt, errMessage
 47 
    Dim buildType, changeType, pvId, rtagId, version, vExt, errMessage
42 
    '
48 
    '
43 
    ' Ensure we have all the required parameters
 49 
    ' Ensure we have all the required parameters
44 
    '
 50 
    '