Subversion Repositories DevTools

<%@LANGUAGE="VBSCRIPT"%>

<%@LANGUAGE="VBSCRIPT"%>

<%

<%

Option explicit

Option explicit

Response.Expires = 0   ' always load the page, dont store

Response.Expires = 0   ' always load the page, dont store

%>

%>

<%

<%

'=====================================================

'=====================================================

'               Package Information

'               Package Information

'=====================================================

'=====================================================

%>

%>

<!--#include file="common/conf.asp"-->

<!--#include file="common/conf.asp"-->

<!--#include file="common/globals.asp"-->

<!--#include file="common/globals.asp"-->

<!--#include file="common/formating.asp"-->

<!--#include file="common/formating.asp"-->

<!--#include file="common/qstr.asp"-->

<!--#include file="common/qstr.asp"-->

<!--#include file="common/common_subs.asp"-->

<!--#include file="common/common_subs.asp"-->

<!--#include file="common/common_dbedit.asp"-->

<!--#include file="common/common_dbedit.asp"-->

<!--#include file="common/_popup_window_common.asp"-->

<!--#include file="common/_popup_window_common.asp"-->

<%

<%

' Set rfile parameter. This is a return page after Login

' Set rfile parameter. This is a return page after Login

Call objPMod.StoreParameter ( "rfile", "fixed_issues.asp" )

Call objPMod.StoreParameter ( "rfile", "fixed_issues.asp" )

'------------ ACCESS CONTROL ------------------

'------------ ACCESS CONTROL ------------------

%>

%>

<!--#include file="_access_control_login.asp"-->

<!--#include file="_access_control_login.asp"-->

<!--#include file="_access_control_general.asp"-->

<!--#include file="_access_control_general.asp"-->

<!--#include file="_access_control_project.asp"-->

<!--#include file="_access_control_project.asp"-->

<%

<%

'------------ Variable Definition -------------

'------------ Variable Definition -------------

Dim parPv_id

Dim parPv_id

Dim query

Dim query

Dim rsQry, rsTemp

Dim rsQry, rsTemp

Dim checked

Dim checked

Dim FRdeployableYES, FRdeployableNO

Dim FRdeployableYES, FRdeployableNO

Dim objFormCollector

Dim objFormCollector

Dim pageIsEditable, criticalSectionIsEditable

Dim pageIsEditable, criticalSectionIsEditable

Dim disableCriticalSectionEdit

Dim disableCriticalSectionEdit

Dim Query_String

Dim Query_String

Dim parVCSTag

Dim parVCSTag

Dim parBSName

Dim parBSName

Dim submit_action_url

Dim submit_action_url

Dim on_submit_validation

Dim on_submit_validation

Dim sDefaultLabel, sLabel, sLabelReadOnly

Dim sDefaultLabel, sLabel, sLabelReadOnly

Dim isWIP

Dim isWIP

'------------ Constants Declaration -----------

'------------ Constants Declaration -----------

'------------ Variable Init -------------------

'------------ Variable Init -------------------

Set objFormCollector = CreateObject("Scripting.Dictionary")

Set objFormCollector = CreateObject("Scripting.Dictionary")

parPv_id = QStrPar("pv_id")

parPv_id = QStrPar("pv_id")

parVCSTag = QStrPar("vcs_tag")

parVCSTag = QStrPar("vcs_tag")

parBSName = QStrPar("bs_name")

parBSName = QStrPar("bs_name")

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

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

%>

%>

<%

<%

Sub MessageBox_BM_Exclusivity()

Sub MessageBox_BM_Exclusivity()

%><script language="Javascript">

%><script language="Javascript">

alert("You cannot select Generic with other BUILD MACHINE options!")

alert("You cannot select Generic with other BUILD MACHINE options!")

history.reload()

history.reload()

</script>

</script>

<%

<%

End Sub

End Sub

Sub MessageBox_RequiredFieldsEmpty()

Sub MessageBox_RequiredFieldsEmpty()

%><script language="Javascript">

%><script language="Javascript">

alert("One or more required fields are still empty!\nFill in and submit, or cancel.")

alert("One or more required fields are still empty!\nFill in and submit, or cancel.")

history.reload()

history.reload()

</script>

</script>

<%

<%

End Sub

End Sub

Sub MessageBox_Need_A_BuildStandard()

Sub MessageBox_Need_A_BuildStandard()

%><script language="Javascript">

%><script language="Javascript">

alert("This is an auto-build package version, and so a build standard/environment is required!\nFill in and re-submit, or cancel.")

alert("This is an auto-build package version, and so a build standard/environment is required!\nFill in and re-submit, or cancel.")

history.reload()

history.reload()

</script>

</script>

<%

<%

End Sub

End Sub

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

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

' Function to get the build standard name (eg. JATS) from a build standard ID

' Function to get the build standard name (eg. JATS) from a build standard ID

Function bs_name_from_bs_id( nBs_Id )

Function bs_name_from_bs_id( nBs_Id )

   Dim rsTemp, Query_String

   Dim rsTemp, Query_String

   bs_name_from_bs_id = "NONE"

   bs_name_from_bs_id = "NONE"

   If NOT IsNull(nBs_Id) Then

   If NOT IsNull(nBs_Id) Then

      Query_String = " SELECT * FROM build_standards WHERE bs_id = "& nBs_Id

      Query_String = " SELECT * FROM build_standards WHERE bs_id = "& nBs_Id

      Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))

      Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))

      If (NOT rsTemp.BOF ) AND (NOT rsTemp.EOF) Then

      If (NOT rsTemp.BOF ) AND (NOT rsTemp.EOF) Then

         bs_name_from_bs_id = rsTemp("bs_name")

         bs_name_from_bs_id = rsTemp("bs_name")

      End If

      End If

   End If

   End If

End Function

End Function

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

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

' Function to get the build standard ID from a build standard name (eg. JATS)

' Function to get the build standard ID from a build standard name (eg. JATS)

Function bs_id_from_bs_name( nBs_Name )

Function bs_id_from_bs_name( nBs_Name )

   Dim rsTemp, Query_String

   Dim rsTemp, Query_String

   bs_id_from_bs_name = 0

   bs_id_from_bs_name = 0

   Query_String = " SELECT * FROM build_standards WHERE bs_name = '"& nBs_Name &"'"

   Query_String = " SELECT * FROM build_standards WHERE bs_name = '"& nBs_Name &"'"

   Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))

   Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))

   If (NOT rsTemp.BOF ) AND (NOT rsTemp.EOF) Then

   If (NOT rsTemp.BOF ) AND (NOT rsTemp.EOF) Then

      bs_id_from_bs_name = rsTemp("bs_id")

      bs_id_from_bs_name = rsTemp("bs_id")

   End If

   End If

End Function

End Function

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

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

' Function to get the Version Control System type ID for ClearCase, based on the assumption that the TAG used for

' Function to get the Version Control System type ID for ClearCase, based on the assumption that the TAG used for

' ClearCase is 'CC'

' ClearCase is 'CC'

'Function get_clearcase_vcs_type_id()

'Function get_clearcase_vcs_type_id()

'   Dim rsTemp, Query_String

'   Dim rsTemp, Query_String

'

'

'   Query_String = _

'   Query_String = _

'   " SELECT * FROM VCS_TYPE WHERE tag = 'CC'"

'   " SELECT * FROM VCS_TYPE WHERE tag = 'CC'"

'

'

'   Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))

'   Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))

'   If (NOT rsTemp.BOF ) AND (NOT rsTemp.EOF) Then

'   If (NOT rsTemp.BOF ) AND (NOT rsTemp.EOF) Then

'      get_clearcase_vcs_type_id = rsTemp("vcs_type_id")

'      get_clearcase_vcs_type_id = rsTemp("vcs_type_id")

'   Else

'   Else

'      Call RaiseMsg(enum_MSG_ERROR, "Database is missing a VCS setting for Name: ClearCase, Tag: CC")

'      Call RaiseMsg(enum_MSG_ERROR, "Database is missing a VCS setting for Name: ClearCase, Tag: CC")

'   End If

'   End If

'   rsTemp.Close

'   rsTemp.Close

'   Set rsTemp = nothing

'   Set rsTemp = nothing

'End Function

'End Function

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

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

' Function to get the Version Control System type ID for Subversion, based on the assumption that the TAG used for

' Function to get the Version Control System type ID for Subversion, based on the assumption that the TAG used for

' Subversion is 'SVN'

' Subversion is 'SVN'

Function get_subversion_vcs_type_id()

