Subversion Repositories DevTools

<%

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

'   _environment.asp

'   Build Environment

'   Generate the left-hand panel for pages that show Release Content

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

%>

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

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

<%

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

Dim parOLshow     ' show/hide outer-latest

Dim parBshow      ' expand/collapse base views

Dim parPshow      ' expand/collapse personal views

Dim parPview      ' enable/disable all personal views

Dim parDview      ' enable/disable   deployment   view.

Dim hasPview      ' Has Personal View

Dim IMG_locked

Dim rsEnvQry

Dim pvIdInList

Dim checked

Dim disabled

Dim pkgType

Dim SCRIPT_NAME 'Use this here only as the previous one ScriptName is Already Defined

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

Const imgMaximise  = "<IMG src='images/i_maximise.gif' alt='Show view contents.' width=13 height=13 hspace='2' vspace='1' border='0'>"

Const imgMinimise  = "<IMG src='images/i_minimise.gif' alt='Hide view contents.' width=13 height=13 hspace='2' vspace='1' border='0'>"

Const imgForced    = "<img src='images/s_forced.gif' width='19' height='17' align='absmiddle'>"

Const imgLocked    = "<img src='images/i_locked.gif' width='7' height='10' border='0' hspace='2'>"

Const hlColor      = "#DDDDDD"

Const imgAdded     = "<img src='images/i_added.gif' width='11' height='11' border='0' hspace='5' align='absmiddle' title='To Be Added'>"

Const imgRemoved   = "<img src='images/i_removed.gif' width='11' height='11' border='0' hspace='5' align='absmiddle' title='To Be Removed'>"

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

parOLshow = QStrPar("OLshow")

parBshow = QStrPar("Bshow")

parPshow = QStrPar("Pshow")

parPview = QStrPar("Pview")

parDview = QStrPar("Dview")

hasPview = hasPersonalViews()

If NOT hasPview  Then parPview = "disable"

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

%>

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

<!--

var is_ie = (navigator.userAgent.indexOf('MSIE') >= 0) ? 1 : 0;

var is_ie5 = (navigator.appVersion.indexOf("MSIE 5.5")!=-1) ? 1 : 0;

var is_opera = ((navigator.userAgent.indexOf("Opera6")!=-1)||(navigator.userAgent.indexOf("Opera/6")!=-1)) ? 1 : 0;

    //netscape, safari, mozilla behave the same???

var is_netscape = (navigator.userAgent.indexOf('Netscape') >= 0) ? 1 : 0;

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

//  Function:       toggletick    

//  Description:    This function will toggle all visible (pending) tick boxes 

//  Input:          te  - Controlling element

//

function toggletick(te)

{

    // Get the form containing all of the pending items

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

    if (f == null ) {

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

    } else {

       if (f.pv_id_list != null) {

           if (f.length == 1 || typeof f.pv_id_list.length == "undefined") {

              if (false == f.pv_id_list.disabled) {

                 f.pv_id_list.checked = te.checked;

              }

           } else {

              for (n = 0; n < f.pv_id_list.length; n++) {

                 if (false == f.pv_id_list[n].disabled) {

                    f.pv_id_list[n].checked = te.checked;

                 }

              }

           }

       }

    }

}

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

//  Function:       countBulkItems

//  Description:    Determine the number of bulk ticked items

//                  These are suiable and enabled items

//  Input:          f - Form element to process

//

function countBulkItems(f)

{

    var n;

    var numCheckedAndEnabled = 0;

    var numUncheckedAndEnabled = 0;

    // Unbelievably, if the form has just one single PV_ID checkbox item, the syntax via which we access it

    // has to change. We cannot use array access syntax in such a case.

    if (f.length == 1 || typeof f.pv_id_list.length == "undefined")

    {

       if (f.pv_id_list.value != null)

       {

          if (false == f.pv_id_list.disabled)

          {

             if (true == f.pv_id_list.checked)

                numCheckedAndEnabled++;

             else

                numUncheckedAndEnabled++;

          }

       }

    }

    else

    {

       // Here we can and have to use array access syntax.

       for (n = 0; n < f.pv_id_list.length; n++)

       {

          if (false == f.pv_id_list[n].disabled)

          {

             if (true == f.pv_id_list[n].checked)

                numCheckedAndEnabled++;

             else

                numUncheckedAndEnabled++;

          }

       }

    }

    return numCheckedAndEnabled;

}

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

// This function is executed when the Bulk Release action button is pressed. It will do some local

// client side checks and then if all is well, it will use the make_bulk_release.asp to initiate

// the bulk release process on the server side.

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

function makeBulkRelease()

