Subversion Repositories DevTools

'-------------------------------------------------

' Description:  Return a string displaying licence information

'----------------------------------------------------------------------------------------------------------------------------------------

Function getLicence

   Dim rsQry, rsSql, lName

   Dim licenceList

   Dim joiner : joiner = ""

   Dim otherVersions : otherVersions = ""

   Set licenceList=Server.CreateObject("Scripting.Dictionary")

   getLicence = ""

   ' Determine license for this package-version

	OraDatabase.Parameters.Add "PV_ID", pkgInfoHash.Item ("pv_id"), ORAPARM_INPUT, ORATYPE_NUMBER

    Set rsQry = OraDatabase.DbCreateDynaset( _

		"SELECT l.NAME FROM LICENCES l, LICENCING ld" &_

		" WHERE l.LICENCE = ld.LICENCE " &_

		" and ld.PV_ID = :PV_ID" &_

		" ORDER by l.NAME" _

		, cint(0))

	While (NOT rsQry.BOF) AND (NOT rsQry.EOF)

       lName = rsQry("name")

	   getLicence = getLicence & joiner & lName 

	   licenceList.Add lName, "Y"

	   joiner = ", "

	   rsQry.MoveNext

	WEnd

    rsQry.Close()

    Set rsQry = nothing

	'

	' Indicate if other versions have licences - ignore those we already know about

	' The data is stored on a package-version basis

	'

    Set rsQry = OraDatabase.DbCreateDynaset( _

		"SELECT UNIQUE ld.NAME" &_

		" FROM licencing l,LICENCES ld" &_

		" WHERE l.pv_id IN" &_

		"  (SELECT pv_id" &_

		"  FROM package_versions" &_

		"  WHERE pkg_id IN" &_

		"    (SELECT pkg_id FROM package_versions WHERE pv_id=:PV_ID)" &_

		"    AND pv_id != :PV_ID" &_

		"  )" &_

		"  AND l.LICENCE = ld.LICENCE" &_

		"  ORDER by ld.NAME" _

		, cint(0))

	joiner = ""

	While (NOT rsQry.BOF) AND (NOT rsQry.EOF)

       lName = rsQry("name")

       If NOT licenceList.Exists(lName) Then

           otherVersions = otherVersions & joiner & rsQry("name")

	       joiner = ", "

       End If

	   rsQry.MoveNext

	WEnd

    OraDatabase.Parameters.Remove "PV_ID"

    rsQry.Close()

    Set rsQry = nothing

	If otherVersions <> "" Then

		getLicence = getLicence & ". Other Versions: " & otherVersions

	End If

    OraDatabase.Parameters.Remove "PV_ID"

End Function

	  <!-- Package Licence information -->

         <td nowrap bgcolor=#e4e9ec class="sublbox_txt" valign="top"><b>Package Licence:</b> </td>

         <td bgcolor=#f5f5f5 class="sublbox_txt">

            <%=getLicence()%>

         </td>

      </tr>