Subversion Repositories DevTools

<%

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

'                 NEW VERSION

'                      PAGE

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

%>

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

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

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

<script language="JavaScript" src="scripts/remote_scripting.js"></script>

<script type="text/javascript" src="scripts/json2.js"></script>

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

<!-- TIPS -->

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

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

formTips.tips.BuildType = stdTip(200, 'Build Type',

                                 'Auto Build packages are built by the VIX build daemons for release. ' +

                                 'Manually built packages will not be built by the build daemons.'+

                                 '<p>Manually built packages are very rare and not available to most developers');

formTips.tips.ChangeType = stdTip(200, 'Version Number Assignment',

                                  'Auto: The build system will determine the version number based on the Change Type' +

                                  '<p>Manual: The user specifies the version number to be used');

formTips.tips.Licence = stdTip(250, 'Software Licence',

                                 'All 3rd party software MUST be identifed. ');

</script>

<%

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

Dim parPv_id

Dim rsLocRel

Dim parPage_title

Dim objPkgInfo

Dim rsTemp2

Dim rsLatest

Dim aVersions

Dim lastRow, i

Dim objSortHelper

Dim newPackage

Dim majorState

Dim minorState

Dim patchState

Dim parBase_view_id

Dim verNumber

Dim parPkgName

Dim parRename

Dim rFile

Dim disableBuildType

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

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

Sub GetPackageInfo( nPvId, outPkgInfo )

   Dim rsTemp, Query_String

   If (IsEmpty(nPvId) OR newPackage > 0) Then Exit Sub

   Query_String = _

   " SELECT pv.pv_id, pkg.pkg_id, pkg.pkg_name, pv.pkg_version, pv.v_ext, pv.change_type, pv.build_type, pv.is_patch"&_

   "  FROM packages pkg, package_versions pv"&_

   " WHERE pkg.pkg_id = pv.pkg_id  AND pv.pv_id ="& nPvId

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

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

      outPkgInfo.Item("pv_id") = rsTemp.Fields("pv_id")

      outPkgInfo.Item("pkg_id") = rsTemp.Fields("pkg_id")

      outPkgInfo.Item("pkg_name") = rsTemp.Fields("pkg_name")

      outPkgInfo.Item("pkg_version") = rsTemp.Fields("pkg_version")

      outPkgInfo.Item("change_type") = rsTemp.Fields("change_type")

      outPkgInfo.Item("build_type") = rsTemp.Fields("build_type")

      If rsTemp.Fields("is_patch") = "Y" Then

        outPkgInfo.Item("is_patch") = "true"

      Else

        outPkgInfo.Item("is_patch") = "false"

      End If

      if rsTemp.Fields("v_ext") <> "" Then

        outPkgInfo.Item("v_ext") = rsTemp.Fields("v_ext")

      Else

        outPkgInfo.Item("v_ext") = ""

      End If

   End If

   rsTemp.Close

   Set rsTemp = nothing

End Sub

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

Function Get_Latest_All_Ext ( NNpkg_id, nPv_id )

	Get_Latest_All_Ext = _

	" SELECT pv.pkg_version, pv.dlocked,"&_

	"        DECODE ( pv.pv_id, "& nPv_id &", 'selected', NULL ) AS selected"&_

	"    FROM PACKAGES pkg, package_versions pv"&_

	"   WHERE pkg.pkg_id = pv.pkg_id  AND  pkg.pkg_id = "& NNpkg_id

End Function

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

' Returns TRUE if the specified version has a COTS extension

' Really determines if the extension has to be strict Major.Minor.PatchBuild

' or is allowed to be more relaxes. As in COTS and TOOL packages.

'

' Read from the database to determine type

' If we cannot determine the project suffix then assume the worst

'

Function HasCotsExtension(aExt)

   Dim rsQry, Query_String

   HasCotsExtension = FALSE

   if aExt <> "" Then

       Query_String = "SELECT EXT_NAME FROM PROJECT_EXTENTIONS pe WHERE " &_

                      "pe.IS_COTS='Y' AND pe.EXT_NAME='" & LCase(aExt) & "'"

       Set rsQry = OraDatabase.DbCreateDynaset( Query_String, ORADYN_DEFAULT )

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

           HasCotsExtension = TRUE

       End If

       rsQry.Close

   Else

       HasCotsExtension = TRUE

   end If

   Set rsQry = Nothing