Function get_subversion_vcs_type_id()

   Dim rsTemp, Query_String

   Dim rsTemp, Query_String

   Query_String = _

   Query_String = _

   " SELECT * FROM VCS_TYPE WHERE tag = 'SVN'"

   " SELECT * FROM VCS_TYPE WHERE tag = 'SVN'"

   Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))

   Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))

   If (NOT rsTemp.BOF ) AND (NOT rsTemp.EOF) Then

   If (NOT rsTemp.BOF ) AND (NOT rsTemp.EOF) Then

      get_subversion_vcs_type_id = rsTemp("vcs_type_id")

      get_subversion_vcs_type_id = rsTemp("vcs_type_id")

   Else

   Else

      Call RaiseMsg(enum_MSG_ERROR, "Database is missing a VCS setting for Name: Subversion, Tag: SVN")

      Call RaiseMsg(enum_MSG_ERROR, "Database is missing a VCS setting for Name: Subversion, Tag: SVN")

   End If

   End If

   rsTemp.Close

   rsTemp.Close

   Set rsTemp = nothing

   Set rsTemp = nothing

End Function

End Function

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

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

' Function to get the Version Control System type ID for Uncontrolled, based on the assumption that the TAG used for

' Function to get the Version Control System type ID for Uncontrolled, based on the assumption that the TAG used for

' ClearCase is 'UC'

' ClearCase is 'UC'

Function get_uncontrolled_vcs_type_id()

Function get_uncontrolled_vcs_type_id()

   Dim rsTemp, Query_String

   Dim rsTemp, Query_String

   Query_String = _

   Query_String = _

   " SELECT * FROM VCS_TYPE WHERE tag = 'UC'"

   " SELECT * FROM VCS_TYPE WHERE tag = 'UC'"

   Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))

   Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))

   If (NOT rsTemp.BOF ) AND (NOT rsTemp.EOF) Then

   If (NOT rsTemp.BOF ) AND (NOT rsTemp.EOF) Then

      get_uncontrolled_vcs_type_id = rsTemp("vcs_type_id")

      get_uncontrolled_vcs_type_id = rsTemp("vcs_type_id")

   Else

   Else

      Call RaiseMsg(enum_MSG_ERROR, "Database is missing a VCS setting for Name: Uncontrolled, Tag: UC")

      Call RaiseMsg(enum_MSG_ERROR, "Database is missing a VCS setting for Name: Uncontrolled, Tag: UC")

   End If

   End If

   rsTemp.Close

   rsTemp.Close

   Set rsTemp = nothing

   Set rsTemp = nothing

End Function

End Function

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

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

Sub Get_Form_Details( nPv_id, ByRef objDetails )

Sub Get_Form_Details( nPv_id, ByRef objDetails )

   Dim rsTemp, Query_String

   Dim rsTemp, Query_String

'   Dim CC_vcs_type_id

'   Dim CC_vcs_type_id

   Dim SVN_vcs_type_id

   Dim SVN_vcs_type_id

   Dim UC_vcs_type_id

   Dim UC_vcs_type_id

   ' Get VCS type IDs to use when evaluating legacy rows created before the introduction of the VCS tables and logic.

   ' Get VCS type IDs to use when evaluating legacy rows created before the introduction of the VCS tables and logic.

   ' These get uses in the query (see below) in the CASE statement.

   ' These get uses in the query (see below) in the CASE statement.

'   CC_vcs_type_id = get_clearcase_vcs_type_id()

'   CC_vcs_type_id = get_clearcase_vcs_type_id()

   SVN_vcs_type_id = get_subversion_vcs_type_id

   SVN_vcs_type_id = get_subversion_vcs_type_id

   UC_vcs_type_id = get_uncontrolled_vcs_type_id()

   UC_vcs_type_id = get_uncontrolled_vcs_type_id()

   Query_String = _

   Query_String = _

   " SELECT pkg.pkg_name, pv.pkg_version, pv.pkg_label, pv.src_path, pv.pv_description,"&_

   " SELECT pkg.pkg_name, pv.pkg_version, pv.pkg_label, pv.src_path, pv.pv_description,"&_

   "        pv.pv_overview, pv.v_ext, is_deployable, is_build_env_required, pv.build_type,"&_

   "        pv.pv_overview, pv.v_ext, is_deployable, is_build_env_required, pv.build_type,"&_

   "        pv.change_type, pv.bs_id, pv.dlocked,"&_

   "        pv.change_type, pv.bs_id, pv.dlocked,"&_

   "        (CASE WHEN pkg_label = 'N/A' AND pv.vcs_type_id IS NULL THEN "& UC_vcs_type_id &_

   "        (CASE WHEN pkg_label = 'N/A' AND pv.vcs_type_id IS NULL THEN "& UC_vcs_type_id &_

   "              WHEN pv.vcs_type_id IS NULL THEN " & SVN_vcs_type_id &_

   "              WHEN pv.vcs_type_id IS NULL THEN " & SVN_vcs_type_id &_

   "              ELSE pv.vcs_type_id END) AS vcs_type_id "&_

   "              ELSE pv.vcs_type_id END) AS vcs_type_id "&_

   "   FROM package_versions pv, packages pkg"&_

   "   FROM package_versions pv, packages pkg"&_

   "  WHERE pv.pkg_id = pkg.pkg_id"&_

   "  WHERE pv.pkg_id = pkg.pkg_id"&_

   "    AND pv_id = "& nPv_id

   "    AND pv_id = "& nPv_id

   Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))

   Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))

   If (NOT rsTemp.BOF ) AND (NOT rsTemp.EOF) Then

   If (NOT rsTemp.BOF ) AND (NOT rsTemp.EOF) Then

      objDetails.Item("pkg_name")              = rsTemp("pkg_name")

      objDetails.Item("pkg_name")              = rsTemp("pkg_name")

      objDetails.Item("pkg_version")           = rsTemp("pkg_version")

      objDetails.Item("pkg_version")           = rsTemp("pkg_version")

      objDetails.Item("pkg_label")             = rsTemp("pkg_label")

      objDetails.Item("pkg_label")             = rsTemp("pkg_label")

      objDetails.Item("src_path")              = rsTemp("src_path")

      objDetails.Item("src_path")              = rsTemp("src_path")

      objDetails.Item("pv_description")        = rsTemp("pv_description")

      objDetails.Item("pv_description")        = rsTemp("pv_description")

      objDetails.Item("pv_overview")           = rsTemp("pv_overview")

      objDetails.Item("pv_overview")           = rsTemp("pv_overview")

      objDetails.Item("v_ext")                 = rsTemp("v_ext")

      objDetails.Item("v_ext")                 = rsTemp("v_ext")

      objDetails.Item("is_deployable")         = rsTemp("is_deployable")

      objDetails.Item("is_deployable")         = rsTemp("is_deployable")

      objDetails.Item("is_build_env_required") = rsTemp("is_build_env_required")

      objDetails.Item("is_build_env_required") = rsTemp("is_build_env_required")

      objDetails.Item("build_type")            = rsTemp("build_type")

      objDetails.Item("build_type")            = rsTemp("build_type")

      objDetails.Item("change_type")           = rsTemp("change_type")

      objDetails.Item("change_type")           = rsTemp("change_type")

      objDetails.Item("bs_id")                 = rsTemp("bs_id")

      objDetails.Item("bs_id")                 = rsTemp("bs_id")

      objDetails.Item("dlocked")               = rsTemp("dlocked")

      objDetails.Item("dlocked")               = rsTemp("dlocked")

      objDetails.Item("vcs_type_id")           = rsTemp("vcs_type_id")

      objDetails.Item("vcs_type_id")           = rsTemp("vcs_type_id")

      rsTemp.Close

      rsTemp.Close

      ' This code allows the form to be altered by the user from the original build std configuration to a new

      ' This code allows the form to be altered by the user from the original build std configuration to a new

      ' one without having to update the database - we only want to do that when the user hits the

      ' one without having to update the database - we only want to do that when the user hits the

      ' submit button. The relevant fields in the objDetails are obtained in different ways accordingly.

      ' submit button. The relevant fields in the objDetails are obtained in different ways accordingly.

      If IsNull(parBSName) OR parBSName = "" Then

      If IsNull(parBSName) OR parBSName = "" Then

         objDetails.Item("bs_name") = bs_name_from_bs_id( objDetails.Item("bs_id") )

         objDetails.Item("bs_name") = bs_name_from_bs_id( objDetails.Item("bs_id") )

      Else

      Else

         objDetails.Item("bs_id") = bs_id_from_bs_name( parBSName )

         objDetails.Item("bs_id") = bs_id_from_bs_name( parBSName )

         objDetails.Item("bs_name") = parBSName

         objDetails.Item("bs_name") = parBSName

      End If

      End If

      ' Re-evaluate the is_build_env_required flag setting based on the possibly updated bs_name

      ' Re-evaluate the is_build_env_required flag setting based on the possibly updated bs_name

      If UCase(objDetails.Item("bs_name")) = "NONE" Then

      If UCase(objDetails.Item("bs_name")) = "NONE" Then

         objDetails.Item("is_build_env_required") = "N"

         objDetails.Item("is_build_env_required") = "N"

      Else

      Else

         objDetails.Item("is_build_env_required") = "Y"

         objDetails.Item("is_build_env_required") = "Y"

      End If

      End If

      ' This code allows the form to be altered by the user from the original VCS configuration to a new

      ' This code allows the form to be altered by the user from the original VCS configuration to a new

      ' one without having to update the database - we only want to do that when the user hits the

      ' one without having to update the database - we only want to do that when the user hits the

      ' submit button. The relevant fields in the objDetails are obtained in different ways accordingly.

      ' submit button. The relevant fields in the objDetails are obtained in different ways accordingly.

      If IsNull(parVCSTag) OR parVCSTag = "" Then

      If IsNull(parVCSTag) OR parVCSTag = "" Then

         call vcs_info_from_vcs_type_id( objDetails.Item("vcs_type_id"), objDetails )

         call vcs_info_from_vcs_type_id( objDetails.Item("vcs_type_id"), objDetails )

      Else

      Else

         call vcs_info_from_vcs_tag( parVCSTag, objDetails )

         call vcs_info_from_vcs_tag( parVCSTag, objDetails )

      End If

      End If

   End If

   End If

   rsTemp.Close

   rsTemp.Close

   Set rsTemp = Nothing

   Set rsTemp = Nothing