{

    // Get the form containing all of the pending items

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

    if (f == null)

    {

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

        return;

    }

    // When no items exist in the pending tab, the pending_PVID_List form will not contain any

    // element called pv_id_list, so it will be null. Check for that and issue an alert as appropriate.

    if (f.pv_id_list == null)

    {

        vixAlert('There are no items pending that can be considered for bulk release.' +

               '<p>Use the Bulk Release button when items with checkboxes are present in the Pending Tab.');

        return;

    }

    var numCheckedAndEnabled = countBulkItems(f);

    if (numCheckedAndEnabled == 0)

    {

        vixAlert('Currently, there are no items that can be bulk released.' +

                   '<p>Select items to be released before using the Bulk Release button');

        return;

    }

     vixConfirm('Release all ('+numCheckedAndEnabled+') checked items from the Pending List.', {

        title : 'Confirm Bulk Release',

        button : 'Release',

        ok : function(){

            // Initiate the bulk release by redirecting the browser to the make_bulk_release.asp page

            // which holds the server side VBScript code that actually carries out the release operations.

            // Once complete, that code will redirect the browser back to the dependencies.asp page of which

            // this _environment.asp file is a part (by direct inclusion)

            <%If Request("pv_id") <> "" Then%>

               f.action = "make_bulk_release.asp?pv_id=<%=Request("pv_id")%>&rtag_id=<%=parRtag_id%>";

            <%Else%>

               f.action = "make_bulk_release.asp?rtag_id=<%=parRtag_id%>";

            <%End If%>

            f.submit();

            // TODO : I would like to show progress? Is that even possible? If so, how?

        }

    });

}

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

// This function is executed when the Bulk Remove action button is pressed. It will do some local

// client side checks and then if all is well, it will use the make_bulk_remove.asp to initiate

// the bulk remove process on the server side.

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

function makeBulkReject()

{

   // Get the form containing all of the pending items

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

   if (f == null)

   {

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

       return;

   }

    // When no items exist in the pending tab, the pending_PVID_List form will not contain any

    // element called pv_id_list, so it will be null. Check for that and issue an alert as appropriate.

    if (f.pv_id_list == null)

    {

        vixAlert('There are no items pending that can be considered for Bulk Rejection.' +

                   '<p>Use the Bulk Reject button when items with checkboxes are present in the Pending Tab.');

        return;

    }

     var numCheckedAndEnabled = countBulkItems(f);

     if (numCheckedAndEnabled == 0)

     {

         vixAlert('Currently, there are no items that can be Bulk Rejected.' +

               '<p>Select items to be released before using the Bulk Reject button');

         return;

     }

     vixConfirm('Reject all ('+numCheckedAndEnabled+') checked items from the Pending List.',{

        title : 'Confirm Bulk Reject',

        button : 'Reject',

        ok : function(){

                // Initiate the bulk remove by redirecting the browser to the make_bulk_remove.asp page

                // which holds the server side VBScript code that actually carries out the remove operations.

                // Once complete, that code will redirect the browser back to the dependencies.asp page of which

                // this _environment.asp file is a part (by direct inclusion)

                <%If Request("pv_id") <> "" Then%>

                   f.action = "make_bulk_reject.asp?pv_id=<%=Request("pv_id")%>&rtag_id=<%=parRtag_id%>";

                <%Else%>

                   f.action = "make_bulk_reject.asp?rtag_id=<%=parRtag_id%>";

                <%End If%>

                f.submit();

                // TODO : I would like to show progress? Is that even possible? If so, how?

            }

        });

}

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

//  Function:    openAllViews

//  Description: Open and Populate all Views

//               Views are populated via AJAX

//               Current scheme allows for one AJAX request to be outstanding

//               Have AJAX callback determine if there is more work to be done

//

var openingAllViews = 0;

function openAllViews()

{

    openingAllViews = 0;

    toggleAllViewsIcon(0);

    //if (event.shiftKey==1)

    //

    //  Locate first/next view to be expanded

    var divs = document.getElementsByTagName("div");

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

        var el = divs[i]; 

        var id = el.id;

        if (id.indexOf("ENVDIV") == 0)

        {

            var rowId = id.substr(6);

            if (el.innerHTML.indexOf('<%=enumLOADING%>') != -1)

            {

                openingAllViews = 1;

                RequestViewContent(rowId);

                return;

            } else if (el.style.display == 'none') {

               UpdateViewHeader(rowId, 0);

            }

        }

    }

}

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

//  Function:       closeAllViews

//  Description:    Close and forget about All Populated Views

//

function closeAllViews()

{

    openingAllViews = 0;

    toggleAllViewsIcon(0);

    //  Get the View cookie and convert it into a hash

    var vhash = new Object();

    var us = GetCookie('<%=COOKIE_RELMGR_SHOW_VIEW%>');

    if (us) {

        var aViewList = us.split(',');

        for (index=0; index < aViewList.length;++index) {

            vhash[aViewList[index]] = 1;

        }

    }

    //  Locate first/next view to be closed

    var divs = document.getElementsByTagName("div");

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

        var el = divs[i]; 

        var id = el.id;

        if (id.indexOf("ENVDIV") == 0)

        {

            var rowId = id.substr(6);

            if (el.innerHTML.indexOf('<%=enumLOADING%>') == -1)

            {

                UpdateViewHeader(rowId, 1);

                el.innerHTML = '<%=enumLOADING%>';

                // Delete from cookie too

                delete vhash[rowId];

            }

        }

    }

    //  Reform the cookie

    if (us)

    {

        us = Object.keys(vhash).join(',');

        // Store to cookie

        document.cookie = '<%=COOKIE_RELMGR_SHOW_VIEW%>' + '=' + us;

    }

}

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

