Subversion Repositories DevTools

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

Sub RenderPackageState ()

   If (pkgInfoHash.Item ("dlocked") = "Y") Then

      Response.write "<b>Status:</b>&nbsp;Released<br>"

   Else

      Response.write "<b>Status:&nbsp;</b>Not released<br>"

   End If

End Sub

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

Sub Config_Spec (NNRtag_id, NNPv_id)

   OraDatabase.Parameters.Add "RTAG_ID", NNRtag_id,   ORAPARM_INPUT, ORATYPE_NUMBER

   OraDatabase.Parameters.Add "PV_ID", NNPv_id,   ORAPARM_INPUT, ORATYPE_NUMBER

   If NNRtag_id <> "" Then

      If pkgInfoHash.Item ("dlocked") <> "Y" Then

         Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("config_spec.sql"), cint(0))

      Else

         Set rsQry = OraDatabase.DbCreateDynaset( Replace(GetQuery("config_spec.sql"), "PV.LAST_PV_ID", "PV.PV_ID"), cint(0))

      End If

   Else

      If pkgInfoHash.Item ("dlocked") <> "Y" Then

         Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("config_spec_nortag.sql"), cint(0))

      Else

         Set rsQry = OraDatabase.DbCreateDynaset( Replace(GetQuery("config_spec_nortag.sql"), "PV.LAST_PV_ID", "PV.PV_ID"), cint(0))

      End If

   End If

   OraDatabase.Parameters.Remove "RTAG_ID"

   OraDatabase.Parameters.Remove "PV_ID"

End Sub

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

' Function: Config_Spec_Template

'

' Purpose:  Generates HTML to display the config spec to use

'           to create a view loaded with the particular package version.

'

' Arguments: dlocked       : dlocked state of the package version

'            config_branch : The branch, or null

'            pkg_label     : The package label

'            src_path      : The source path for the package

' Notes:

'

Sub Config_Spec_Template (dlocked, config_branch, pkg_label, src_path)

   Dim Template

   If (pkg_label <> "" AND src_path <> "") Then

      If (dlocked <> "Y" AND NOT IsNull(config_branch) AND config_branch <> "" ) Then

         Template = "element * CHECKEDOUT <br>" & _

         "element .../lost+found -none <br>" & _

         "element * .../" & config_branch & "/LATEST <br>" & _

         "element * " & pkg_label & " -mkbranch " & config_branch & "<br>" & _

         "element * /main/0 -mkbranch " & config_branch & "<br>"  & _

         "load " & chr(34) & src_path & chr(34)

      Else

         Template = "element * CHECKEDOUT <br>" & _

         "element .../lost+found -none <br>" & _

         "element * " & pkg_label &"<br>" & _

         "load " & chr(34) & src_path & chr(34)

      End If

   Else

      Template = "UNAVAILABLE - missing label and/or source path"

   End If

   Response.write "<tr>"

   Response.write "<td nowrap class='body_txt'><b>Config Specs:&nbsp;</b></td>"

   Response.write "<td nowrap class='body_txt'>"& Template &"</td>"

   Response.write "<td nowrap class='body_txt'></td>"

   Response.write "</tr>"

End Sub

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

' Function: Jats_Commands

'

' Purpose:  Generates HTML for displaying the JATS commands for extracting

'           a view for the package version, and for building the targets

'           within a previously extracted view for the package version.

'

' Arguments: dlocked       : dlocked state of the package version

'            config_branch : The branch, or null

'            pkg_label     : The package label

'            src_path      : The source path for the package

' Notes:

'

Sub Jats_Commands (dlocked, config_branch, pkg_label, src_path)

   Dim Template1, Template2

   If (pkg_label <> "" AND src_path <> "") Then

      If (dlocked <> "Y" AND NOT IsNull(config_branch) AND config_branch <> "" ) Then

         Template1 = "jats release -extract " & pkg_label & " -path " & chr(34) & Replace(src_path, "\", "/") & chr(34) &" -branch "& config_branch

      Else

         Template1 = "jats release -extract " & pkg_label & " -path " & chr(34) & Replace(src_path, "\", "/") & chr(34)

      End If

      Template2 = "jats release -test " & pkgInfoHash.Item("pkg_label") & " -path " & chr(34) & Replace(src_path, "\", "/") & chr(34)

   Else

      Template1 = "UNAVAILABLE - missing label and/or source path"

      Template2 = "UNAVAILABLE - missing label and/or source path"

   End If

   Response.write "<tr>"

   Response.write "<td nowrap class='body_txt'><b>JATS Extract:&nbsp;</b></td>"

   Response.write "<td nowrap class='body_txt'>" & Template1 & "</td>"

   Response.write "<td nowrap class='body_txt'></td>"

   Response.write "</tr>"

   Response.write "<tr>"

   Response.write "<td nowrap class='body_txt'><b>JATS Test:&nbsp;</b></td>"

   Response.write "<td nowrap class='body_txt'>" & Template2 & "</td>"

   Response.write "<td nowrap class='body_txt'></td>"

   Response.write "</tr>"

End Sub