End Function

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

'Returns TRUE if the specified version has a patch-build number.

Function HasPatchBuildNumber(aversion)

   'test for a version with a patch build number, ie a dot and at least 4 digits before the extenstion.

   Dim re: Set re = New RegExp

   re.Pattern = "\.\d{4,}\.[^\.]+$"

   HasPatchBuildNumber = re.Test(aversion)

   Set re = Nothing      

End Function

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

'Returns TRUE if the specified version has a well formed version number

Function HasWellFormedVersion(aversion)

   'If a package has a major.minor.patch-build number then it is well formed

   Dim re: Set re = New RegExp

   re.Pattern = "^\d+\.\d+\.\d{4,}\.[^\.]+$"

   HasWellFormedVersion = re.Test(aversion)

   Set re = Nothing      

End Function

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

Sub Get_All_Licences ( NNnewlicence_id )

   Dim rsTemp, Query_String, selected

   Response.write "<option value='-1' >"& "100% Vix Developed" &"</option>"

   Query_String = _

   "   SELECT licence, name"&_

   "     FROM licences "&_

   "    ORDER BY name ASC"

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

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

      selected = ""

      If NNnewlicence_id = Cstr( rsTemp.Fields("name")) Then

          selected = " selected"

      End If

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

      rsTemp.MoveNext

   WEnd

   rsTemp.Close

   Set rsTemp = nothing

End Sub

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

Sub Get_All_Base_Views ( NNnewgroup_id )

   Dim rsTemp, Query_String

   Query_String = _

   "   SELECT vi.view_id, vi.view_name "&_

   "     FROM views vi "&_

   "    WHERE UPPER(vi.base_view) = 'Y'"&_

   "    ORDER BY vi.view_name ASC"

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

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

      If NNnewgroup_id = Cstr( rsTemp.Fields("view_id")) Then

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

      Else

         Response.write "<option value='"& rsTemp("view_id") &"'>" & rsTemp("view_name") &"</option>"

      End If

      rsTemp.MoveNext

   WEnd

   rsTemp.Close

   Set rsTemp = nothing

End Sub

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

Sub Get_All_Personal_Views ( NNuser_id )

   Dim rsTemp, Query_String

   If NNuser_id = "" Then Exit Sub

   Query_String = _

   " SELECT vi.view_id, vi.view_name"&_

   "  FROM view_settings vs,"&_

   "       views vi"&_

   " WHERE vs.view_id = vi.view_id"&_

   "   AND vs.user_id = vi.owner_id  "&_

   "   AND vs.user_id = "& NNuser_id &_

   "   AND vi.base_view = 'N'"&_

   " ORDER BY UPPER(vi.view_name)"

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

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

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

      rsTemp.MoveNext

   WEnd

   rsTemp.Close

   Set rsTemp = nothing

End Sub

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

%>

<%

'===================== MAIN LINE ============================

Dim bDisableAuto, bPatchOnly, bIsCots, bIsAuto

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

parPv_id = QStrPar("pv_id")

parBase_view_id = Request("base_view_id")

parPkgName = QStrPar("pkgName")

parRename = QStrPar("renameMode")

rFile = QStrPar("rFile")

If IsEmpty(rFile) OR rFile = "" Then

    rFile="dependencies.asp"

End If

newPackage = 0

parPage_title = "NEW VERSION"

If ( parPkgName <> "" ) Then

    newPackage = 1

    parPv_id = NULL

End if

majorState = ""

minorState = ""

patchState = "checked"

' The build_type will be displayed but not enabled unless the user

' is allowed to created manually built packages

disableBuildType = FALSE

If parRename <> "" OR NOT canActionControlInProject("ApproveForManualBuild") Then

    disableBuildType = TRUE

End If

Set objPkgInfo = CreateObject("Scripting.Dictionary")

