Subversion Repositories DevTools

Rev

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

Rev 4254 Rev 4988
Line 81... Line 81...
81
        result = 1
81
        result = 1
82
        oJSON.data("emsgSummary") = Err.Description
82
        oJSON.data("emsgSummary") = Err.Description
83
        On Error Goto 0
83
        On Error Goto 0
84
    else
84
    else
85
        On Error Goto 0
85
        On Error Goto 0
86
        if  objXML.status <> 200 then
86
        If  objXML.status = 403 then
87
            result = 1
87
            result = 1
88
            oJSON.data("emsgSummary") = objXML.responseText
88
            oJSON.data("emsgSummary") = "Jira Server Access Denied"
89
 
89
 
-
 
90
        ElseIf  objXML.status <> 200 then
-
 
91
            result = 1
-
 
92
            oJSON.data("emsgSummary") = objXML.responseText
90
        Else
93
        Else
91
            Set jJSON = New aspJSON
94
            Set jJSON = New aspJSON
92
            jJSON.loadJSON( objXML.responseText )
95
            jJSON.loadJSON( objXML.responseText )
93
 
96
 
94
            oJSON.data("keyListCount") = jJSON.data.Count
97
            oJSON.data("keyListCount") = jJSON.data.Count
Line 177... Line 180...
177
            result = 1
180
            result = 1
178
            Set jJSON = New aspJSON
181
            Set jJSON = New aspJSON
179
            jJSON.loadJSON( objXML.responseText )
182
            jJSON.loadJSON( objXML.responseText )
180
            oJSON.data("emsgSummary") = jJSON.data("errorMessages").item(0)
183
            oJSON.data("emsgSummary") = jJSON.data("errorMessages").item(0)
181
 
184
 
-
 
185
        ElseIf  objXML.status = 403 then
-
 
186
            result = 1
-
 
187
            oJSON.data("emsgSummary") = "Jira Server Access Denied"
-
 
188
 
182
        ElseIf  objXML.status <> 200 then
189
        ElseIf  objXML.status <> 200 then
183
            result = 1
190
            result = 1
184
            oJSON.data("emsgSummary") = objXML.responseText
191
            oJSON.data("emsgSummary") = objXML.responseText
185
        Else
192
        Else
186
            Set jJSON = New aspJSON
193
            Set jJSON = New aspJSON