End Sub

End Sub

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

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

' Updates the database, specifically the is_build_env_required flag setting in the package_versions table

' Updates the database, specifically the is_build_env_required flag setting in the package_versions table

' The update is only performed if it is needed, ie. if the value is already correct, no update is needed.

' The update is only performed if it is needed, ie. if the value is already correct, no update is needed.

Sub UpdateIsBuildEnvRequired( nPv_id, nBs_name )

Sub UpdateIsBuildEnvRequired( nPv_id, nBs_name )

   Dim rsTemp, Query_String

   Dim rsTemp, Query_String

   Query_String = _

   Query_String = _

   " SELECT bs_id, is_build_env_required"&_

   " SELECT bs_id, is_build_env_required"&_

   " FROM package_versions"&_

   " FROM package_versions"&_

   " WHERE pv_id = "& nPv_id

   " WHERE pv_id = "& nPv_id

   Set rsTemp = OraDatabase.CreateDynaset( Query_String, cint(0))

   Set rsTemp = OraDatabase.CreateDynaset( Query_String, cint(0))

   If (UCase(nBs_name) = "NONE") AND (IsNull(rsTemp("is_build_env_required")) OR (rsTemp("is_build_env_required") <> "N")) Then

   If (UCase(nBs_name) = "NONE") AND (IsNull(rsTemp("is_build_env_required")) OR (rsTemp("is_build_env_required") <> "N")) Then

      rsTemp.Edit

      rsTemp.Edit

      rsTemp.Fields("bs_id").Value = rsTemp("bs_id")

      rsTemp.Fields("bs_id").Value = rsTemp("bs_id")

      rsTemp.Fields("is_build_env_required").Value = "N"

      rsTemp.Fields("is_build_env_required").Value = "N"

      rsTemp.Update

      rsTemp.Update

   ElseIf (UCase(nBs_name) <> "NONE") AND (IsNull(rsTemp("is_build_env_required")) OR (rsTemp("is_build_env_required") <> "Y")) Then

   ElseIf (UCase(nBs_name) <> "NONE") AND (IsNull(rsTemp("is_build_env_required")) OR (rsTemp("is_build_env_required") <> "Y")) Then

      rsTemp.Edit

      rsTemp.Edit

      rsTemp.Fields("bs_id").Value = rsTemp("bs_id")

      rsTemp.Fields("bs_id").Value = rsTemp("bs_id")

      rsTemp.Fields("is_build_env_required").Value = "Y"

      rsTemp.Fields("is_build_env_required").Value = "Y"

      rsTemp.Update

      rsTemp.Update

   End If

   End If

   rsTemp.Close

   rsTemp.Close

   Set rsTemp = nothing

   Set rsTemp = nothing

End Sub

End Sub

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

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

' Deletes the rows belonging to the current PV_ID, from the package_build_info table.

' Deletes the rows belonging to the current PV_ID, from the package_build_info table.

' This is normally done in preparation for updating the package_build_info table based on the latest

' This is normally done in preparation for updating the package_build_info table based on the latest

' (and possibly updated) build standard for the current PV_ID.

' (and possibly updated) build standard for the current PV_ID.

Sub DeletePackageBuildInfo( nPv_id )

Sub DeletePackageBuildInfo( nPv_id )

   On Error Resume Next

   On Error Resume Next

   objEH.TryORA ( OraSession )

   objEH.TryORA ( OraSession )

   OraDatabase.ExecuteSQL _

   OraDatabase.ExecuteSQL _

   "DELETE  FROM PACKAGE_BUILD_INFO WHERE PV_ID ="& nPv_id

   "DELETE  FROM PACKAGE_BUILD_INFO WHERE PV_ID ="& nPv_id

   objEH.CatchORA ( OraSession )

   objEH.CatchORA ( OraSession )

End Sub

End Sub

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

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

' Updates the vcs_type_id column for the current PV_ID, in the package_versions table.

' Updates the vcs_type_id column for the current PV_ID, in the package_versions table.

' The update is only performed if it is necessary, ie. the user has changed the setting via the form, or the existing

' The update is only performed if it is necessary, ie. the user has changed the setting via the form, or the existing

' value is not yet assigned.

' value is not yet assigned.

Sub UpdateVCS ( nPv_id, nVcs_type_id, nVcs_name, nVcs_tag )

Sub UpdateVCS ( nPv_id, nVcs_type_id, nVcs_name, nVcs_tag )

   Dim rsTemp, Query_String

   Dim rsTemp, Query_String

   Dim new_bs_id

   Dim new_bs_id

   Query_String = _

   Query_String = _

   " SELECT vcs_type_id"&_

   " SELECT vcs_type_id"&_

   " FROM package_versions"&_

   " FROM package_versions"&_

   " WHERE pv_id = "& nPv_id

   " WHERE pv_id = "& nPv_id

   Set rsTemp = OraDatabase.CreateDynaset( Query_String, cint(0))

   Set rsTemp = OraDatabase.CreateDynaset( Query_String, cint(0))

   ' compare new bs_id to existing bs_id to see if a change has been requested

   ' compare new bs_id to existing bs_id to see if a change has been requested

   If nVcs_type_id <> rsTemp("vcs_type_id") OR IsNull(rsTemp("vcs_type_id")) Then

   If nVcs_type_id <> rsTemp("vcs_type_id") OR IsNull(rsTemp("vcs_type_id")) Then

      'update fields

      'update fields

      rsTemp.Edit

      rsTemp.Edit

      rsTemp.Fields("vcs_type_id").Value = nVcs_type_id

      rsTemp.Fields("vcs_type_id").Value = nVcs_type_id

      rsTemp.Update

      rsTemp.Update

      Call Log_Action ( nPv_id, "vcs_type_id_update", "VCS Type ID Update: " & nVcs_name )

      Call Log_Action ( nPv_id, "vcs_type_id_update", "VCS Type ID Update: " & nVcs_name )

   End If

   End If

   rsTemp.Close

   rsTemp.Close

   Set rsTemp = nothing

   Set rsTemp = nothing

End Sub

End Sub

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

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

' Updates the bs_id column value for the current PV_ID in the package_versions table.

' Updates the bs_id column value for the current PV_ID in the package_versions table.

' The update is only performed if it is necessary, ie. the user has changed the setting via the form, or the existing

' The update is only performed if it is necessary, ie. the user has changed the setting via the form, or the existing

' value is not yet assigned.

' value is not yet assigned.

Sub UpdateBuildStandard ( nPv_id, nBs_name )

Sub UpdateBuildStandard ( nPv_id, nBs_name )

   Dim rsTemp, Query_String

   Dim rsTemp, Query_String

   Dim new_bs_id

   Dim new_bs_id

   ' get the new bs_id from the bs_name parameter

   ' get the new bs_id from the bs_name parameter

   new_bs_id = bs_id_from_bs_name(nBs_name)

   new_bs_id = bs_id_from_bs_name(nBs_name)

   Query_String = _

   Query_String = _

   " SELECT bs_id, is_build_env_required"&_

   " SELECT bs_id, is_build_env_required"&_

   " FROM package_versions"&_

   " FROM package_versions"&_

   " WHERE pv_id = "& nPv_id

   " WHERE pv_id = "& nPv_id

   Set rsTemp = OraDatabase.CreateDynaset( Query_String, cint(0))

   Set rsTemp = OraDatabase.CreateDynaset( Query_String, cint(0))

   ' compare new bs_id to existing bs_id to see if a change has been requested

   ' compare new bs_id to existing bs_id to see if a change has been requested

   If new_bs_id <> rsTemp("bs_id") OR IsNull(rsTemp("bs_id")) Then

   If new_bs_id <> rsTemp("bs_id") OR IsNull(rsTemp("bs_id")) Then

      'update fields

      'update fields

      rsTemp.Edit

      rsTemp.Edit

      rsTemp.Fields("bs_id").Value = new_bs_id

      rsTemp.Fields("bs_id").Value = new_bs_id

      If UCase(nBs_name) = "NONE" Then

      If UCase(nBs_name) = "NONE" Then

         rsTemp.Fields("is_build_env_required").Value = "N"

         rsTemp.Fields("is_build_env_required").Value = "N"

      Else

      Else

         rsTemp.Fields("is_build_env_required").Value = "Y"

         rsTemp.Fields("is_build_env_required").Value = "Y"

      End If

      End If

      rsTemp.Update

      rsTemp.Update

      ' Clear out the build info table of entries for this PV_ID.

      ' Clear out the build info table of entries for this PV_ID.

      Call DeletePackageBuildInfo(nPv_id)

      Call DeletePackageBuildInfo(nPv_id)

      Call Log_Action ( nPv_id, "build_standard_update", "Build Standard Update: " & nBs_name )

      Call Log_Action ( nPv_id, "build_standard_update", "Build Standard Update: " & nBs_name )

   End If

   End If

   rsTemp.Close

   rsTemp.Close

   Set rsTemp = nothing

   Set rsTemp = nothing