If parRename <> "" Then

    If parRename <> 2 Then

        parPage_title = "RENAME VERSION"

    Else

        parPage_title = "VERSION CHANGE TYPE"

    End If

    ' Package already exists

    Call GetPackageInfo( parPv_id, objPkgInfo )

    parPkgName = objPkgInfo.Item("pkg_name")

    ' Extract version number without extension

    verNumber = objPkgInfo.Item("pkg_version")

    verNumber = Mid( verNumber,1, Len(verNumber) - Len(objPkgInfo.Item("v_ext")))

    bIsCots = HasCotsExtension(objPkgInfo.Item("v_ext"))

    'Disable the "Auto" build option if the package is a COTS package and the version doesn't have a patch-build number.

    bDisableAuto = bIsCots and not HasPatchBuildNumber(objPkgInfo.Item("pkg_version"))

    'Enable only the "Patch Change" option if the package is a COTS package and the version has a patch-build number.

    bPatchOnly = bIsCots and not HasWellFormedVersion(objPkgInfo.Item("pkg_version")) and HasPatchBuildNumber(objPkgInfo.Item("pkg_version"))

    ' Use existing change type and build type

    bIsAuto = objPkgInfo.Item("change_type") <> "F" AND NOT bDisableAuto

    majorState = ""

    minorState = ""

    patchState = ""

    If objPkgInfo.Item("change_type") = "M" Then

        majorState = "checked"

    ElseIf objPkgInfo.Item("change_type") = "N" Then

        minorState = "checked"

    Else

        patchState = "checked"

    End If

ElseIf NOT (newPackage > 0 ) Then

    ' Package already exists

    ' Creating a new Version of an existing Package

    '   Set build_type to Auto - New Versions start in Auto

    Call GetPackageInfo( parPv_id, objPkgInfo )

    objPkgInfo.Item("build_type") = "A"

    parPkgName = objPkgInfo.Item("pkg_name")

    ' Extract version number without extension

    verNumber = objPkgInfo.Item("pkg_version")

    verNumber = Mid( verNumber,1, Len(verNumber) - Len(objPkgInfo.Item("v_ext")))

    bIsCots = HasCotsExtension(objPkgInfo.Item("v_ext"))

    'Disable the "Auto" build option if the package is a COTS package and the version doesn't have a patch-build number.

    bDisableAuto = bIsCots and not HasPatchBuildNumber(objPkgInfo.Item("pkg_version"))

    'Enable only the "Patch Change" option if the package is a COTS package and the version has a patch-build number.

    bPatchOnly = bIsCots and not HasWellFormedVersion(objPkgInfo.Item("pkg_version")) and HasPatchBuildNumber(objPkgInfo.Item("pkg_version"))

    'if "Auto" build option is disabled then select the Manual option

    bIsAuto = NOT bDisableAuto

Else

    ' If New Package and First version

    parPage_title = "NEW PACKAGE and FIRST VERSION"

    bIsCots = FALSE

    bDisableAuto = FALSE

    bPatchOnly = FALSE

    bIsAuto = TRUE

    majorState = "checked"

    minorState = ""

    patchState = ""

    verNumber = "1.0.0000"

    objPkgInfo.Item("is_patch") = "false"

End If

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

%>

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

<!--

var savedVersion;

var fieldError;

var checkMode;

window.onload = function(e)

{

   // Init checking mode

   //   0 - Checking options one at a time

   //       Clear Error display before checking

   //

   //   1 - Checking before submit

   //       Accumulate error messages

   //

   checkMode = 0;

   savedVersion = "<%=verNumber%>";

   document.getElementById('FRvnumber').value = savedVersion;

   // Init the Build Type

   // Will be disabled for Rename or User cannot create Manually Built Packages

   //

   changeToAutoBuild('<%=objPkgInfo.Item("build_type")%>');

   <%If disableBuildType Then%>

   changeToAutoBuild('D');

   <% End If %>

   var isAutobuild = document.NEWversion.version_type[0].checked;

   if (!isAutobuild)

   {

      changeToManualVersionNumberAssignment();

   }

   else

   {

      changeToAutoVersionNumberAssignment();

   }

   updateCopyButton();

   checkPackage();

   checkBaseView();

   checkLicence();

   // Hide error message

   setIdText('eMessage','');

}

function setIdText(id, text) {

    var element = document.getElementById(id);

    if ( element ) {

    while (element.firstChild!==null)

        element.removeChild(element.firstChild); // remove all existing content

    element.appendChild(document.createTextNode(text));

    }

}

//////////////////////////////////////////////////////////////////

// Function: changeToAutoVersionNumberAssignment

//

// Purpose: Hide the relevant sections of the form

//

function changeToAutoVersionNumberAssignment()