//  Function:    toggleAllViewsIcon

//  Description: Update the toogleAllViews Icon

//  arg        : mode - 0 min, else max

//

function toggleAllViewsIcon(mode)

{

    //  Update image

    //      images/btn_min.gif 

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

    if (mode ) {

        f.src = 'images/btn_max.gif';

    } else {

        f.src = 'images/btn_min.gif';

    }

}

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

//  Function:    toggleAllViews

//  Description: Hide/Show all the expanded views

//               Will not change the saved list, just the current display

//

function toggleAllViews()

{

    var dmatch, dset;

    openingAllViews = 0;

    //  Update the icon image

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

    if (f.src.indexOf('min.gif') >= 0) {

        f.src = 'images/btn_max.gif';

        dmatch = 'block';

        dset = 'none';

    } else {

        f.src = 'images/btn_min.gif';

        dmatch = 'none';

        dset = 'block';

    }

    //  Locate first/next view to be toggled

    var divs = document.getElementsByTagName("div");

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

        var el = divs[i]; 

        var id = el.id;

        if (id.indexOf("ENVDIV") == 0)

        {

            if (el.innerHTML.indexOf('<%=enumLOADING%>') == -1) {

                var rowId = id.substr(6);

                if (el && el.style.display == dmatch ) {

                    el.style.display = dset;

                }

            }

        }

    }

}

function UpdateViewHeader(rowId, show)

{

    if ( show )

    {

       // View is currently minimised

       MM_findObj( 'ENVIMG'+ rowId ).src = 'images/btn_max.gif';

       MM_findObj( 'SPANVIEW'+ rowId ).style.color = '#808080';

       MM_findObj( 'ENVDIV'+ rowId ).style.display = 'none';

    }

    else

    {

       // View is currently maximised

       MM_findObj( 'ENVIMG'+ rowId ).src = 'images/btn_min.gif';

       MM_findObj( 'SPANVIEW'+ rowId ).style.color = '#000000';

       MM_findObj( 'ENVDIV'+ rowId ).style.display = 'block';

    }

}

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

//  Function:       RequestViewContent    

//  Description:    Maintain view content

//                  If View Tab is unpopulated - then populate it

//                  if View Tab is populated - then Minimise it

//  Arguments:      rowId   - Id if Row to Fetch

//

function RequestViewContent( rowId ){

   var requestURL = 'RequestViewContent.asp';

   var paramString = '?envtab=<%=nEnvTab%>&rtag_id=<%=parRtag_id%>&script_name=<%=ScriptName%>&view_id=' + rowId;

   // Change display states

   if ( (MM_findObj( 'ENVIMG'+ rowId ).src).indexOf('btn_max.gif') == -1 )

   {

      // View is currently minimised

      UpdateViewHeader(rowId, 1);    

      // Remove from SHow View List

      RemoveFromShowView ( rowId );

   }

   else

   {

      // View is currently maximised

      UpdateViewHeader(rowId, 0);

      // Add it to Show view id

      AddToShowView ( rowId );

   }

   // Fix div width for ie so it does not overflow

   if (is_ie)

   {

      MM_findObj( 'ENVDIV'+ rowId ).style.width = '100%';

   }

   // Set ajax divname

   ajaxdivname = 'ENVDIV'+ rowId;

   // Request data from server

   if ( (MM_findObj( ajaxdivname ).innerHTML).indexOf('<%=enumLOADING%>') != -1 )

   {

      //Append the name to search for to the requestURL

      var url = requestURL + paramString;

      //Create the xmlHttp object to use in the request

      //stateChangeHandler will fire when the state has changed, i.e. data is received back

      // This is non-blocking (asynchronous)

      xmlHttp = GetXmlHttpObject(stateChangeHandler);

      //Send the xmlHttp get to the specified url

      xmlHttp_Get(xmlHttp, url);

   }

}

function GetXmlHttpObject(handler) {

   var objXmlHttp = null;    //Holds the local xmlHTTP object instance

   //Depending on the browser, try to create the xmlHttp object

   if (is_ie){

      //The object to create depends on version of IE

      //If it isn't ie5, then default to the Msxml2.XMLHTTP object

      var strObjName = (is_ie5) ? 'Microsoft.XMLHTTP' : 'Msxml2.XMLHTTP';

      //Attempt to create the object

      try{

         objXmlHttp = new ActiveXObject(strObjName);

         objXmlHttp.onreadystatechange = handler;

      }

      catch(e){

      //Object creation errored

         alert('IE detected, but object could not be created. Verify that active scripting and activeX controls are enabled');

         return;

      }

   }

   else if (is_opera){

      //Opera has some issues with xmlHttp object functionality

      alert('Opera detected. The page may not behave as expected.');

      return;

   }

   else{

      // Mozilla | Netscape | Safari

      objXmlHttp = new XMLHttpRequest();

      objXmlHttp.onload = handler;

      objXmlHttp.onerror = handler;

   }

   //Return the instantiated object

   return objXmlHttp;

}