End Sub

End Sub

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

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

' Updates the package_build_info table for the current PV_ID, based on the latest build_standard settings made

' Updates the package_build_info table for the current PV_ID, based on the latest build_standard settings made

' by the user on the form

' by the user on the form

Sub UpdatePackageBuildInfo( NNpv_id )

Sub UpdatePackageBuildInfo( NNpv_id )

   '--- Set Build Types ---

   '--- Set Build Types ---

   Dim aBuildEnvList

   Dim aBuildEnvList

   Dim OraParameter

   Dim OraParameter

   Dim nBuildMachine

   Dim nBuildMachine

   ' Before doing inserts for this PV_ID into the package_build_info table, we need to delete any existing

   ' Before doing inserts for this PV_ID into the package_build_info table, we need to delete any existing

   ' rows for this PV_ID. This may have already been done if the user has changed the build standard, but

   ' rows for this PV_ID. This may have already been done if the user has changed the build standard, but

   ' there is no guarantee at this point that they have done that during this forms display.

   ' there is no guarantee at this point that they have done that during this forms display.

   Call DeletePackageBuildInfo( NNpv_id )

   Call DeletePackageBuildInfo( NNpv_id )

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

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

   OraDatabase.Parameters.Add "BM_ID",  0,       ORAPARM_INPUT, ORATYPE_NUMBER

   OraDatabase.Parameters.Add "BM_ID",  0,       ORAPARM_INPUT, ORATYPE_NUMBER

   OraDatabase.Parameters.Add "BSA_ID", 0,       ORAPARM_INPUT, ORATYPE_NUMBER

   OraDatabase.Parameters.Add "BSA_ID", 0,       ORAPARM_INPUT, ORATYPE_NUMBER

   Set OraParameter = OraDatabase.Parameters

   Set OraParameter = OraDatabase.Parameters

   aBuildEnvList = Split( Replace( Request("be_id_list"), " ", "" ) , ",")

   aBuildEnvList = Split( Replace( Request("be_id_list"), " ", "" ) , ",")

   On Error Resume Next

   On Error Resume Next

   objEH.TryORA ( OraSession )

   objEH.TryORA ( OraSession )

   For Each nBuildMachine In aBuildEnvList

   For Each nBuildMachine In aBuildEnvList

      OraParameter("BM_ID").Value = nBuildMachine

      OraParameter("BM_ID").Value = nBuildMachine

      OraParameter("BSA_ID").Value = Request("build_type_comb_"& nBuildMachine)

      OraParameter("BSA_ID").Value = Request("build_type_comb_"& nBuildMachine)

      If Err.Number = 0 Then

      If Err.Number = 0 Then

         OraDatabase.ExecuteSQL("begin INSERT INTO PACKAGE_BUILD_INFO ( PV_ID, BM_ID, BSA_ID ) "&_

         OraDatabase.ExecuteSQL("begin INSERT INTO PACKAGE_BUILD_INFO ( PV_ID, BM_ID, BSA_ID ) "&_

                                " VALUES( :PV_ID, :BM_ID, :BSA_ID ); end;")

                                " VALUES( :PV_ID, :BM_ID, :BSA_ID ); end;")

      End If

      End If

   Next

   Next

   objEH.CatchORA ( OraSession )

   objEH.CatchORA ( OraSession )

   OraDatabase.Parameters.Remove "PV_ID"

   OraDatabase.Parameters.Remove "PV_ID"

   OraDatabase.Parameters.Remove "BM_ID"

   OraDatabase.Parameters.Remove "BM_ID"

   OraDatabase.Parameters.Remove "BSA_ID"

   OraDatabase.Parameters.Remove "BSA_ID"

End Sub

End Sub

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

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

' This is the overall database update function called when the user hits the submit button on the form.

' This is the overall database update function called when the user hits the submit button on the form.

' It does some minor updates itself, but most of the work is done in subroutines.

' It does some minor updates itself, but most of the work is done in subroutines.

' No attempt is made to keep the entire set of updates atomic. There really is no need to do that.

' No attempt is made to keep the entire set of updates atomic. There really is no need to do that.

Sub Update_Pkg_Info ( NNpv_id, NNdeployable, SSLabel, SSPath, SSdesc, SSoverview )

Sub Update_Pkg_Info ( NNpv_id, NNdeployable, SSLabel, SSPath, SSdesc, SSoverview )

   Dim rsTemp, Query_String

   Dim rsTemp, Query_String

   On Error Resume Next

   On Error Resume Next

   Query_String = _

   Query_String = _

   " SELECT pkg_label, src_path, pv_description, pv_overview, is_deployable "&_

   " SELECT pkg_label, src_path, pv_description, pv_overview, is_deployable "&_

   " FROM package_versions"&_

   " FROM package_versions"&_

   " WHERE pv_id = "& NNpv_id

   " WHERE pv_id = "& NNpv_id

   If SSdesc = "" Then SSdesc = NULL

   If SSdesc = "" Then SSdesc = NULL

   Set rsTemp = OraDatabase.CreateDynaset( Query_String, cint(0))

   Set rsTemp = OraDatabase.CreateDynaset( Query_String, cint(0))

   rsTemp.Edit

   rsTemp.Edit

   ' Only update build critical sections (label, source path) if allowed

   ' Only update build critical sections (label, source path) if allowed

   If criticalSectionIsEditable Then

   If criticalSectionIsEditable Then

      rsTemp.Fields("pkg_label").Value = SSLabel

      rsTemp.Fields("pkg_label").Value = SSLabel

      rsTemp.Fields("src_path").Value = SSPath

      rsTemp.Fields("src_path").Value = SSPath

   End If

   End If

   ' Update non-build critical sections

   ' Update non-build critical sections

   rsTemp.Fields("pv_description").Value = SSdesc

   rsTemp.Fields("pv_description").Value = SSdesc

   rsTemp.Fields("pv_overview").Value = SSoverview

   rsTemp.Fields("pv_overview").Value = SSoverview

   If NNdeployable = "1" Then

   If NNdeployable = "1" Then

      rsTemp.Fields("is_deployable").Value = "Y"

      rsTemp.Fields("is_deployable").Value = "Y"

   Else

   Else

      rsTemp.Fields("is_deployable").Value = NULL

      rsTemp.Fields("is_deployable").Value = NULL

   End If

   End If

   rsTemp.Update

   rsTemp.Update

   rsTemp.Close

   rsTemp.Close

   Set rsTemp = nothing

   Set rsTemp = nothing

   ' Only update build critical sections if allowed

   ' Only update build critical sections if allowed

   If criticalSectionIsEditable Then

   If criticalSectionIsEditable Then

      ' Update the VCS if necessary for this PV_ID

      ' Update the VCS if necessary for this PV_ID

      Call UpdateVCS( NNpv_id, objFormCollector.Item("vcs_type_id"), objFormCollector.Item("vcs_name"), objFormCollector.Item("vcs_tag") )

      Call UpdateVCS( NNpv_id, objFormCollector.Item("vcs_type_id"), objFormCollector.Item("vcs_name"), objFormCollector.Item("vcs_tag") )

      ' Update the build standard if necessary for this PV_ID

      ' Update the build standard if necessary for this PV_ID

      Call UpdateBuildStandard( NNpv_id, objFormCollector.Item("bs_name") )

      Call UpdateBuildStandard( NNpv_id, objFormCollector.Item("bs_name") )

      ' Update the 'is build_env_required' flag for this PV_ID

      ' Update the 'is build_env_required' flag for this PV_ID

      Call UpdateIsBuildEnvRequired( NNpv_id, objFormCollector.Item("bs_name") )

      Call UpdateIsBuildEnvRequired( NNpv_id, objFormCollector.Item("bs_name") )

      ' Update the package_build_info table for this PV_ID

      ' Update the package_build_info table for this PV_ID

      Call UpdatePackageBuildInfo( NNpv_id )

      Call UpdatePackageBuildInfo( NNpv_id )

   End If

   End If

End Sub