{

   document.getElementById('change_type1').style.display = 'table-row';

   //document.getElementById('pkgver').style.display = 'none';

   savedVersion = document.getElementById('FRvnumber').value;

   document.getElementById('FRvnumber').disabled = true;

   <%If NOT newPackage > 0 Then%>

   document.getElementById('FRuseVersion').style.visibility = 'hidden';

   <%End If%>

   document.getElementById('FRvnumber').value = '(auto)';

   checkVersionNumber();

}

//////////////////////////////////////////////////////////////////

// Function: changeToManualVersionNumberAssignment

//

// Purpose: Show the relevant sections of the form

//

function changeToManualVersionNumberAssignment()

{

   document.getElementById('change_type1').style.display = 'none';

   //document.getElementById('pkgver').style.display = 'table-row';

   document.getElementById('FRvnumber').disabled = false;

   <%If NOT newPackage > 0 Then%>

   document.getElementById('FRuseVersion').style.visibility = 'visible';

   <%End If%>

   if ( savedVersion.indexOf('(') != 0) {

       document.getElementById('FRvnumber').value = savedVersion;

   } else {

       document.getElementById('FRvnumber').value = "";

   }

   checkVersionNumber();

}

//////////////////////////////////////////////////////////////////

// Function: changeToAutoBuild

//

// Purpose: Maintain the Manual Auto Build state

//

var changeToAutoBuildData = new Array;

function changeToAutoBuild (mode)

{

    //  Set to Disable Mode

    //      Display only - no editing allowed

    if (mode == 'D')

    {

        document.NEWversion['build_type_M'].disabled = true;

        document.NEWversion['build_type_A'].disabled = true;

    }

    //  Set to Manual

    //      Remember current version_type

    //      Force version_type to manual

    //      Disable ability to set auto version type

    if (mode == 'M')

   {

       changeToAutoBuildData['M'] =  document.NEWversion['version_type_M'].checked;

       changeToAutoBuildData['A'] =  document.NEWversion['version_type_A'].checked;

       document.NEWversion['build_type_M'].checked = true;

       document.all['build_type'].value = 'M';

       document.NEWversion['version_type_M'].checked = true;

       document.NEWversion['version_type_A'].disabled = true;

       changeToManualVersionNumberAssignment();

   }

    //  Set to Auto

    //      Enable auto version_type

    //      Restore version type to previous value

   if (mode == 'A')

   {

       document.NEWversion['build_type_A'].checked = true;

       document.NEWversion['version_type_A'].disabled = false;

       document.all['build_type'].value = 'A';

       if (typeof changeToAutoBuildData['M'] != 'undefined')

       {

           document.NEWversion['version_type_M'].checked = changeToAutoBuildData['M'];

           document.NEWversion['version_type_A'].checked = changeToAutoBuildData['A'];

           if (document.NEWversion['version_type_M'].checked)

           {

               changeToManualVersionNumberAssignment();

           }

           else

           {

               changeToAutoVersionNumberAssignment();

           }

       }

   }

}

//////////////////////////////////////////////////////////////////

//  Function: updateCopyButton

//  Args:     data - New data value

function updateCopyButton ()

{

    var e = document.getElementById("FRpkgver");

    var el = document.getElementById('FRuseVersion');

    if (e && el)

    {

        var data = e.value;

        el.disabled = (data.indexOf('(') == 0)

    }

}

//////////////////////////////////////////////////////////////////

// Function: useVersion

//

// Purpose: Insert current version ino the version field

//          Attached to: FRuseVersion

//

function useVersion()

{

    var e = document.getElementById("FRpkgver");

    if (e)

    {

        var strUser = e.value;

        if ( strUser.indexOf('(') != 0)

        {

            var patt = /\.[a-z]{1,4}$/i;

            strUser = strUser.replace(patt,'');

            document.getElementById('FRvnumber').value = strUser;

            checkVersionNumber();

        }

    }

}

//////////////////////////////////////////////////////////////////

// Function: checkPackage

//

// Purpose: 

//

function checkPackage()

