Subversion Repositories DevTools

<!--#include file="class/classSortHelper.asp"-->

' Init the output JSON class

'   Operations can add data

'   Default data will be added at the end

Dim oJSON

Set oJSON = New aspJSON

Dim newitem

ElseIf (parOpr = "getVerList") Then

    Dim parPkgId

    parPkgId = QStrPar("pkg_id")

    result = 0

    SqlQry = "select pv_id, pkg_version, dlocked" &_

         "  FROM package_versions pv" &_

         " WHERE pv.pkg_id = "& parPkgId

    On Error Resume Next

    objEH.ErrorRedirect = FALSE

    objEH.TryORA ( OraSession )

    Set rsQry = OraDatabase.DbCreateDynaset( SqlQry, ORADYN_DEFAULT )

    objEH.CatchORA ( OraSession )

    If objEH.Finally Then

        oJSON.data("VersionRef") = QStrPar("Ref")

        Set oJSON.data("Versions") = oJSON.Collection()

        Dim aVersions

        Dim objSortHelper

        Dim lastRow, i

	    If rsQry.RecordCount > 0 Then

		    aVersions = rsQry.GetRows()

		    lastRow = UBound( aVersions, 2 )

		    Set objSortHelper = New SortHelper

		    ' Sort versions

		    Call objSortHelper.VersionSort( aVersions, 0, lastRow, rsQry.FieldIndex("pkg_version") )

		    ' Descending order

		    For i = lastRow To 0 Step -1

                Dim vname : vname = aVersions( rsQry.FieldIndex("pkg_version"), i )

                Dim pvid : pvid = aVersions( rsQry.FieldIndex("pv_id"), i )

                Dim lck : lck = aVersions( rsQry.FieldIndex("dlocked"), i )

                result = result + 1

                Set newitem = oJSON.AddToCollection(oJSON.data("Versions"))

                newitem.add "vname", vname

                newitem.add "pv_id", pvid

                newitem.add "dlocked", lck

		    Next

		    Set objSortHelper = nothing

	    End If

    End IF

    rsQry.Close

    Set rsQry = Nothing

End If