End Sub

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

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

Function ShowHideBuildType( sBuildEnvChecked )

Function ShowHideBuildType( sBuildEnvChecked )

   ShowHideBuildType = "style='display:none;'"

   ShowHideBuildType = "style='display:none;'"

   If (sBuildEnvChecked <> "") Then

   If (sBuildEnvChecked <> "") Then

      ShowHideBuildType = "style='display:block;'"

      ShowHideBuildType = "style='display:block;'"

   End If

   End If

End Function

End Function

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

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

' Renders the HTML for the build standard addendum drop down list boxes, ie. Prod, Debug, Prod+Debug, Java 1.4, Java 1.5, etc.

' Renders the HTML for the build standard addendum drop down list boxes, ie. Prod, Debug, Prod+Debug, Java 1.4, Java 1.5, etc.

Sub RenderBuildTypeCombo( nBuildAddendum, nBuildMachine, nBuildStandard )

Sub RenderBuildTypeCombo( nBuildAddendum, nBuildMachine, nBuildStandard )

   If nBuildStandard <> "" Then

   If nBuildStandard <> "" Then

       Query_String = "SELECT * FROM build_standards_addendum WHERE bs_id ="& nBuildStandard & " ORDER BY bsa_id DESC"

       Query_String = "SELECT * FROM build_standards_addendum WHERE bs_id ="& nBuildStandard & " ORDER BY bsa_id DESC"

       'Response.Write Query_String

       'Response.Write Query_String

       Response.Write "<select name='build_type_comb_"& nBuildMachine &"' class='form_item'"& disableCriticalSectionEdit &">"

       Response.Write "<select name='build_type_comb_"& nBuildMachine &"' class='form_item'"& disableCriticalSectionEdit &">"

       Set rsTemp = OraDatabase.CreateDynaset( Query_String, cint(0))

       Set rsTemp = OraDatabase.CreateDynaset( Query_String, cint(0))

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

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

       If nBuildAddendum = rsTemp.Fields("bsa_id") Then

       If nBuildAddendum = rsTemp.Fields("bsa_id") Then

          Response.write "<option value='"& rsTemp.Fields("bsa_id") &"' selected>"& rsTemp.Fields("bsa_name") &"</option>"

          Response.write "<option value='"& rsTemp.Fields("bsa_id") &"' selected>"& rsTemp.Fields("bsa_name") &"</option>"

       Else

       Else

          Response.write "<option value='"& rsTemp.Fields("bsa_id") &"'>"& rsTemp.Fields("bsa_name") &"</option>"

          Response.write "<option value='"& rsTemp.Fields("bsa_id") &"'>"& rsTemp.Fields("bsa_name") &"</option>"

       End If

       End If

       rsTemp.MoveNext

       rsTemp.MoveNext

       WEnd

       WEnd

       Response.Write "</select>"

       Response.Write "</select>"

       rsTemp.Close()

       rsTemp.Close()

       Set rsTemp = nothing

       Set rsTemp = nothing

   End If

   End If

End Sub

End Sub

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

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

' Renders the HTML for the Version Control Settings drop down list box

' Renders the HTML for the Version Control Settings drop down list box

Sub RenderVCSCombo(nTag)

Sub RenderVCSCombo(nTag)

   If IsNull(nTag) OR nTag = "" Then

   If IsNull(nTag) OR nTag = "" Then

    nTag = enum_VCS_SUBVERSION_TAG

    nTag = enum_VCS_SUBVERSION_TAG

   End If

   End If

   Query_String = "SELECT * FROM vcs_type ORDER BY name"

   Query_String = "SELECT * FROM vcs_type ORDER BY name"

   Response.Write "<select id='vcs_name_combo' name='vcs_name_combo' class='form_item' "& disableCriticalSectionEdit &" onchange='vcs_changed();'>"

   Response.Write "<select id='vcs_name_combo' name='vcs_name_combo' class='form_item' "& disableCriticalSectionEdit &" onchange='vcs_changed();'>"

   Set rsTemp = OraDatabase.CreateDynaset( Query_String, cint(0))

   Set rsTemp = OraDatabase.CreateDynaset( Query_String, cint(0))

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

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

      If nTag = rsTemp.Fields("tag") Then

      If nTag = rsTemp.Fields("tag") Then

         Response.write "<option value='"& rsTemp.Fields("name") &"' selected>"& rsTemp.Fields("name") &"</option>"

         Response.write "<option value='"& rsTemp.Fields("name") &"' selected>"& rsTemp.Fields("name") &"</option>"

      Else

      Else

         ' Add item to drop down only if it is not UC (uncontrolled). If it is UC, then only add it if the package

         ' Add item to drop down only if it is not UC (uncontrolled). If it is UC, then only add it if the package

         ' version is a manual build type. It is not valid to allow autobuild packages to be uncontrolled (ie. the

         ' version is a manual build type. It is not valid to allow autobuild packages to be uncontrolled (ie. the

         ' build (daemon) tool needs a label or something doesn't it?)

         ' build (daemon) tool needs a label or something doesn't it?)

         If rsTemp.Fields("tag") <> enum_VCS_UNCONTROLLED_TAG OR objFormCollector.Item("build_type") = "M" Then

         If rsTemp.Fields("tag") <> enum_VCS_UNCONTROLLED_TAG OR objFormCollector.Item("build_type") = "M" Then

            Response.write "<option value='"& rsTemp.Fields("name") &"'>"& rsTemp.Fields("name") &"</option>"

            Response.write "<option value='"& rsTemp.Fields("name") &"'>"& rsTemp.Fields("name") &"</option>"

         End If

         End If

      End If

      End If

      rsTemp.MoveNext

      rsTemp.MoveNext

   WEnd

   WEnd

   Response.Write "</select>"

   Response.Write "</select>"

   ' Create a hidden combo containing tags instead of names - we can use this to get a tag for a name without

   ' Create a hidden combo containing tags instead of names - we can use this to get a tag for a name without

   ' doing a database query

   ' doing a database query

   Response.Write "<td nowrap background='images/bg_form_lightbluedark.gif'><div id='div_vcs_tag_combo' name='div_vcs_tag_combo' style='visibility:hidden'   >"

   Response.Write "<td nowrap background='images/bg_form_lightbluedark.gif'><div id='div_vcs_tag_combo' name='div_vcs_tag_combo' style='visibility:hidden'   >"

   Response.Write "<select id='vcs_tag_combo' name='vcs_tag_combo' disabled hidden  class='form_item' "& disableCriticalSectionEdit &">"

   Response.Write "<select id='vcs_tag_combo' name='vcs_tag_combo' disabled hidden  class='form_item' "& disableCriticalSectionEdit &">"

   rsTemp.MoveFirst

   rsTemp.MoveFirst

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

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

      Response.write "<option value='"& rsTemp.Fields("tag") &"'>"& rsTemp.Fields("tag") &"</option>"

      Response.write "<option value='"& rsTemp.Fields("tag") &"'>"& rsTemp.Fields("tag") &"</option>"

      rsTemp.MoveNext

      rsTemp.MoveNext

   WEnd

   WEnd

   Response.Write "</select>"

   Response.Write "</select>"

   Response.Write "</div></td>"

   Response.Write "</div></td>"

   rsTemp.Close()

   rsTemp.Close()

   Set rsTemp = nothing

   Set rsTemp = nothing

End Sub

End Sub

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

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

' Renders the HTML for the build standard drop down list box

' Renders the HTML for the build standard drop down list box

'

'

' Typically, this drop down would contain ANT, JATS, and NONE, although ofcoarse this is dependant upon what data is

' Typically, this drop down would contain ANT, JATS, and NONE, although ofcoarse this is dependant upon what data is

' present in the build_standards table of the database

' present in the build_standards table of the database

Sub RenderBldStdCombo(nBldStdName)

Sub RenderBldStdCombo(nBldStdName)

   Query_String = "SELECT * FROM build_standards"

   Query_String = "SELECT * FROM build_standards"

   Response.Write "<select id='bld_std_combo' name='bld_std_combo' class='form_item' "& disableCriticalSectionEdit &" onchange='bld_std_changed();'>"

   Response.Write "<select id='bld_std_combo' name='bld_std_combo' class='form_item' "& disableCriticalSectionEdit &" onchange='bld_std_changed();'>"

   Set rsTemp = OraDatabase.CreateDynaset( Query_String, cint(0))

   Set rsTemp = OraDatabase.CreateDynaset( Query_String, cint(0))

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

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

      If nBldStdName = rsTemp.Fields("bs_name") Then

      If nBldStdName = rsTemp.Fields("bs_name") Then

         Response.write "<option value='"& rsTemp.Fields("bs_name") &"' selected>"& rsTemp.Fields("bs_name") &"</option>"

         Response.write "<option value='"& rsTemp.Fields("bs_name") &"' selected>"& rsTemp.Fields("bs_name") &"</option>"

      Else

      Else

         Response.write "<option value='"& rsTemp.Fields("bs_name") &"'>"& rsTemp.Fields("bs_name") &"</option>"

         Response.write "<option value='"& rsTemp.Fields("bs_name") &"'>"& rsTemp.Fields("bs_name") &"</option>"

      End If

      End If

      rsTemp.MoveNext

      rsTemp.MoveNext

   WEnd

   WEnd

   Response.Write "</select>"

   Response.Write "</select>"

   Response.Write "<td nowrap background='images/bg_form_lightbluedark.gif'>&nbsp;</td>"

   Response.Write "<td nowrap background='images/bg_form_lightbluedark.gif'>&nbsp;</td>"

   rsTemp.Close()

   rsTemp.Close()

   Set rsTemp = nothing

   Set rsTemp = nothing