{

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

    if ( f.newPackage.value > 0 )

    {

        reseteMessage();

        MM_validateForm("--Silent",'FRpkgName','Package Name','RisPackage');

        checkPackageHighlight( ! document.MM_returnValue, 'Name well formed', 'Invalid Characters in name');

        if ( ! document.MM_returnValue ) return;

        xmlHttp=GetXmlHttpObject(checkPackageDone);

        if (xmlHttp==null)

        {

          alert ("Your browser does not support AJAX!");

          return;

        }

        var url = "_json_checkPackage.asp?"

                + "packageName=" + document.getElementById('FRpkgName').value

                + "&Opr=checkName";

        MM_showProgressBar();

        xmlHttp.open("GET",url,false);  // `false` makes the request synchronous

        xmlHttp.send(null);

    }

}

function checkPackageDone()

{

    //readyState of 4 or 'complete' represents that data has been returned

    if (xmlHttp.readyState == 4 || xmlHttp.readyState == 'complete'){

        //Gather the results from the callback

        var str = xmlHttp.responseText;

        try {

            var myJson = JSON.parse(str);

            checkPackageHighlight( myJson.result != 0, 'Name is unused', 'Package Exists');

        }

        catch(e) {

            checkPackageHighlight( 1, '','Error in AJAX operation');

        }

        MM_hideProgressBar();

    }

}

function checkPackageHighlight(v, msggood, msgbad)

{

    if (v)

    {

        setIdText('cpError',msgbad);

        addClass(document.getElementById('FRpkgName'), 'form_error' );

        showeMessage(document.MM_error);

        fieldError = true;

    }

    else

    {

        setIdText('cpError',msggood);

        removeClass(document.getElementById('FRpkgName'), 'form_error' );

    }

}

function checkBaseView()

{

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

    if ( f.newPackage.value > 0 )

    {

        reseteMessage();

        MM_validateForm("--Silent",'base_view_id','Base View','R');

        if ( ! document.MM_returnValue )

        {

            addClass(document.getElementById('base_view_id'), 'form_error' );

            setIdText('bvError','Required');

            fieldError = true;

        }

        else

        {

            removeClass(document.getElementById('base_view_id'), 'form_error' );

            setIdText('bvError','');

        }

    }

}

function checkLicence()

{

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

    if ( f.newPackage.value > 0 )

    {

        reseteMessage();

        MM_validateForm("--Silent",'licence_id','Licence','R');

        if ( ! document.MM_returnValue )

        {

            addClass(document.getElementById('licence_id'), 'form_error' );

            setIdText('liError','Required');

            fieldError = true;

        }

        else

        {

            removeClass(document.getElementById('licence_id'), 'form_error' );

            setIdText('liError','');

        }

    }

}

function checkVersionNumber()

{

   reseteMessage();

   if (document.NEWversion.version_type[0].checked)

   {

        removeClass(document.getElementById('FRvnumber'), 'form_error' );

        setIdText('vnError','');

        var versionExt = document.all['v_ext'].value;

        document.all['FRnewver'].value = versionExt;

   }

   else

   {

        // Get Full version - store into hidden field processing

        var versionExt = document.all['v_ext'].value;

        var versionBase = document.all['FRvnumber'].value;

        document.all['FRnewver'].value = versionBase + versionExt;

        // check the version number is good

        MM_validateForm("--Silent",{vBase:versionBase, vExt:versionExt, isPatch:<%=objPkgInfo.Item("is_patch")%>},'Version Number','RisVersionNumber');

        if ( ! document.MM_returnValue )

        {

            addClass(document.getElementById('FRvnumber'), 'form_error' );

            setIdText('vnError','Invalid form');

            showeMessage(document.MM_error);

            fieldError = true;

            return;

        }

        xmlHttp=GetXmlHttpObject(checkVersionExistsDone);

        if (xmlHttp==null)

        {

            alert ("Your browser does not support AJAX!");

            return;

        }

        var url = "_json_checkPackage.asp?"

                + "packageName=" + document.getElementById('FRpkgName').value

                + "&Version=" + document.all['FRvnumber'].value + document.all['v_ext'].value

                + "&Opr=checkVer";

        MM_showProgressBar();

        xmlHttp.open("GET",url,false);  // `false` makes the request synchronous

        xmlHttp.send(null);

    }

}

function checkVersionExistsDone()