//stateChangeHandler will fire when the state has changed, i.e. data is received back

// This is non-blocking (asynchronous)

function stateChangeHandler()

{

   //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;

      //Populate the innerHTML of the div with the results

      document.getElementById(ajaxdivname).innerHTML = str;

   }

   //Cascade view opening

   if (openingAllViews) {

       openAllViews();

   }

}

// XMLHttp send GET request

function xmlHttp_Get(xmlhttp, url) {

   //Getting a permissions error here? Check the url string to

   // ensure it is accurate (defined above)

   xmlhttp.open('GET', url, true);

   xmlhttp.send(null);

}

function RemoveFromShowView ( ViewId )

{

   // Get current cookie settings

   var us = GetCookie('<%=COOKIE_RELMGR_SHOW_VIEW%>');

   var aShowViews = new Array();

   if (us)

   {

      // Cookie is not empty, hence just append new value

      var aViews = us.split(',');

      // Make sure that view is not already on the list

      for (i=0; i<aViews.length; i++)

      {

         if (aViews[i] != ViewId)

         {

            aShowViews.push(aViews[i]);

         }

      }

      // Make a new view list to be stored in cookie

      us = aShowViews.join(',');

   }

   else

   {

      us = '';

   }

   // Store to cookie

   document.cookie = '<%=COOKIE_RELMGR_SHOW_VIEW%>' + '=' + us;

}

function AddToShowView ( ViewId )

{

   // Get current cookie settings

   var us = GetCookie('<%=COOKIE_RELMGR_SHOW_VIEW%>');

   var aShowViews = new Array();

   //Release Manager Cookie Available on Show View

   if ( us )

   {

      // Cookie is not empty, hence just append new value

      var aViews = us.split(',');

      // Make sure that view is not already on the list

      for (i=0; i<aViews.length; i++)

      {

         if (aViews[i] != ViewId)

         {

            aShowViews.push(aViews[i]);

         }

      }

      // Make a new view list to be stored in cookie

      us = aShowViews.join(',') + ',' + ViewId;

   }

   else//Release Manager Cookie Not Available on Show View

   {

      // Cookie is empty, just add this value

      us = ViewId;

   }

   // Store to cookie

   document.cookie = '<%=COOKIE_RELMGR_SHOW_VIEW%>' + '=' + us;

}

<%If parRtag_id <> "" Then %>

//  Load dialog to add an SDK to the Release

function addSdk()

{

    $('#popmenu').load('_wform_reference_sdk.asp', {rtag_id : <%=parRtag_id%>});

}

<%End If %>

//-->

</script>

<%

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

Function GetEnvTab ( sEnvTab )

'   rmDebug = rmDebug & "Cookie[" & Request.Cookies(COOKIE_RELEASEMANAGER_MEMORY) &"] "

'   rmDebug = rmDebug & ", Arg[" & sEnvTab & "] "

   If sEnvTab <> "" Then

      GetEnvTab = sEnvTab

      Response.Cookies(COOKIE_RELEASEMANAGER_MEMORY)("envtab") = sEnvTab

   Else

      If Request.Cookies(COOKIE_RELEASEMANAGER_MEMORY)("envtab") <> "" Then

         GetEnvTab = Request.Cookies(COOKIE_RELEASEMANAGER_MEMORY)("envtab")

      Else

         GetEnvTab = enumENVTAB_WORK_IN_PROGRESS

         Response.Cookies(COOKIE_RELEASEMANAGER_MEMORY)("envtab") = enumENVTAB_WORK_IN_PROGRESS

      End If

   End If

'   rmDebug = rmDebug & ", GetEnvTab:" & GetEnvTab

End Function

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

Sub Display_Env_BaseView ( NNbase_view_id, SSbase_view, BBviewCollapsed, SScontents )

%>

<table width="100%"  border="0" cellspacing="0" cellpadding="0" style="border-radius: 3px;border-style: solid;border-top-width: 3px;border-color: #dad7c8;">

   <tr class='bg_dialog'>

      <td width="1%" align="left" valign="top">&nbsp;</td>

      <td width="100%"><SPAN id="SPANVIEW<%=NNbase_view_id%>" <%If BBviewCollapsed Then%>class="body_scol_thin"<%Else%>class="body_txt"<%End If%>>&nbsp;<b><%=SSbase_view%></b></SPAN></td>

      <td width="1%" align="right"><span title="Expand/Collapse View" onClick="RequestViewContent('<%=NNbase_view_id%>');"><img id="ENVIMG<%=NNbase_view_id%>" src="images/<%If BBviewCollapsed Then %>btn_max.gif<%Else%>btn_min.gif<%End If%>" border="0"></span></td>

      <td width="1%" align="right" valign="top">&nbsp;</td>

   </tr>