End Sub

End Sub

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

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

' Figures out what the url should be for when the form is submitted, ensuring that all of the paramters are present if

' Figures out what the url should be for when the form is submitted, ensuring that all of the paramters are present if

' need be. Note that the VCS and BSName parameters are optional. They will only be present if the user has made modifications

' need be. Note that the VCS and BSName parameters are optional. They will only be present if the user has made modifications

' to the respective drop down list boxes before submitting the form.

' to the respective drop down list boxes before submitting the form.

Sub Determine_submit_action_url ()

Sub Determine_submit_action_url ()

   ' Work out what the reload url should be for when the user hits the submit button

   ' Work out what the reload url should be for when the user hits the submit button

   If IsNull(parVCSTag) OR parVCSTag = "" Then

   If IsNull(parVCSTag) OR parVCSTag = "" Then

      If IsNull(parBSName) OR parBSName = "" Then

      If IsNull(parBSName) OR parBSName = "" Then

         submit_action_url = scriptName & "?pv_id=" & parPv_id & "&rtag_id=" & parRtag_id

         submit_action_url = scriptName & "?pv_id=" & parPv_id & "&rtag_id=" & parRtag_id

      Else

      Else

         submit_action_url = scriptName & "?pv_id=" & parPv_id & "&rtag_id=" & parRtag_id & "&bs_name=" & parBSName

         submit_action_url = scriptName & "?pv_id=" & parPv_id & "&rtag_id=" & parRtag_id & "&bs_name=" & parBSName

      End If

      End If

   Else

   Else

      If IsNull(parBSName) OR parBSName = "" Then

      If IsNull(parBSName) OR parBSName = "" Then

         submit_action_url = scriptName & "?pv_id=" & parPv_id & "&rtag_id=" & parRtag_id & "&vcs_tag=" & parVCSTag

         submit_action_url = scriptName & "?pv_id=" & parPv_id & "&rtag_id=" & parRtag_id & "&vcs_tag=" & parVCSTag

      Else

      Else

         submit_action_url = scriptName & "?pv_id=" & parPv_id & "&rtag_id=" & parRtag_id & "&vcs_tag=" & parVCSTag & "&bs_name=" & parBSName

         submit_action_url = scriptName & "?pv_id=" & parPv_id & "&rtag_id=" & parRtag_id & "&vcs_tag=" & parVCSTag & "&bs_name=" & parBSName

      End If

      End If

   End If

   End If

End Sub

End Sub

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

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

' This subroutine sets up the on_submit_validation string to be used in the form tag to validate certain fields

' This subroutine sets up the on_submit_validation string to be used in the form tag to validate certain fields

' in client-side javascript when a user tries to submit the form

' in client-side javascript when a user tries to submit the form

Sub Determine_On_Submit_Validation

Sub Determine_On_Submit_Validation

   on_submit_validation = ""

   on_submit_validation = ""

   Dim args

   Dim args

   If (objFormCollector.Item("vcs_tag") = enum_VCS_CLEARCASE_TAG) Then

   If (objFormCollector.Item("vcs_tag") = enum_VCS_CLEARCASE_TAG) Then

      ' Do clearcase path + label validation

      ' Do clearcase path + label validation

      args = "'FRlabel','Label','RisCCLabel','FRpath','Source Path','RisCCPath'"

      args = "'FRlabel','Label','RisCCLabel','FRpath','Source Path','RisCCPath'"

   ElseIf (objFormCollector.Item("vcs_tag") = enum_VCS_SUBVERSION_TAG) Then

   ElseIf (objFormCollector.Item("vcs_tag") = enum_VCS_SUBVERSION_TAG) Then

      ' Do subversion tag validation

      ' Do subversion tag validation

      args = "'FRpath','Source Path','RisSVNPath'"

      args = "'FRpath','Source Path','RisSVNPath'"

      args = args & ",'FRlabel','Subversion Tag','RisSVNTag'"

      args = args & ",'FRlabel','Subversion Tag','RisSVNTag'"

      If (objFormCollector.Item("build_type") = "M" ) Then

      If (objFormCollector.Item("build_type") = "M" ) Then

          args = args & ",'FRlabel','Subversion Tag','RisSVNPegTag'"

          args = args & ",'FRlabel','Subversion Tag','RisSVNPegTag'"

      End If

      End If

   End If

   End If

   args = args & ",'pv_description','Package Description','RminLength:11'"

   args = args & ",'pv_description','Package Description','RminLength:11'"

   args = args & ",'pv_overview','Package Overview','RminLength:11'"

   args = args & ",'pv_overview','Package Overview','RminLength:11'"

   on_submit_validation = "onSubmit=""MM_validateForm(" & args & "); return document.MM_returnValue"""

   on_submit_validation = "onSubmit=""MM_validateForm(" & args & "); return document.MM_returnValue"""

End Sub

End Sub

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

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

' This function obtains a BM_ID (build machine ID) from a buidl machine name by querrying the database

' This function obtains a BM_ID (build machine ID) from a buidl machine name by querrying the database

Function Get_BM_ID_for_BM_Name(nBm_Name)

Function Get_BM_ID_for_BM_Name(nBm_Name)

   Dim rsTemp, Query_String

   Dim rsTemp, Query_String

   Get_BM_ID_for_BM_Name = ""

   Get_BM_ID_for_BM_Name = ""

   Query_String = "SELECT bm_id FROM build_machines bm WHERE bm.bm_name = '" & nBm_Name & "'"

   Query_String = "SELECT bm_id FROM build_machines bm WHERE bm.bm_name = '" & nBm_Name & "'"

   Set rsTemp = OraDatabase.CreateDynaset( Query_String, cint(0))

   Set rsTemp = OraDatabase.CreateDynaset( Query_String, cint(0))

   Get_BM_ID_for_BM_Name = ""

   Get_BM_ID_for_BM_Name = ""

   If (NOT rsTemp.BOF ) AND (NOT rsTemp.EOF) Then

   If (NOT rsTemp.BOF ) AND (NOT rsTemp.EOF) Then

      Get_BM_ID_for_BM_Name = rsTemp("bm_id")

      Get_BM_ID_for_BM_Name = rsTemp("bm_id")

   End If

   End If

End Function

End Function

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

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

Function GetRowColor( sRowColor )

Function GetRowColor( sRowColor )

   If sRowColor = "#FFFFFF" Then

   If sRowColor = "#FFFFFF" Then

      GetRowColor = "#F5F5F5"

      GetRowColor = "#F5F5F5"

   Else

   Else

      GetRowColor = "#FFFFFF"

      GetRowColor = "#FFFFFF"

   End If

   End If

End Function

End Function

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

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

%>

%>

<%

<%

'------------------------------- RUN BEFORE PAGE RENDER ----------------------------

'------------------------------- RUN BEFORE PAGE RENDER ----------------------------

Call LoadFieldRules ( "'FRlabel','FRpath','pv_description','pv_overview','be_id_list'", objForm )      ' Load Validation Rules

Call LoadFieldRules ( "'FRlabel','FRpath','pv_description','pv_overview','be_id_list'", objForm )      ' Load Validation Rules

Call Get_Form_Details( parPv_id, objFormCollector )

Call Get_Form_Details( parPv_id, objFormCollector )

'--- From Validation Rule Changes ----

'--- From Validation Rule Changes ----

' Dont need the label if the package version is uncontrolled

' Dont need the label if the package version is uncontrolled

If (objFormCollector.Item("vcs_tag") = enum_VCS_UNCONTROLLED_TAG) Then

If (objFormCollector.Item("vcs_tag") = enum_VCS_UNCONTROLLED_TAG) Then

   objForm.UpdateRules ("id='FRlabel' IsRequired='N'")

   objForm.UpdateRules ("id='FRlabel' IsRequired='N'")

End If

End If

' Dont need the path if the package version is uncontrolled

' Dont need the path if the package version is uncontrolled

If (objFormCollector.Item("vcs_tag") = enum_VCS_UNCONTROLLED_TAG) Then

If (objFormCollector.Item("vcs_tag") = enum_VCS_UNCONTROLLED_TAG) Then

   objForm.UpdateRules ("id='FRpath' IsRequired='N'")

   objForm.UpdateRules ("id='FRpath' IsRequired='N'")

End If