{

    //readyState of 4 or 'complete' represents that data has been returned

    if (xmlHttp.readyState == 4 || xmlHttp.readyState == 'complete'){

        //Gather the results from the callback

        var myJson;

        var str = xmlHttp.responseText;

        try {

            myJson = JSON.parse(str);

        }

        catch(e) {

            myJson = {};

            myJson.error = 2;

            myJson.emsgSummary = e.message;

            myJson.SqlQry = '';

        }

        if(myJson.error)

        {

            addClass(document.getElementById('FRvnumber'), 'form_error' );

            setIdText('vnError','Error in AJAX operation');

            showeMessage(myJson.emsgSummary);

            fieldError = true;

        }

        else if(myJson.result != 0)

        {

            addClass(document.getElementById('FRvnumber'), 'form_error' );

            setIdText('vnError','Exists');

            showeMessage('Version already exists');

            fieldError = true;

        }

        else

        {

            removeClass(document.getElementById('FRvnumber'), 'form_error' );

            setIdText('vnError','');

        }

        MM_hideProgressBar();

    }

}

function checkReason()

{

   reseteMessage();

    MM_validateForm("--Silent",'FRreason','Reason for This Version','maxLength:4000');

    if ( ! document.MM_returnValue )

    {

        addClass(document.getElementById('FRreason'), 'form_error' );

        //setIdText('frError','Too Long');

        showeMessage(document.MM_error);

        fieldError = true;

    }

    else

    {

        removeClass(document.getElementById('FRreason'), 'form_error' );

        //setIdText('frError','');

    }

}

function getCheckedRadio(radio_group) {

    for (var i = 0; i < radio_group.length; i++) {

        var button = radio_group[i];

        if (button.checked) {

            return button;

        }

    }

    return undefined;

}

<%If parRename <> "" Then%>

function updateVersionInfo()

{

   reseteMessage();

    xmlHttp=GetXmlHttpObject(updateVersionInfoDone);

    if (xmlHttp==null)

    {

        alert ("Your browser does not support AJAX!");

        return;

    }

    var url = "_json_updateVersion.asp?"

            + "packageName=" + document.getElementById('FRpkgName').value

            + "&Version=" + document.all['FRvnumber'].value + document.all['v_ext'].value

            + "&buildType=" + document.all['build_type'].value

            + "&changeType=" + document.all['change_type'].value

            + "&rtagId=" + document.all['rtag_id'].value

            + "&pvId=" + document.all['OLDpv_id'].value

            + "&vExt=" + document.all['v_ext'].value

            + "&Opr=updateVer";

    MM_showProgressBar();

    xmlHttp.open("GET",url,false);          // `false` makes the request synchronous

    xmlHttp.send(null);

}

function updateVersionInfoDone()

{

    //readyState of 4 or 'complete' represents that data has been returned

    if (xmlHttp.readyState == 4 || xmlHttp.readyState == 'complete'){

        //Gather the results from the callback

        var myJson;

        var str = xmlHttp.responseText;

//alert("Results:" + str);

        try {

            myJson = JSON.parse(str);

        }

        catch(e) {

            myJson = {};

            myJson.error = 2;

            myJson.emsgDetails = e.message;

            myJson.SqlQry = '';

        }

        if(myJson.error)

        {

            showeMessage(myJson.emsgDetails);

            fieldError = true;

        }

        else if(myJson.result != 0)

        {

            showeMessage('Error changing version number');

            fieldError = true;

        }

        MM_hideProgressBar();

    }

}

<%End If%>

function reseteMessage()

{

    if (checkMode == 0 )

    {

        setIdText('eMessage','');

    }

}

function showeMessage(msg)

{

    var omsg, elem;

    if (checkMode == 1 )

    {

        elem = document.getElementById("eMessage");

        omsg = elem.textContent || elem.innerText;

        if ( (typeof osmg != 'undefined') && omsg.length > 0 )

            omsg += '\n';

    }

    else

    {

        omsg = "";

    }

    omsg += msg;

    setIdText('eMessage',omsg);

}

// Do not remove these next few lines, otherwise the page does not load properly in Microsoft IE.

//-->

</script>

<script>

function Dependency()

{

<%If parRename <> "" Then%>

   parent.window.close();

<%ElseIf newPackage > 0 Then%>

   parent.window.location.href="<%=rFile%>?rtag_id=<%=parRtag_id%>";

<%Else%>

   parent.window.location.href="<%=rFile%>?rtag_id=<%=parRtag_id%>&pv_id=<%=parPv_id%>";

<%End If%>

}

////////////////////////////////////////////////////////////////////////////////////////////////////////