</table>

<DIV id="ENVDIV<%=NNbase_view_id%>" class="envContent" <%If BBviewCollapsed Then %>style="display:none;"<%Else%>style="display:block;"<%End If%>>

   <%If NOT BBviewCollapsed Then %>

      <%=SScontents%>

   <%Else%>

      <%=enumLOADING%>

   <%End If%>

</DIV>

<br>

<%

End Sub

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

' Name: Print_View

' Desc: Generate the Grouped Package list

Sub Print_View( NNEnvTab, SSviewtype, NNrtag_id, SSshowviews, NNuser_id )

   Dim rsView, Query_String

   'Dim btn1

   Dim tmpURL

   Dim SSscript

   Dim qstrPar

   Dim nViewType

   Dim nTrueRecordCount

   Dim nOperation

   Dim relContentsSTR, viewCollapsed, curr_view_id, view_name

   Dim canBeEmpty

   If isDefined("allowNoPackage") Then

      SSscript = "dependencies.asp"

   Else

      SSscript = scriptName

   End If

   If SSviewtype = "guest" Then

      nViewType = 1

      qstrPar = "Bshow"

   ElseIf SSviewtype = "personal" Then

      nViewType = 2

      qstrPar = "Pshow"

   End If

   canBeEmpty = false

'rmDebug = rmDebug & " ,NNEnvTab[" & NNEnvTab & "," & CInt(NNEnvTab) & "]"

   OraDatabase.Parameters.Add "VIEW_TYPE",           nViewType, ORAPARM_INPUT, ORATYPE_NUMBER

   'OraDatabase.Parameters.Add "VIEW_ID_SHOW_LIST",   ShowView( Pipes2Commas( SSshowviews ), SSviewtype ), ORAPARM_INPUT, ORATYPE_VARCHAR2

   OraDatabase.Parameters.Add "VIEW_ID_SHOW_LIST",   GetShowViewList(), ORAPARM_INPUT, ORATYPE_VARCHAR2

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

   OraDatabase.Parameters.Add "USER_ID",             NNuser_id, ORAPARM_INPUT, ORATYPE_NUMBER

   OraDatabase.Parameters.Add "TRUE_RECORD_COUNT",   NULL, ORAPARM_OUTPUT, ORATYPE_NUMBER

   OraDatabase.Parameters.Add "RECORD_SET",          NULL, ORAPARM_OUTPUT, ORATYPE_CURSOR

   'If it's a Deployment View

   If parDview = "enable" Then

      ' Decide which environment list is to be displayed to the Integrators/Testers

      Select Case CInt( NNEnvTab )

         Case enumENVTAB_PRODRELEASE

            OraDatabase.ExecuteSQL "BEGIN  PK_ENVIRONMENT.GET_PRODRELEASE_ITEMS ( :RTAG_ID, :TRUE_RECORD_COUNT, :RECORD_SET );  END;"

         Case enumENVTAB_INTEGRATE

            OraDatabase.ExecuteSQL "BEGIN  PK_ENVIRONMENT.GET_INTEGRATION_ITEMS ( :RTAG_ID, :TRUE_RECORD_COUNT, :RECORD_SET );  END;"

         Case enumENVTAB_TEST

            OraDatabase.ExecuteSQL "BEGIN  PK_ENVIRONMENT.GET_TEST_ITEMS ( :RTAG_ID, :TRUE_RECORD_COUNT, :RECORD_SET );  END;"

         Case enumENVTAB_DEPLOY

            OraDatabase.ExecuteSQL "BEGIN  PK_ENVIRONMENT.GET_DEPLOY_ITEMS ( :RTAG_ID, :TRUE_RECORD_COUNT, :RECORD_SET );  END;"

         Case enumENVTAB_REJECT

            OraDatabase.ExecuteSQL "BEGIN  PK_ENVIRONMENT.GET_REJECT_ITEMS ( :RTAG_ID, :TRUE_RECORD_COUNT, :RECORD_SET );  END;"

      End Select

   Else

      ' Decide which environment list is to be displayed

      Select Case CInt( NNEnvTab )

         Case enumENVTAB_WORK_IN_PROGRESS

            OraDatabase.ExecuteSQL "BEGIN  PK_ENVIRONMENT.GET_WORK_IN_PROGRESS_ITEMS ( :VIEW_TYPE, :USER_ID, :RTAG_ID, :VIEW_ID_SHOW_LIST, :TRUE_RECORD_COUNT, :RECORD_SET );  END;"

            canBeEmpty = true

         Case enumENVTAB_PLANNED

            OraDatabase.ExecuteSQL "BEGIN  PK_ENVIRONMENT.GET_PENDING_ITEMS ( :VIEW_TYPE, :USER_ID, :RTAG_ID, :VIEW_ID_SHOW_LIST, :TRUE_RECORD_COUNT, :RECORD_SET );  END;"

            canBeEmpty = true

         Case enumENVTAB_RELEASED

            OraDatabase.ExecuteSQL "BEGIN  PK_ENVIRONMENT.GET_RELEASED_ITEMS ( :VIEW_TYPE, :USER_ID, :RTAG_ID, :VIEW_ID_SHOW_LIST, :TRUE_RECORD_COUNT, :RECORD_SET );  END;"

         Case Else

            OraDatabase.ExecuteSQL "BEGIN  PK_ENVIRONMENT.GET_ENVIRONMENT_ITEMS ( :VIEW_TYPE, :USER_ID, :RTAG_ID, :VIEW_ID_SHOW_LIST, :TRUE_RECORD_COUNT, :RECORD_SET );  END;"

      End Select

   End If

   ' Get Record set from database

   Set rsView = OraDatabase.Parameters("RECORD_SET").Value

   nTrueRecordCount = OraDatabase.Parameters("TRUE_RECORD_COUNT").Value

   OraDatabase.Parameters.Remove "RTAG_ID"

   OraDatabase.Parameters.Remove "USER_ID"

   OraDatabase.Parameters.Remove "VIEW_TYPE"

   OraDatabase.Parameters.Remove "VIEW_ID_SHOW_LIST"

   OraDatabase.Parameters.Remove "RECORD_SET"

   OraDatabase.Parameters.Remove "TRUE_RECORD_COUNT"

   ' Initialise variables

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

      relContentsSTR = ""

      viewCollapsed = FALSE

      curr_view_id = rsView("view_id")      ' Set current view

      view_name = rsView("view_name")

   End If

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

      '==== Get View Contents ====

      If NOT IsNull(rsView.Fields("pv_id")) Then

         tmpURL = SSscript &"?pv_id="& rsView.Fields("pv_id") &"&rtag_id="& parRtag_id

         IMG_locked = ""

         If rsView.Fields("dlocked") = "Y" Then IMG_locked = imgLocked

         ' DEVI-45275 - Normally, dlocked=Y items are denoted with a padlock icon on the web page. Since we can now merge

         ' into the pending tab, the dlocked=Y items that end up there would not give any visual indication to the user

         ' as to why they are present. So, instead of the padlock icon, display the added or removed icon to indicate

         ' what the intended action is to be, once the pending item is approved.

         ' Obviously, this functionality does not apply if we are in the deployment view, and only applies if viewing

         ' the PENDING or ALL environment tabs.

         ' With regard to the operation value, A = Added, S = Subtracted

         nOperation = " "

         If parDview <> "enable" AND (CInt( NNEnvTab ) = enumENVTAB_PLANNED OR CInt( NNEnvTab ) = enumENVTAB_ALL) Then

            nOperation = rsView.Fields("operation")   ' NB. this field is only availble if earlier query was GET_PENDING_ITEMS or GET_ENVIRONMENT_ITEMS

            If nOperation = "A" Then

               IMG_locked = imgAdded

            ElseIf nOperation = "S" Then

               IMG_locked = imgRemoved

            End If

         End If

         relContentsSTR = relContentsSTR & "<tr>" & VBNewLine

         If rsView("pkg_state") = 0 And rsView.Fields("deprecated_state") <> "" Then

            relContentsSTR = relContentsSTR & "  <td width='1%'>"& DefineStateIcon ( rsView.Fields("deprecated_state"), rsView("dlocked"), NULL, NULL, pkgInfoHash.Item("build_type"), TRUE ) &"</td>"& VBNewLine

         Else

            If (parDview <> "enable") AND ( ( CInt(NNEnvTab) = enumENVTAB_PLANNED ) OR ( Request("envtab") = enumENVTAB_PLANNED ) ) Then

               ' if package version is unlocked, rejected, or pending approval, or is to be added/subtracted to/from the release (DEVI-45275), then

               If (rsView("dlocked") = "N") OR (rsView("dlocked") = "R") OR (rsView("dlocked") = "P") OR (nOperation = "A") OR (nOperation = "S") Then

                  checked = NULL

                  disabled = NULL

                  ' disable check box if not logged in, or if not in open mode and user has no permission to approve pending

                  If objAccessControl.UserLogedIn Then

                     If ( ReleaseMode <> enumDB_RELEASE_IN_OPEN_MODE ) Then

                        If NOT canActionControlInProject("ApproveForAutoBuild") Then

                           disabled = "disabled"

                        End If

                     End If

                  Else

                     disabled = "disabled"

                  End If

               relContentsSTR = relContentsSTR & " <td class=tcenter width='1%'><input name='pv_id_list' id='pv_id_list' type=checkbox value="&rsView.Fields("pv_id")&" "&checked&" "&disabled&"></td>"& VBNewLine

               Else ' always check and disable the checkbox

                  checked = "checked"

                  disabled = "disabled"

               relContentsSTR = relContentsSTR & " <td class=tcenter width='1%'>" & DefineStateIcon ( rsView("pkg_state"), rsView("dlocked"), NULL, NULL, pkgInfoHash.Item("build_type"), TRUE ) &"</td>"& VBNewLine

               End If

            Else

               relContentsSTR = relContentsSTR & " <td class=tcenter width='1%'>" & DefineStateIcon ( rsView("pkg_state"), rsView("dlocked"), NULL, NULL, pkgInfoHash.Item("build_type"), TRUE ) &"</td>"& VBNewLine

            End If

         End If

         relContentsSTR = relContentsSTR & "  <td width='100%' nowrap><a href='"& tmpURL &"' class='body_txt_drk' title="""& HTMLEncode( rsView("pv_description") ) &""">"& rsView.Fields("pkg_name") &"</a></td>" & VBNewLine

         relContentsSTR = relContentsSTR & "  <td width='1%' nowrap class='envPkg'>"& rsView.Fields("pkg_version") &"</td>" & VBNewLine

         relContentsSTR = relContentsSTR & "  <td class=tcenter width='1%'>"& IMG_locked & "</td>"

         relContentsSTR = relContentsSTR & "</tr>" & VBNewLine

      Else

         'relContentsSTR = relContentsSTR & "<tr><td><label class='form_txt' disabled>...</label></td></tr>"      ' Collapsed view displays dots

         viewCollapsed = TRUE

      End If

      rsView.MoveNext

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

         ' NOT end of the record set

         If curr_view_id <> rsView("view_id") Then

            '====== Draw buttons =================================

            'If InStrPipes( SSshowviews, curr_view_id ) Then

            '   btn1 = "<a href='"& SSscript &"?"& qstrPar &"="& RemoveFromStrPipes( SSshowviews, curr_view_id ) &"&pv_id="& Request("pv_id") &"&rtag_id="& NNrtag_id &"' >"& imgMinimise &"</a>"

            'Else

            '   btn1 = "<a href='"& SSscript &"?"& qstrPar &"=|"& curr_view_id &"|"& SSshowviews &"&pv_id="& Request("pv_id") &"&rtag_id="& NNrtag_id &"'>"& imgMaximise &"</a>"

            'End If

            '====== Print contents ===============================

            relContentsSTR = "<table width='100%' border='0' cellspacing='0' cellpadding='1'>" & relContentsSTR & "</table>"

            Call Display_Env_BaseView ( curr_view_id, view_name, viewCollapsed, relContentsSTR )

            curr_view_id = rsView("view_id")

            view_name = rsView("view_name")

            relContentsSTR = ""      ' Empty the contents string

            viewCollapsed = FALSE

         End If

      Else

         ' End of the record set

         '====== Draw buttons =================================

         'If InStrPipes( SSshowviews, curr_view_id ) Then

         '   btn1 = "<a href='"& SSscript &"?"& qstrPar &"="& RemoveFromStrPipes( SSshowviews, curr_view_id ) &"&pv_id="& Request("pv_id") &"&rtag_id="& NNrtag_id &"' >"& imgMinimise &"</a>"

         'Else

         '   btn1 = "<a href='"& SSscript &"?"& qstrPar &"=|"& curr_view_id &"|"& SSshowviews &"&pv_id="& Request("pv_id") &"&rtag_id="& NNrtag_id &"'>"& imgMaximise &"</a>"

         'End If

         '====== Print contents ===============================

         relContentsSTR = "<table width='100%' border='0' cellspacing='0' cellpadding='1'>" & relContentsSTR & "</table>"

         Call Display_Env_BaseView ( curr_view_id, view_name, viewCollapsed, relContentsSTR )

      End If

   WEnd

   If relContentsSTR <> "" Then

      Response.write "<a href='help/icons_F017.asp' target='_blank' class='body_scol'>Icon Legend...</a><br>"

   End If

   If nTrueRecordCount > 0 Then

      If rsView.RecordCount < 1 Then

         'If qstrPar = "Bshow" Then

         '   'Release is empty. Draw default box for Base view

         '   Call DisplayInfo ( "EMPTY_RELEASE_CONTENTS", "100%" )

         '

         'End If

         If qstrPar = "Pshow" AND hasPview AND NOT canBeEmpty Then

            'Release is empty. Draw default box for Personal view

            Call DisplayInfo ( "PERSONAL_VIEW_NOT_SETUP", "100%" )

         End If

      End If

   End If

   ' Destroy

   rsView.Close

   Set rsView = nothing

End Sub

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

' Detect the presence of a Personal View so that the controls can be disabled if the user does

' not have any.

'

Function hasPersonalViews ( )

   Dim rsTemp, Query_String

   hasPersonalViews = false

   If objAccessControl.UserLogedIn Then

       Query_String = "select count(*) from views where owner_id = " & objAccessControl.UserId

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

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

          If  rsTemp.Fields(0) > 0 Then

              hasPersonalViews = true

          End If

       End If

       rsTemp.Close

       Set rsTemp = nothing

   End If

End Function

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

Function GetShowViewList ()

   'If SSparshow <> "" Then

   '   ' get list from query string

   '   ShowView = SSparshow

   'ElseIf Request.Cookies("RELEASEMANAGER_VIEW_SHOW")( SSviewtype ) <> "" Then

   '   ' get list from cookie

   '   ShowView = Request.Cookies("RELEASEMANAGER_VIEW_SHOW")( SSviewtype )

   'Else

   '   ' no list i.e. collapse all views

   '   ShowView = -1

   'End If

   'If oShowView.Count = 0 Then

   '   GetShowViewList = -1

   'Else

   '   GetShowViewList = Join( oShowView.Keys, "," )

   'End If

   If Request.Cookies(COOKIE_RELMGR_SHOW_VIEW) = "" Then

      GetShowViewList = -1

   Else

      GetShowViewList = Request.Cookies(COOKIE_RELMGR_SHOW_VIEW)

   End If

End Function

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

' This function forms a URL to use for refreshing the current dependencies.asp based page using the settings that are in effect at the time.

' Most importantly, it filters out the pv_id parameter if it is null (which otherwise would cause the page to be rendered incorreclty for an

' as yet, unknown reason).

'

Function RefreshedURL(NNdview, NNpview, NNpv_id, NNrtag_id)

   Dim url

   url = scriptName & "?Dview=" & NNdview & "&Pview=" & NNpview

   If NNpv_id <> "" Then

      url = url & "&pv_id=" & NNpv_id

   End If

   url = url & "&rtag_id=" & NNrtag_id

   RefreshedURL = url

End Function

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

%>

<%

'------------------------- MAIN LINE ---------------------------

%>

<%If parRtag_Id <> "" Then%>

<!-- RELEASE ACTION BUTTONS ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->

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

      <tr>

         <td width="1" class='bg_dialog'><img src="images/spacer.gif" width="10" height="35"></td>

         <td width="100%" nowrap class='bg_dialog' >

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

               <tr>

                  <%

                  Dim canAdd: canAdd = objAccessControl.UserLogedIn AND ((((ReleaseMode = enumDB_RELEASE_IN_CCB_MODE) OR (ReleaseMode = enumDB_RELEASE_IN_RESTRICTIVE_MODE)) AND canActionControlInProject("AddDeletePackageInRestrictiveMode")) OR (ReleaseMode = enumDB_RELEASE_IN_OPEN_MODE ))

                  Call BuildActionButton(canAdd,"","Add a Package to this Release", "src=images/abtn_add_pkg.gif width='25' height='25' hspace='1' border='0'", "form_search_pkgs.asp?rtag_id="& Request("rtag_id") &"&add_type="& enum_ADD_PACKAGES )

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

                     If  (objAccessControl.UserLogedIn) AND ( (objAccessControl.UserName = pkgInfoHash.Item("creator")) OR (canActionControlInProject("DestroyPackageFromRelease")) ) Then

                        Response.write "<td width='1' title='Destroy the selected Package Version' onClick=""MM_openVixIFrame('_destroy_package.asp?rtag_id=" & Request("rtag_id") & "&bfile="&ScriptName & "&pkg_id=" & pkgInfoHash.Item("pkg_id") & "&pv_id=" & Request("pv_id") & "','Destroy Package Version');"">"

                        Response.Write "<img src='icons/i_destroy_package.gif' width='25' height='25' hspace='1' border='0'></td>"

                     Else

                        Response.write "<td width='1'><img title='Destroy the selected Package Version' src='icons/i_destroy_package_off.gif' width='26' height='26' hspace='1' border='0'></td>"

                     End If

                  End If

                   ' Anybody can view properties

                   Response.write "<td width='1'><span class=pointer onClick='location.href=""form_edit_release.asp?rtag_id="&parRtag_id&"""' title='Release properties'><img src='images/abtn_release_properties.gif'  width='25' height='25' hspace='1' border='0'></span></td>"

                  Response.write "<td width='1'><img src='images/spacer.gif' width='7' height='25'></td>"

                  If objAccessControl.UserLogedIn Then

                      If hasPview Then

                         If parPview = "disable" Then

                            Dim ref : ref = RefreshedURL(parDview, "", Request("pv_id"), Request("rtag_id"))

                            Response.write "<td width='1'><span class=pointer onClick='location.href="""&ref&"""' title='Personal view disabled. Click to enable.'><img src='images/abtn_base_view.gif'  width='25' height='25' hspace='1' border='0'></span></td>"

                         Else

                            ref = RefreshedURL(parDview, "disable", Request("pv_id"), Request("rtag_id")) 

                            Response.write "<td width='1'><span class=pointer onClick='location.href="""&ref&"""' title='Personal view enabled. Click for full view.'><img src='images/abtn_personal_view.gif'  width='25' height='25' hspace='1' border='0'></span></td>"

                         End If

                      Else

                            Response.write "<td width='1'><span title='No Personal View configured.'><img src='images/abtn_personal_view_off.gif'  width='26' height='26' hspace='1' border='0'></span></td>"

                      End If

                  Else

                     Response.write "<td width='1'><img src='images/abtn_personal_view_off.gif' width='26' height='26' hspace='1' border='0'></td>"

                  End If

                  If parDview = "enable" Then