End If

' Dont need the build environment if the is_build_env_required is "N"

' Dont need the build environment if the is_build_env_required is "N"

If objFormCollector.Item("is_build_env_required") = "N" Then

If objFormCollector.Item("is_build_env_required") = "N" Then

   objForm.UpdateRules ("id='be_id_list' IsRequired='N'")

   objForm.UpdateRules ("id='be_id_list' IsRequired='N'")

End If

End If

' Test for late entry of data

' Test for late entry of data

'objForm.UpdateRules ("id='FRpath' IsRequired='N'")

'objForm.UpdateRules ("id='FRpath' IsRequired='N'")

'objForm.UpdateRules ("id='FRlabel' IsRequired='N'")

'objForm.UpdateRules ("id='FRlabel' IsRequired='N'")

'objForm.UpdateRules ("id='pv_description' IsRequired='N'")

'objForm.UpdateRules ("id='pv_description' IsRequired='N'")

'objForm.UpdateRules ("id='pv_overview' IsRequired='N'")

'objForm.UpdateRules ("id='pv_overview' IsRequired='N'")

'--- Access Control Setup ------------

'--- Access Control Setup ------------

pageIsEditable = Is_Page_Editable ( objFormCollector.Item ("dlocked") )

pageIsEditable = Is_Page_Editable ( objFormCollector.Item ("dlocked") )

criticalSectionIsEditable = Is_Critical_Section_Editable ( objFormCollector.Item("dlocked") )

criticalSectionIsEditable = Is_Critical_Section_Editable ( objFormCollector.Item("dlocked") )

isWIP = PackageExists(parRtag_id,parPv_id,"work_in_progress")

isWIP = PackageExists(parRtag_id,parPv_id,"work_in_progress")

If criticalSectionIsEditable then

If criticalSectionIsEditable then

   disableCriticalSectionEdit = ""

   disableCriticalSectionEdit = ""

Else

Else

   disableCriticalSectionEdit = "disabled"

   disableCriticalSectionEdit = "disabled"

End If

End If

' Disable "Required" warnings for fields that cannot be edited by the current user at this time

' Disable "Required" warnings for fields that cannot be edited by the current user at this time

If NOT criticalSectionIsEditable Then

If NOT criticalSectionIsEditable Then

   objForm.UpdateRules ("id='FRlabel' IsRequired='N'")

   objForm.UpdateRules ("id='FRlabel' IsRequired='N'")

   objForm.UpdateRules ("id='FRpath' IsRequired='N'")

   objForm.UpdateRules ("id='FRpath' IsRequired='N'")

   objForm.UpdateRules ("id='be_id_list' IsRequired='N'")

   objForm.UpdateRules ("id='be_id_list' IsRequired='N'")

End If

End If

'--- Process Submission ---------------

'--- Process Submission ---------------

If objForm.IsPostBack Then