// This function returns true if form validation passes, else false

// It is called when a user hits the submit button.

////////////////////////////////////////////////////////////////////////////////////////////////////////

function validateFormNEWversion()

{

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

    if (f == null)

        vixAlert('Internal Error<p>Failed To Get NEWversion');   // should never happen unless a coding/rendering mistake is made?

    else

    {

        setIdText('eMessage','');

        fieldError = false;

        checkMode = 1;

        checkPackage();

        checkBaseView();

        checkLicence();

        checkVersionNumber();

        <%If NOT parRename <> "" Then%>

        checkReason();

        <%End If%>

        if (!fieldError)

        {

            //  Export the change_type field in a sanitised form

            var ct = getCheckedRadio(document.forms.NEWversion.elements.change_type1).value;

            if(!document.NEWversion.version_type[0].checked) ct = 'F';

            document.all['change_type'].value = ct;

            MM_showProgressBar();

            <%If parRename <> "" Then%>

                updateVersionInfo();

                if (!fieldError)

                {

                    parent.window.close();

                    window.opener.document.location='<%=rFile%>?rtag_id=<%=parRtag_id%>&pv_id=<%=parPv_id%>';

                    return true;

                }

            <%Else%>

                f.action='_new_version.asp';

                parent.window.location.href='<%=rFile%>?rtag_id=<%=parRtag_id%>&pv_id=<%=parPv_id%>';

                return true;

            <%End If%>

        }

    }

    // Hide progress bar that is exposed because the previous tests were OK

    MM_hideProgressBar();

    checkMode = 0;

    return false;

}

</script>

<table width="650" border="0" cellspacing="0" cellpadding="0">

   <tr>

      <td>

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

            <tr>

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

               <td align="right"><img src="images/h_trsp_dot.gif" width="30" height="30"></td>

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

            </tr>

            <tr>

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

               <td>

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

                     <tr>

                        <td nowrap class="form_ttl"><%=parPage_title%></td>

                        <td align="right" valign="bottom">

                           <!-- TABS -->

                            

                        </td>

                     </tr>

                  </table>

               </td>

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

            </tr>

            <tr>

               <td align="left" valign="top" width="1%" background="images/lbox_bg_blue.gif"><img src="images/lbox_tl_cnr_b.gif" width="13" height="13"></td>

               <td background="images/lbox_bg_blue.gif"><!-- Heading --><img src="images/h_trsp_dot.gif" width="1" height="20"><!-- END Heading --></td>

               <td align="right" valign="top" width="1%" background="images/lbox_bg_blue.gif"><img src="images/lbox_tr_cnr_b.gif" width="13" height="13"></td>

            </tr>

            <tr>

               <td width="1%" bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="100"></td>

               <td bgcolor="#FFFFFF" valign="top">

                  <!-- Body -->

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

                     <form id="NEWversion"  name="NEWversion" method="post">

                        <tr>

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

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

                           <td nowrap width="100%" align="right" class="form_step"></td>

                        </tr>

                        <tr>

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

                           <td colspan="2" width="1%" nowrap class="form_field">

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

                                 <!-- Package Name -->

                                 <tr>

                                    <td background="images/bg_form_lightbluedark.gif" width="20%" class="form_field">Package Name</td>

                                   <% if newPackage > 0 Then %>

                                        <td background="images/bg_form_lightgray.gif" class="form_item">

                                          <input type="text" id="FRpkgName" name="FRpkgName" class="form_item" size="40" value="<%=parPkgName%>" onBlur="checkPackage()">

                                          <span id="cpError"></span>

                                        </td>

                                    <% Else %>

                                        <td background="images/bg_form_lightgray.gif" class="form_field"><%=parPkgName%></td>

                                    <% End If %>

                                 </tr>

                                 <!--Base View -------------->

                                 <% if newPackage > 0 Then %>

                                    <tr>

                                        <td background="images/bg_form_lightbluedark.gif" width="20%" class="form_field">To Base View</td>

                                        <td colspan="2" width="1%" nowrap background="images/bg_form_lightgray.gif" class="form_item">

                                           <select name="base_view_id" id="base_view_id" class="form_item" onBlur="checkBaseView()">

                                              <option></option>

                                              <%Call Get_All_Base_Views(parBase_view_id)%>

                                           </select>