If objForm.IsPostBack Then

   ' use of the drop down lists or the submit button gets us in here

   ' use of the drop down lists or the submit button gets us in here

   If objForm.IsValidOnPostBack Then

   If objForm.IsValidOnPostBack Then

      ' only get here if the form is valid

      ' only get here if the form is valid

      ' has the user pressed the submit button?

      ' has the user pressed the submit button?

      If Request("btn") = "Submit" Then

      If Request("btn") = "Submit" Then

         If objFormCollector.Item("build_type") = "A" AND UCase(objFormCollector.Item("bs_name")) = "NONE" Then

         If objFormCollector.Item("build_type") = "A" AND UCase(objFormCollector.Item("bs_name")) = "NONE" Then

            Call MessageBox_Need_A_BuildStandard()

            Call MessageBox_Need_A_BuildStandard()

         Else

         Else

            Dim aBuildEnvList, nBuildEnv, display

            Dim aBuildEnvList, nBuildEnv, display

            display = false

            display = false

            If UCase(objFormCollector.Item("bs_name")) <> "NONE" Then

            If UCase(objFormCollector.Item("bs_name")) <> "NONE" Then

               ' Check for mutual exclusivity rules on the build standard addendum items

               ' Check for mutual exclusivity rules on the build standard addendum items

               aBuildEnvList = Split( Replace( Request("be_id_list"), " ", "" ) , ",")

               aBuildEnvList = Split( Replace( Request("be_id_list"), " ", "" ) , ",")

               ' If >1 build machine items have been selected....

               ' If >1 build machine items have been selected....

               If UBound(aBuildEnvList) > 0 Then

               If UBound(aBuildEnvList) > 0 Then

                  Dim bm_id_generic

                  Dim bm_id_generic

                  bm_id_generic = Get_BM_ID_for_BM_Name("Generic")

                  bm_id_generic = Get_BM_ID_for_BM_Name("Generic")

                  ' If one of the selected build mnachines is "Generic" then we have a mutual exclusivity violation

                  ' If one of the selected build mnachines is "Generic" then we have a mutual exclusivity violation

                  For Each nBuildEnv In aBuildEnvList

                  For Each nBuildEnv In aBuildEnvList

                     If nBuildEnv = bm_id_generic Then

                     If nBuildEnv = bm_id_generic Then

                        display = true

                        display = true

                     End If

                     End If

                  Next

                  Next

               End If

               End If

            End If

            End If

            If display then

            If display then

               Call MessageBox_BM_Exclusivity()

               Call MessageBox_BM_Exclusivity()

            Else

            Else

               Call Update_Pkg_Info ( parPv_id, QStrPar("FRdeployable"), QStrPar("FRlabel"), QStrPar("FRpath"), QStrPar("pv_description"), QStrPar("pv_overview") )

               Call Update_Pkg_Info ( parPv_id, QStrPar("FRdeployable"), QStrPar("FRlabel"), QStrPar("FRpath"), QStrPar("pv_description"), QStrPar("pv_overview") )

               Call OpenInParentWindow ( "fixed_issues.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id &"&hidenv=true" )

               Call OpenInParentWindow ( "fixed_issues.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id &"&hidenv=true" )

               Call CloseWindow

               Call CloseWindow

            End If

            End If

         End If

         End If

      Else

      Else

         ' We come through here when a user modifies the VCS or Build Standard drop down list settings

         ' We come through here when a user modifies the VCS or Build Standard drop down list settings

         ' We must stay in the form. There is nothing to do yet. The user may not have finished making their edits yet.

         ' We must stay in the form. There is nothing to do yet. The user may not have finished making their edits yet.

      End If

      End If

   Else

   Else

      ' The form is still invalid but we only want to issue the warning message if the user pressed the submit button

      ' The form is still invalid but we only want to issue the warning message if the user pressed the submit button

      If Request("btn") = "Submit" Then

      If Request("btn") = "Submit" Then

         Call MessageBox_RequiredFieldsEmpty()

         Call MessageBox_RequiredFieldsEmpty()

      End If

      End If

   End If

   End If

End If

End If

' Determine the URL to use when and if this form is refreshed using F5, or when a user changes the

' Determine the URL to use when and if this form is refreshed using F5, or when a user changes the

' values in one of the drop down lists and the form is reloaded with additional or changed parameters

' values in one of the drop down lists and the form is reloaded with additional or changed parameters

' The html form will use the result of this in its action tag.

' The html form will use the result of this in its action tag.

Call Determine_submit_action_url()

Call Determine_submit_action_url()

Call Determine_On_Submit_Validation()

Call Determine_On_Submit_Validation()

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

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

%>

%>

<html>

<html>

<head>

<head>

<title>Release Manager</title>

<title>Release Manager</title>

<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">

<link rel="shortcut icon" href="<%=FavIcon%>"/>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">

<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<link rel="stylesheet" href="images/navigation.css" type="text/css">

<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">

<script language="JavaScript" src="images/common.js"></script>

<link rel="stylesheet" href="images/navigation.css" type="text/css">

<!-- TIPS -->

<script language="JavaScript" src="images/common.js"></script>

<script language="JavaScript" src="images/tipster.js"></script>

<!-- TIPS -->

<script language="JavaScript" src="images/_help_tips.js"></script>

<script language="JavaScript" src="images/tipster.js"></script>

<script language="JavaScript" type="text/javascript">

<script language="JavaScript" src="images/_help_tips.js"></script>

<!--

<script language="JavaScript" type="text/javascript">

<!--

// This function is the onchange event handler for the Version Control System drop down list box.

// It will re-format the web page URL to pass the vcs_tag paramter reflecting the users choice in the drop down list,

// This function is the onchange event handler for the Version Control System drop down list box.

// and submit the form using the updated URL.

// It will re-format the web page URL to pass the vcs_tag paramter reflecting the users choice in the drop down list,

function vcs_changed() {

// and submit the form using the updated URL.

   var f = document.getElementById('pkginfo');

function vcs_changed() {

   if (f == null) {

   var f = document.getElementById('pkginfo');

      alert('Javascript Error : Failed to get pkginfo');

   if (f == null) {

   }

      alert('Javascript Error : Failed to get pkginfo');

   else {

   }

   else {

      var nc = document.getElementById('vcs_name_combo');

      if (nc == null) {

      var nc = document.getElementById('vcs_name_combo');

         alert('Javascript Error : Failed to get vcs_name_combo');

      if (nc == null) {

      }

         alert('Javascript Error : Failed to get vcs_name_combo');

      else {

      }

         var tc = document.getElementById('vcs_tag_combo');

      else {

         if (tc == null) {

         var tc = document.getElementById('vcs_tag_combo');

            alert('Javascript Error : Failed to get vcs_tag_combo');

         if (tc == null) {

         }

            alert('Javascript Error : Failed to get vcs_tag_combo');

         else {

         }

            // Form the new URL with the updated VCS tag passed as a parameter

         else {

            var tc2 = document.getElementById('vcs_name_combo');

            // Form the new URL with the updated VCS tag passed as a parameter

            if (tc2.options[nc.selectedIndex].value == 'Concurrent Versions System')

            var tc2 = document.getElementById('vcs_name_combo');

            {

            if (tc2.options[nc.selectedIndex].value == 'Concurrent Versions System')

               alert('The Concurrent Versions System (CVS) is not fully supported by ERG.\n' +

            {

                     'This means you will have to manually build this package.\n' +

               alert('The Concurrent Versions System (CVS) is not fully supported by ERG.\n' +

                     'Please ensure you assign the version number manually, if that is not already so.\n');

                     'This means you will have to manually build this package.\n' +

            }

                     'Please ensure you assign the version number manually, if that is not already so.\n');

            <%If IsNull(parBSName) OR parBSName = "" Then%>

            }

               f.action = "_wform_pkg_info.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>&vcs_tag=" + tc.options[nc.selectedIndex].value;

            <%If IsNull(parBSName) OR parBSName = "" Then%>

            <%Else%>

               f.action = "_wform_pkg_info.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>&vcs_tag=" + tc.options[nc.selectedIndex].value;

               f.action = "_wform_pkg_info.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>&bs_name=<%=parBSName%>&vcs_tag=" + tc.options[nc.selectedIndex].value;

            <%Else%>

            <%End If%>

               f.action = "_wform_pkg_info.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>&bs_name=<%=parBSName%>&vcs_tag=" + tc.options[nc.selectedIndex].value;

            <%End If%>

            f.submit();

         }

            f.submit();

      }

         }

   }

      }

}

   }

}

// This function is the onchange event handler for the Build Standard drop down list box.

// It will re-format the web page URL to pass the vcs_tag paramter reflecting the users choice in the drop down list,

// This function is the onchange event handler for the Build Standard drop down list box.

// and submit the form using the updated URL.

// It will re-format the web page URL to pass the vcs_tag paramter reflecting the users choice in the drop down list,

function bld_std_changed() {

// and submit the form using the updated URL.

   var f = document.getElementById('pkginfo');

function bld_std_changed() {

   if (f == null) {

   var f = document.getElementById('pkginfo');

      alert('Javascript Error : Failed to get pkginfo');

   if (f == null) {

   }

      alert('Javascript Error : Failed to get pkginfo');

   else {

   }

      var nc = document.getElementById('bld_std_combo');

   else {

      if (nc == null) {

      var nc = document.getElementById('bld_std_combo');

         alert('Javascript Error : Failed to get bld_std_combo');

      if (nc == null) {

      }

         alert('Javascript Error : Failed to get bld_std_combo');

      else {

      }

         // Form the new URL with the updated build standard name passed as a parameter

      else {

         <%If IsNull(parVCSTag) OR parVCSTag = "" Then%>

         // Form the new URL with the updated build standard name passed as a parameter

            f.action = "_wform_pkg_info.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>&bs_name=" + nc.options[nc.selectedIndex].value;

         <%If IsNull(parVCSTag) OR parVCSTag = "" Then%>

         <%Else%>

            f.action = "_wform_pkg_info.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>&bs_name=" + nc.options[nc.selectedIndex].value;

            f.action = "_wform_pkg_info.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>&vcs_tag=<%=parVCSTag%>&bs_name=" + nc.options[nc.selectedIndex].value;

         <%Else%>

         <%End If%>

            f.action = "_wform_pkg_info.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>&vcs_tag=<%=parVCSTag%>&bs_name=" + nc.options[nc.selectedIndex].value;

         <%End If%>

         f.submit();

      }

         f.submit();

   }

      }

}

   }

}

// This function will replace back slashes with forward slashes and can be used with an onchange event on fields

// where back slashes may be entered

// This function will replace back slashes with forward slashes and can be used with an onchange event on fields

function replace_back_slashes(e) {

// where back slashes may be entered

   strip_whitespace(e);

function replace_back_slashes(e) {

   var str = e.value;

   strip_whitespace(e);

   e.value = str.replace(/\\/g,"/");

   var str = e.value;

}

   e.value = str.replace(/\\/g,"/");

}

function strip_whitespace(e) {

   var str = e.value;

function strip_whitespace(e) {

   str = str.replace(/^\s+/,"");

   var str = e.value;

   e.value =  str.replace(/\s+$/,"");

   str = str.replace(/^\s+/,"");

}

   e.value =  str.replace(/\s+$/,"");

}

//-->

</script>

//-->

</head>

</script>

<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onload="self.focus();">

</head>

<!-- TIPS LAYERS -------------------------------------->

<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onload="self.focus();">

<div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>

<!-- TIPS LAYERS -------------------------------------->

<!----------------------------------------------------->

<div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>

<form id="pkginfo" name="pkginfo" method="post" <%=on_submit_validation%> action="<%=submit_action_url%>">

<!----------------------------------------------------->

   <table width="100%" border="0" cellspacing="0" cellpadding="2" height="100%">

<form id="pkginfo" name="pkginfo" method="post" <%=on_submit_validation%> action="<%=submit_action_url%>">

      <tr>

   <table width="100%" border="0" cellspacing="0" cellpadding="2" height="100%">

         <td background="images/lbox_bg_orange.gif" width="1%" height="1%"><img src="images/s_info_off.gif" width="21" height="21" hspace="5" border="0"></td>

      <tr>

         <td background="images/lbox_bg_blue.gif" nowrap width="50%" class="wform_ttl">&nbsp;Package Information </td>

         <td background="images/lbox_bg_orange.gif" width="1%" height="1%"><img src="images/s_info_off.gif" width="21" height="21" hspace="5" border="0"></td>

         <td background="images/lbox_bg_blue.gif" align="right" width="50%">

         <td background="images/lbox_bg_blue.gif" nowrap width="50%" class="wform_ttl">&nbsp;Package Information </td>

            <input type="submit" name="btn" value="Submit" <%If pageIsEditable Then%>class="form_btn_comp"<%Else%>disabled class="form_btn_comp_disabled"<%End If%>>

         <td background="images/lbox_bg_blue.gif" align="right" width="50%">

            <input type="reset" name="btn" value="Cancel" class="form_btn_comp" onclick="self.close()">

            <input type="submit" name="btn" value="Submit" <%If pageIsEditable Then%>class="form_btn_comp"<%Else%>disabled class="form_btn_comp_disabled"<%End If%>>

         </td>

            <input type="reset" name="btn" value="Cancel" class="form_btn_comp" onclick="self.close()">

         <td background="images/lbox_bg_blue.gif" align="right" width="1%" nowrap>

         </td>

         <img src="images/h_trsp_dot.gif" width="5" height="22"> </td>

         <td background="images/lbox_bg_blue.gif" align="right" width="1%" nowrap>

      </tr>

         <img src="images/h_trsp_dot.gif" width="5" height="22"> </td>

      </tr>

      <tr>

         <td height="100%" width="1%">&nbsp;</td>

      <tr>

         <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/bg_form_lightgray.gif">

         <td height="100%" width="1%">&nbsp;</td>

            <table width="100%" border="0" cellspacing="1" cellpadding="2">

         <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/bg_form_lightgray.gif">

               <tr>

            <table width="100%" border="0" cellspacing="1" cellpadding="2">

                  <td width="1%"><img src="images/h_trsp_dot.gif" width="10" height="30"></td>

               <tr>

                  <td width="1%" nowrap class="form_group" valign="bottom"></td>

                  <td width="1%"><img src="images/h_trsp_dot.gif" width="10" height="30"></td>

                  <td nowrap width="1%">&nbsp; </td>

                  <td width="1%" nowrap class="form_group" valign="bottom"></td>

                  <td nowrap width="100%">&nbsp;</td>

                  <td nowrap width="1%">&nbsp; </td>

               </tr>

                  <td nowrap width="100%">&nbsp;</td>

               <tr>

               </tr>

                  <td>&nbsp;</td>

               <tr>

                  <td nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Package</td>

                  <td>&nbsp;</td>

                  <td nowrap background="images/bg_form_lightbluedark.gif" class="form_txt"><%=objFormCollector.Item("pkg_name") &" "& objFormCollector.Item("pkg_version")%></td>