Subversion Repositories DevTools

Rev

Rev 119 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 119 Rev 123
Line 1... Line 1...
1 
<%
 1 
<%
2 
'=====================================================
 2 
'=====================================================
3 
'					Build Environment
 3 
'               Build Environment
4 
'=====================================================
 4 
'=====================================================
5 
%>
 5 
%>
6 
<!--#include file="_tabs_definition_env.asp"-->
 6 
<!--#include file="_tabs_definition_env.asp"-->
7 
<!--#include file="common/_form_window_common.asp"-->
 7 
<!--#include file="common/_form_window_common.asp"-->
8 
<%
 8 
<%
9 
'------------ Variable Definition -------------
 9 
'------------ Variable Definition -------------
10 
Dim parOLshow		' show/hide outer-latest
 10 
Dim parOLshow     ' show/hide outer-latest
11 
Dim parBshow		' expand/collapse base views
 11 
Dim parBshow      ' expand/collapse base views
12 
Dim parPshow		' expand/collapse personal views
 12 
Dim parPshow      ' expand/collapse personal views
13 
Dim parPview 		' enable/disable all personal views
 13 
Dim parPview      ' enable/disable all personal views
14 
Dim	parDview		'	enable/disable	deployment	view.
 14 
Dim parDview      ' enable/disable   deployment   view.
15 
Dim IMG_locked
 15 
Dim IMG_locked
16 
Dim rsEnvQry
 16 
Dim rsEnvQry
17 
Dim pvIdInList
 17 
Dim pvIdInList
18 
Dim checked
 18 
Dim checked
19 
Dim disabled
 19 
Dim disabled
20 
DIm aFullList
 - 
 
21 
Dim pkgType
 20 
Dim pkgType
22 
Dim retERRmsg
 - 
 
23 
Dim retALRTmsg
 - 
 
24 
Dim retParameters
 - 
 
25 
Dim SCRIPT_NAME 'Use this here only as the previous one ScriptName is Already Defined
 21 
Dim SCRIPT_NAME 'Use this here only as the previous one ScriptName is Already Defined
26 
Dim rsBuildType
 - 
 
27 
'------------ Constants Declaration -----------
 22 
'------------ Constants Declaration -----------
28 
Const imgMaximise  = "<IMG src='images/i_maximise.gif' alt='Show view contents.' width=13 height=13 hspace='2' vspace='1' border='0'>"
 23 
Const imgMaximise  = "<IMG src='images/i_maximise.gif' alt='Show view contents.' width=13 height=13 hspace='2' vspace='1' border='0'>"
29 
Const imgMinimise  = "<IMG src='images/i_minimise.gif' alt='Hide view contents.' width=13 height=13 hspace='2' vspace='1' border='0'>"
 24 
Const imgMinimise  = "<IMG src='images/i_minimise.gif' alt='Hide view contents.' width=13 height=13 hspace='2' vspace='1' border='0'>"
30 
Const imgForced    = "<img src='images/s_forced.gif' width='19' height='17' align='absmiddle'>"
 25 
Const imgForced    = "<img src='images/s_forced.gif' width='19' height='17' align='absmiddle'>"
31 
Const imgLocked    = "<img src='images/i_locked.gif' width='7' height='10' border='0' hspace='2'>"
 26 
Const imgLocked    = "<img src='images/i_locked.gif' width='7' height='10' border='0' hspace='2'>"
Line 47... Line 42...
47 
var is_ie5 = (navigator.appVersion.indexOf("MSIE 5.5")!=-1) ? 1 : 0;
 42 
var is_ie5 = (navigator.appVersion.indexOf("MSIE 5.5")!=-1) ? 1 : 0;
48 
var is_opera = ((navigator.userAgent.indexOf("Opera6")!=-1)||(navigator.userAgent.indexOf("Opera/6")!=-1)) ? 1 : 0;
 43 
var is_opera = ((navigator.userAgent.indexOf("Opera6")!=-1)||(navigator.userAgent.indexOf("Opera/6")!=-1)) ? 1 : 0;
49 
    //netscape, safari, mozilla behave the same???
 44 
    //netscape, safari, mozilla behave the same???
50 
var is_netscape = (navigator.userAgent.indexOf('Netscape') >= 0) ? 1 : 0;
 45 
var is_netscape = (navigator.userAgent.indexOf('Netscape') >= 0) ? 1 : 0;
51 
 
 46 
 
52 
function RequestViewContent( paramString, rowId ){
 - 
 
53 
	var requestURL = 'RequestViewContent.asp';
 - 
 
54 
 
 - 
 
55 
	// Toggle div
 - 
 
56 
	ToggleDisplay( 'ENVDIV'+ rowId );
 - 
 
57 
 
 - 
 
58 
	// Change display states
 - 
 
59 
	if ( (MM_findObj( 'ENVIMG'+ rowId ).src).indexOf('btn_max.gif') == -1 )
 - 
 
60 
	{
 - 
 
61 
		// View is currently minimised
 - 
 
62 
		MM_findObj( 'ENVIMG'+ rowId ).src = 'images/btn_max.gif';
 - 
 
63 
		MM_findObj( 'SPANVIEW'+ rowId ).style.color = '#808080';
 - 
 
64 
 
 - 
 
65 
		// Remove from SHow View List
 - 
 
66 
		RemoveFromShowView ( rowId );
 - 
 
67 
 
 - 
 
68 
	}
 - 
 
69 
	else
 - 
 
70 
	{
 - 
 
71 
		// View is currently maximised
 - 
 
72 
		MM_findObj( 'ENVIMG'+ rowId ).src = 'images/btn_min.gif';
 - 
 
73 
		MM_findObj( 'SPANVIEW'+ rowId ).style.color = '#000000';
 - 
 
74 
 
 - 
 
75 
		// Add it to Show view id
 - 
 
76 
		AddToShowView ( rowId );
 - 
 
77 
 
 - 
 
78 
	}
 - 
 
79 
 
 - 
 
80 
	// Fix div width for ie so it does not overflow
 - 
 
81 
	if (is_ie)
 - 
 
82 
	{
 - 
 
83 
		MM_findObj( 'ENVDIV'+ rowId ).style.width = '100%';
 - 
 
84 
	}
 - 
 
85 
 
 - 
 
86 
 
 - 
 
87 
 
 - 
 
88 
	// Set ajax divname
 - 
 
89 
	ajaxdivname = 'ENVDIV'+ rowId;
 - 
 
90 
 
 - 
 
91 
 
 47 
 
- 
 
 48 
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- 
 
 49 
// This function is executed when the Bulk Release action button is pressed. It will do some local
- 
 
 50 
// client side checks and then if all is well, it will use the make_bulk_release.asp to initiate
- 
 
 51 
// the bulk release process on the server side.
- 
 
 52 
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- 
 
 53 
function makeBulkRelease()
- 
 
 54 
{
- 
 
 55 
   // Get the form containing all of the pending items
- 
 
 56 
   var f = document.getElementById('pending_PVID_List');
- 
 
 57 
   if (f == null)
- 
 
 58 
      alert('Failed To Get pending_PVID_List');   // should never happen unless a coding/rendering mistake is made?
- 
 
 59 
   else
- 
 
 60 
   {
- 
 
 61 
      // When no items exist in the pending tab, the pending_PVID_List form will not contain any
- 
 
 62 
      // element called pv_id_list, so it will be null. Check for that and issue an alert as appropriate.
- 
 
 63 
      if (f.pv_id_list == null)
- 
 
 64 
      {
- 
 
 65 
         alert('There are no items pending that can be considered for bulk release.\n\n' +
- 
 
 66 
               'Use the Bulk Release button when items with checkboxes are present in the\n' +
- 
 
 67 
               'Pending Tab.');
- 
 
 68 
      }
- 
 
 69 
      else
- 
 
 70 
      {
- 
 
 71 
         var doBulkRelease = true;
- 
 
 72 
 
- 
 
 73 
         // Count the number of checked and enabled items to see if there is actually any work to
- 
 
 74 
         // do and if not issue an alert to the user. The pending_PVID_List form contains checkbox
- 
 
 75 
         // items representing the pending versions, and the user may have checked any number of them
- 
 
 76 
         // or none.
- 
 
 77 
         //
- 
 
 78 
         // NOTE, disabled items are indicative of pending autobuild versions that have already
- 
 
 79 
         // been approved and are just awaiting processing by the build daemon that will make
- 
 
 80 
         // them released once they have built successfully. We must not count those in our total.
- 
 
 81 
         var n;
- 
 
 82 
         var numCheckedAndEnabled = 0;
- 
 
 83 
         var numUncheckedAndEnabled = 0;
- 
 
 84 
 
- 
 
 85 
         // Unbelievably, if the form has just one single PV_ID checkbox item, the syntax via which we access it
- 
 
 86 
         // has to change. We cannot use array access syntax in such a case.
- 
 
 87 
         if (f.length == 1 )
- 
 
 88 
         {
- 
 
 89 
            if (f.pv_id_list.value != null)
- 
 
 90 
            {
- 
 
 91 
               if (false == f.pv_id_list.disabled)
- 
 
 92 
               {
- 
 
 93 
                  if (true == f.pv_id_list.checked)
- 
 
 94 
                     numCheckedAndEnabled++;
- 
 
 95 
                  else
- 
 
 96 
                     numUncheckedAndEnabled++;
- 
 
 97 
               }
- 
 
 98 
            }
- 
 
 99 
         }
- 
 
 100 
         else
- 
 
 101 
         {
- 
 
 102 
            // Here we can and have to use array access syntax.
- 
 
 103 
            for (n = 0; n < f.pv_id_list.length; n++)
- 
 
 104 
            {
- 
 
 105 
               if (false == f.pv_id_list[n].disabled)
- 
 
 106 
               {
- 
 
 107 
                  if (true == f.pv_id_list[n].checked)
- 
 
 108 
                     numCheckedAndEnabled++;
- 
 
 109 
                  else
- 
 
 110 
                     numUncheckedAndEnabled++;
- 
 
 111 
               }
- 
 
 112 
            }
- 
 
 113 
         }
92 
 
 114 
 
- 
 
 115 
         if (numCheckedAndEnabled == 0)
- 
 
 116 
         {
- 
 
 117 
				if (numUncheckedAndEnabled == 0)
- 
 
 118 
				{
- 
 
 119 
					alert('Currently, there are no items that can be bulk released');
93 
	// Request data from server
 120 
					doBulkRelease = false;
- 
 
 121 
				}
- 
 
 122 
				else
- 
 
 123 
				{
- 
 
 124 
            	// No enabled items have their checkboxes checked. Offer the user an easy way to
- 
 
 125 
            	// bulk release the entire set, or to abort
- 
 
 126 
            	doBulkRelease = confirm('No (enabled) items in the Pending Tab have been checked.\n' +
- 
 
 127 
                                    	'This may mean you wish to bulk release ALL items without\n' +
- 
 
 128 
                                    	'having to check every single one of them individually.\n\n' +
- 
 
 129 
                                    	'\tPress OK to bulk release all outstanding items.\n' +
- 
 
 130 
                                    	'\tPress CANCEL to abort bulk release.\n\n' );
- 
 
 131 
            	if (doBulkRelease == true)
- 
 
 132 
            	{
- 
 
 133 
               	// Programmatically check all the enabled items. The user will see this happening on their browser
- 
 
 134 
               	// and may be able to uncheck a few items before the submit() action further down in this
- 
 
 135 
               	// function is called. However, the worst that can happen is that a few items will not get
- 
 
 136 
               	// bulk released and the user has to do another bulk release operation.
- 
 
 137 
                  if (f.length == 1 )
- 
 
 138 
                  {
- 
 
 139 
                     if (false == f.pv_id_list.checked && false == f.pv_id_list.disabled)
- 
 
 140 
                     {
- 
 
 141 
                        f.pv_id_list.checked = true;
- 
 
 142 
                     }
- 
 
 143 
                  }
- 
 
 144 
                  else
- 
 
 145 
                  {
- 
 
 146 
                     for (n = 0; n < f.pv_id_list.length; n++)
- 
 
 147 
                     {
- 
 
 148 
                        if (false == f.pv_id_list[n].checked && false == f.pv_id_list[n].disabled)
- 
 
 149 
                        {
- 
 
 150 
                           f.pv_id_list[n].checked = true;
- 
 
 151 
                        }
- 
 
 152 
                     }
- 
 
 153 
                  }
- 
 
 154 
            	}
- 
 
 155 
				}
- 
 
 156 
         }
- 
 
 157 
 
- 
 
 158 
         if (doBulkRelease == true)
- 
 
 159 
         {
- 
 
 160 
            // Initiate the bulk release by redirecting the browser to the make_bulk_release.asp page
- 
 
 161 
            // which holds the server side VBScript code that actually carries out the release operations.
- 
 
 162 
            // Once complete, that code will redirect the browser back to the dependencies.asp page of which
- 
 
 163 
            // this _environment.asp file is a part (by direct inclusion)
- 
 
 164 
            <%If parPv_id Then%>
- 
 
 165 
               f.action = "make_bulk_release.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>";
- 
 
 166 
            <%Else%>
- 
 
 167 
               f.action = "make_bulk_release.asp?rtag_id=<%=parRtag_id%>";
- 
 
 168 
            <%End If%>
- 
 
 169 
            f.submit();
94 
	if ( (MM_findObj( ajaxdivname ).innerHTML).indexOf('<%=enumLOADING%>') != -1 )
 170 
            // TODO : I would like to show progress? Is that even possible? If so, how?
- 
 
 171 
         }
- 
 
 172 
      }
- 
 
 173 
   }
95 
	{
 174 
}
96 
 
 175 
 
97 
		//Append the name to search for to the requestURL
 176 
function RequestViewContent( paramString, rowId ){
98 
		var url = requestURL + paramString;
 177 
   var requestURL = 'RequestViewContent.asp';
99 
 
 178 
 
100 
		//Create the xmlHttp object to use in the request
 - 
 
101 
		//stateChangeHandler will fire when the state has changed, i.e. data is received back
 - 
 
102 
		// This is non-blocking (asynchronous)
 179 
   // Toggle div
103 
		xmlHttp = GetXmlHttpObject(stateChangeHandler);
 180 
   ToggleDisplay( 'ENVDIV'+ rowId );
104 
 
 181 
 
- 
 
 182 
   // Change display states
- 
 
 183 
   if ( (MM_findObj( 'ENVIMG'+ rowId ).src).indexOf('btn_max.gif') == -1 )
- 
 
 184 
   {
- 
 
 185 
      // View is currently minimised
- 
 
 186 
      MM_findObj( 'ENVIMG'+ rowId ).src = 'images/btn_max.gif';
- 
 
 187 
      MM_findObj( 'SPANVIEW'+ rowId ).style.color = '#808080';
- 
 
 188 
 
- 
 
 189 
      // Remove from SHow View List
- 
 
 190 
      RemoveFromShowView ( rowId );
- 
 
 191 
   }
- 
 
 192 
   else
- 
 
 193 
   {
- 
 
 194 
      // View is currently maximised
- 
 
 195 
      MM_findObj( 'ENVIMG'+ rowId ).src = 'images/btn_min.gif';
- 
 
 196 
      MM_findObj( 'SPANVIEW'+ rowId ).style.color = '#000000';
- 
 
 197 
 
- 
 
 198 
      // Add it to Show view id
- 
 
 199 
      AddToShowView ( rowId );
- 
 
 200 
   }
- 
 
 201 
 
- 
 
 202 
   // Fix div width for ie so it does not overflow
- 
 
 203 
   if (is_ie)
- 
 
 204 
   {
- 
 
 205 
      MM_findObj( 'ENVDIV'+ rowId ).style.width = '100%';
- 
 
 206 
   }
- 
 
 207 
 
- 
 
 208 
   // Set ajax divname
- 
 
 209 
   ajaxdivname = 'ENVDIV'+ rowId;
- 
 
 210 
 
- 
 
 211 
   // Request data from server
- 
 
 212 
   if ( (MM_findObj( ajaxdivname ).innerHTML).indexOf('<%=enumLOADING%>') != -1 )
- 
 
 213 
   {
- 
 
 214 
      //Append the name to search for to the requestURL
- 
 
 215 
      var url = requestURL + paramString;
- 
 
 216 
 
- 
 
 217 
      //Create the xmlHttp object to use in the request
- 
 
 218 
      //stateChangeHandler will fire when the state has changed, i.e. data is received back
- 
 
 219 
      // This is non-blocking (asynchronous)
- 
 
 220 
      xmlHttp = GetXmlHttpObject(stateChangeHandler);
- 
 
 221 
 
105 
		//Send the xmlHttp get to the specified url
 222 
      //Send the xmlHttp get to the specified url
106 
		xmlHttp_Get(xmlHttp, url);
 223 
      xmlHttp_Get(xmlHttp, url);
- 
 
 224 
   }
- 
 
 225 
}
107 
 
 226 
 
108 
	}
 - 
 
- 
 
 227 
function GetXmlHttpObject(handler) {
- 
 
 228 
   var objXmlHttp = null;    //Holds the local xmlHTTP object instance
109 
 
 229 
 
- 
 
 230 
   //Depending on the browser, try to create the xmlHttp object
- 
 
 231 
   if (is_ie){
- 
 
 232 
      //The object to create depends on version of IE
- 
 
 233 
      //If it isn't ie5, then default to the Msxml2.XMLHTTP object
- 
 
 234 
      var strObjName = (is_ie5) ? 'Microsoft.XMLHTTP' : 'Msxml2.XMLHTTP';
- 
 
 235 
 
- 
 
 236 
      //Attempt to create the object
- 
 
 237 
      try{
- 
 
 238 
         objXmlHttp = new ActiveXObject(strObjName);
- 
 
 239 
         objXmlHttp.onreadystatechange = handler;
- 
 
 240 
      }
- 
 
 241 
      catch(e){
- 
 
 242 
      //Object creation errored
- 
 
 243 
         alert('IE detected, but object could not be created. Verify that active scripting and activeX controls are enabled');
- 
 
 244 
         return;
- 
 
 245 
      }
- 
 
 246 
   }
- 
 
 247 
   else if (is_opera){
- 
 
 248 
      //Opera has some issues with xmlHttp object functionality
- 
 
 249 
      alert('Opera detected. The page may not behave as expected.');
- 
 
 250 
      return;
- 
 
 251 
   }
- 
 
 252 
   else{
- 
 
 253 
      // Mozilla | Netscape | Safari
- 
 
 254 
      objXmlHttp = new XMLHttpRequest();
- 
 
 255 
      objXmlHttp.onload = handler;
- 
 
 256 
      objXmlHttp.onerror = handler;
- 
 
 257 
   }
110 
 
 258 
 
- 
 
 259 
   //Return the instantiated object
- 
 
 260 
   return objXmlHttp;
111 
}
 261 
}
112 
 
 262 
 
- 
 
 263 
//stateChangeHandler will fire when the state has changed, i.e. data is received back
- 
 
 264 
// This is non-blocking (asynchronous)
113 
    function GetXmlHttpObject(handler) {
 265 
function stateChangeHandler()
- 
 
 266 
{
- 
 
 267 
   //readyState of 4 or 'complete' represents that data has been returned
- 
 
 268 
   if (xmlHttp.readyState == 4 || xmlHttp.readyState == 'complete'){
- 
 
 269 
      //Gather the results from the callback
- 
 
 270 
      var str = xmlHttp.responseText;
- 
 
 271 
 
114 
        var objXmlHttp = null;    //Holds the local xmlHTTP object instance
 272 
      //Populate the innerHTML of the div with the results
- 
 
 273 
      document.getElementById(ajaxdivname).innerHTML = str;
- 
 
 274 
   }
- 
 
 275 
}
115 
 
 276 
 
116 
        //Depending on the browser, try to create the xmlHttp object
 - 
 
117 
        if (is_ie){
 - 
 
118 
            //The object to create depends on version of IE
 - 
 
119 
            //If it isn't ie5, then default to the Msxml2.XMLHTTP object
 - 
 
120 
            var strObjName = (is_ie5) ? 'Microsoft.XMLHTTP' : 'Msxml2.XMLHTTP';
 - 
 
121 
 
 - 
 
122 
            //Attempt to create the object
 - 
 
123 
            try{
 - 
 
124 
                objXmlHttp = new ActiveXObject(strObjName);
 - 
 
125 
                objXmlHttp.onreadystatechange = handler;
 - 
 
126 
            }
 - 
 
127 
            catch(e){
 - 
 
128 
            //Object creation errored
 - 
 
129 
                alert('IE detected, but object could not be created. Verify that active scripting and activeX controls are enabled');
 - 
 
130 
                return;
 - 
 
131 
            }
 - 
 
132 
        }
 - 
 
133 
        else if (is_opera){
 - 
 
134 
            //Opera has some issues with xmlHttp object functionality
 - 
 
135 
            alert('Opera detected. The page may not behave as expected.');
 - 
 
136 
            return;
 - 
 
137 
        }
 - 
 
138 
        else{
 - 
 
139 
            // Mozilla | Netscape | Safari
 - 
 
140 
            objXmlHttp = new XMLHttpRequest();
 - 
 
141 
            objXmlHttp.onload = handler;
 - 
 
142 
            objXmlHttp.onerror = handler;
 - 
 
143 
        }
 - 
 
144 
 
 - 
 
145 
        //Return the instantiated object
 - 
 
146 
        return objXmlHttp;
 - 
 
147 
    }
 - 
 
148 
 
 - 
 
149 
    //stateChangeHandler will fire when the state has changed, i.e. data is received back
 - 
 
150 
    // This is non-blocking (asynchronous)
 - 
 
151 
    function stateChangeHandler()
 - 
 
152 
    {
 - 
 
153 
        //readyState of 4 or 'complete' represents that data has been returned
 - 
 
154 
        if (xmlHttp.readyState == 4 || xmlHttp.readyState == 'complete'){
 - 
 
155 
            //Gather the results from the callback
 - 
 
156 
            var str = xmlHttp.responseText;
 - 
 
157 
 
 - 
 
158 
            //Populate the innerHTML of the div with the results
 - 
 
159 
            document.getElementById(ajaxdivname).innerHTML = str;
 - 
 
160 
        }
 - 
 
161 
    }
 - 
 
162 
 
 - 
 
163 
    // XMLHttp send GET request
 277 
// XMLHttp send GET request
164 
    function xmlHttp_Get(xmlhttp, url) {
 278 
function xmlHttp_Get(xmlhttp, url) {
165 
        //Getting a permissions error here? Check the url string to
 279 
   //Getting a permissions error here? Check the url string to
166 
        // ensure it is accurate (defined above)
 280 
   // ensure it is accurate (defined above)
167 
        xmlhttp.open('GET', url, true);
 281 
   xmlhttp.open('GET', url, true);
168 
        xmlhttp.send(null);
 282 
   xmlhttp.send(null);
169 
    }
 283 
}
170 
 
 284 
 
171 
 
 285 
 
172 
 
 286 
 
173 
function RemoveFromShowView ( ViewId )
 287 
function RemoveFromShowView ( ViewId )
174 
{
 288 
{
175 
	// Get current cookie settings
 289 
   // Get current cookie settings
176 
	var us = GetCookie('<%=COOKIE_RELMGR_SHOW_VIEW%>');
 290 
   var us = GetCookie('<%=COOKIE_RELMGR_SHOW_VIEW%>');
177 
	var aShowViews = new Array();
 291 
   var aShowViews = new Array();
178 
 
 292 
 
179 
	if (us)
 293 
   if (us)
180 
	{
 294 
   {
181 
		// Cookie is not empty, hence just append new value
 295 
      // Cookie is not empty, hence just append new value
182 
		var aViews = us.split(',');
 296 
      var aViews = us.split(',');
183 
 
 297 
 
184 
		// Make sure that view is not already on the list
 298 
      // Make sure that view is not already on the list
185 
		for (i=0; i<aViews.length; i++)
 299 
      for (i=0; i<aViews.length; i++)
186 
		{
 300 
      {
187 
			if (aViews[i] != ViewId)
 301 
         if (aViews[i] != ViewId)
188 
			{
 302 
         {
189 
				aShowViews.push(aViews[i]);
 303 
            aShowViews.push(aViews[i]);
190 
			}
 304 
         }
191 
		}
 305 
      }
192 
 
 306 
 
193 
		// Make a new view list to be stored in cookie
 307 
      // Make a new view list to be stored in cookie
194 
		us = aShowViews.join(',');
 308 
      us = aShowViews.join(',');
195 
 
 - 
 
196 
	}
 309 
   }
197 
	else
 310 
   else
198 
	{
 311 
   {
199 
		us = '';
 312 
      us = '';
200 
	}
 313 
   }
201 
 
 - 
 
202 
	// Store to cookie
 - 
 
203 
	document.cookie = '<%=COOKIE_RELMGR_SHOW_VIEW%>' + '=' + us;
 - 
 
204 
 
 314 
 
- 
 
 315 
   // Store to cookie
- 
 
 316 
   document.cookie = '<%=COOKIE_RELMGR_SHOW_VIEW%>' + '=' + us;
205 
}
 317 
}
206 
 
 318 
 
207 
function AddToShowView ( ViewId )
 319 
function AddToShowView ( ViewId )
208 
{
 320 
{
209 
	// Get current cookie settings
 321 
   // Get current cookie settings
210 
	var us = GetCookie('<%=COOKIE_RELMGR_SHOW_VIEW%>');
 322 
   var us = GetCookie('<%=COOKIE_RELMGR_SHOW_VIEW%>');
211 
	var aShowViews = new Array();
 323 
   var aShowViews = new Array();
- 
 
 324 
 
- 
 
 325 
   //Release Manager Cookie Available on Show View
- 
 
 326 
   if ( us )
- 
 
 327 
   {
- 
 
 328 
      // Cookie is not empty, hence just append new value
- 
 
 329 
      var aViews = us.split(',');
- 
 
 330 
 
- 
 
 331 
      // Make sure that view is not already on the list
- 
 
 332 
      for (i=0; i<aViews.length; i++)
- 
 
 333 
      {
- 
 
 334 
         if (aViews[i] != ViewId)
- 
 
 335 
         {
- 
 
 336 
            aShowViews.push(aViews[i]);
- 
 
 337 
         }
- 
 
 338 
      }
- 
 
 339 
 
- 
 
 340 
      // Make a new view list to be stored in cookie
- 
 
 341 
      us = aShowViews.join(',') + ',' + ViewId;
- 
 
 342 
   }
- 
 
 343 
   else//Release Manager Cookie Not Available on Show View
- 
 
 344 
   {
- 
 
 345 
      // Cookie is empty, just add this value
- 
 
 346 
      us = ViewId;
212 
 
 347 
 
213 
	//Release Manager Cookie Available on Show View
 - 
 
214 
	if ( us )
 - 
 
215 
	{
 - 
 
216 
 
 - 
 
217 
		// Cookie is not empty, hence just append new value
 - 
 
218 
		var aViews = us.split(',');
 - 
 
219 
 
 - 
 
220 
		// Make sure that view is not already on the list
 - 
 
221 
		for (i=0; i<aViews.length; i++)
 - 
 
222 
		{
 - 
 
223 
			if (aViews[i] != ViewId)
 - 
 
224 
			{
 - 
 
225 
				aShowViews.push(aViews[i]);
 - 
 
226 
			}
 348 
   }
227 
		}
 - 
 
228 
 
 - 
 
229 
		// Make a new view list to be stored in cookie
 - 
 
230 
		us = aShowViews.join(',') + ',' + ViewId;
 - 
 
231 
 
 - 
 
232 
 
 - 
 
233 
	}
 - 
 
234 
	else//Release Manager Cookie Not Available on Show View
 - 
 
235 
	{
 - 
 
236 
		// Cookie is empty, just add this value
 - 
 
237 
		us = ViewId;
 - 
 
238 
 
 - 
 
239 
	}
 - 
 
240 
 
 - 
 
241 
 
 - 
 
242 
	// Store to cookie
 - 
 
243 
	document.cookie = '<%=COOKIE_RELMGR_SHOW_VIEW%>' + '=' + us;
 - 
 
244 
 
 349 
 
- 
 
 350 
   // Store to cookie
- 
 
 351 
   document.cookie = '<%=COOKIE_RELMGR_SHOW_VIEW%>' + '=' + us;
245 
}
 352 
}
246 
 
 353 
 
247 
 
 354 
 
248 
//-->
 355 
//-->
249 
</script>
 356 
</script>
250 
 
 357 
 
251 
<%
 358 
<%
252 
'------------------------------------------------------------------------------------------------------------------------------------------------
 359 
'------------------------------------------------------------------------------------------------------------------------------------------------
253 
Function GetEnvTab ( sEnvTab )
 360 
Function GetEnvTab ( sEnvTab )
254 
	If sEnvTab <> "" Then
 361 
   If sEnvTab <> "" Then
255 
		GetEnvTab = sEnvTab
 362 
      GetEnvTab = sEnvTab
256 
		Response.Cookies(COOKIE_RELEASE_MANAGER_MEMORY)("envtab") = sEnvTab
 363 
      Response.Cookies(COOKIE_RELEASE_MANAGER_MEMORY)("envtab") = sEnvTab
257 
	Else
 364 
   Else
258 
		If Request.Cookies(COOKIE_RELEASE_MANAGER_MEMORY)("envtab") <> "" Then
 365 
      If Request.Cookies(COOKIE_RELEASE_MANAGER_MEMORY)("envtab") <> "" Then
259 
			GetEnvTab = Request.Cookies(COOKIE_RELEASE_MANAGER_MEMORY)("envtab")
 366 
         GetEnvTab = Request.Cookies(COOKIE_RELEASE_MANAGER_MEMORY)("envtab")
260 
		Else
 367 
      Else
261 
			GetEnvTab = enumENVTAB_WORK_IN_PROGRESS
 368 
         GetEnvTab = enumENVTAB_WORK_IN_PROGRESS
262 
			Response.Cookies(COOKIE_RELEASE_MANAGER_MEMORY)("envtab") = enumENVTAB_WORK_IN_PROGRESS
 369 
         Response.Cookies(COOKIE_RELEASE_MANAGER_MEMORY)("envtab") = enumENVTAB_WORK_IN_PROGRESS
263 
		End If
 370 
      End If
264 
	End If
 371 
   End If
265 
 
 372 
 
266 
End Function
 373 
End Function
267 
'------------------------------------------------------------------------------------------------------------------------------------------------
 374 
'------------------------------------------------------------------------------------------------------------------------------------------------
268 
Sub Display_Env_BaseView ( NNbase_view_id, SSbase_view, BBviewCollapsed, SScontents )
 375 
Sub Display_Env_BaseView ( NNbase_view_id, SSbase_view, BBviewCollapsed, SScontents )
269 
%>
 376 
%>
270 
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
 377 
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
271 
  <tr>
 378 
   <tr>
272 
    <td width="1" align="left" valign="top" bgcolor="#dad7c8"><img src="images/p_ctl.gif" width="3" height="3"></td>
 379 
      <td width="1" align="left" valign="top" bgcolor="#dad7c8"><img src="images/p_ctl.gif" width="3" height="3"></td>
273 
    <td width="100%" bgcolor="#dad7c8"><img src="images/spacer.gif" width="1" height="1"></td>
 380 
      <td width="100%" bgcolor="#dad7c8"><img src="images/spacer.gif" width="1" height="1"></td>
274 
    <td width="1" bgcolor="#dad7c8"><img src="images/spacer.gif" width="1" height="1"></td>
 381 
      <td width="1" bgcolor="#dad7c8"><img src="images/spacer.gif" width="1" height="1"></td>
275 
    <td width="1" align="right" valign="top" bgcolor="#dad7c8"><img src="images/p_ctr.gif" width="3" height="3"></td>
 382 
      <td width="1" align="right" valign="top" bgcolor="#dad7c8"><img src="images/p_ctr.gif" width="3" height="3"></td>
276 
  </tr>
 383 
   </tr>
277 
  <tr>
 384 
   <tr>
278 
    <td align="left" valign="top" bgcolor="#dad7c8">&nbsp;</td>
 385 
      <td align="left" valign="top" bgcolor="#dad7c8">&nbsp;</td>
279 
    <td bgcolor="#dad7c8"><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>
 386 
      <td bgcolor="#dad7c8"><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>
280 
    <td align="right" bgcolor="#dad7c8"><a href="javascript:;" onClick="RequestViewContent('?envtab=<%=nEnvTab%>&rtag_id=<%=parRtag_id%>&view_id=<%=NNbase_view_id%>&script_name=<%=ScriptName%>','<%=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"></a></td>
 387 
      <td align="right" bgcolor="#dad7c8"><a href="javascript:;" onClick="RequestViewContent('?envtab=<%=nEnvTab%>&rtag_id=<%=parRtag_id%>&view_id=<%=NNbase_view_id%>&script_name=<%=ScriptName%>','<%=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"></a></td>
281 
    <td align="right" valign="top" bgcolor="#dad7c8">&nbsp;</td>
 388 
      <td align="right" valign="top" bgcolor="#dad7c8">&nbsp;</td>
282 
  </tr>
 389 
   </tr>
283 
</table>
 390 
</table>
284 
<DIV id="ENVDIV<%=NNbase_view_id%>" class="envContent" <%If BBviewCollapsed Then %>style="display:none;"<%Else%>style="display:block;"<%End If%>>
 391 
<DIV id="ENVDIV<%=NNbase_view_id%>" class="envContent" <%If BBviewCollapsed Then %>style="display:none;"<%Else%>style="display:block;"<%End If%>>
285 
<%If NOT BBviewCollapsed Then %>
 392 
   <%If NOT BBviewCollapsed Then %>
286 
<%=SScontents%>
 393 
      <%=SScontents%>
287 
<%Else%>
 394 
   <%Else%>
288 
<%=enumLOADING%>
 395 
      <%=enumLOADING%>
289 
<%End If%></DIV>
 396 
   <%End If%>
- 
 
 397 
</DIV>
290 
<br>
 398 
<br>
291 
<%
 399 
<%
292 
End Sub
 400 
End Sub
293 
'------------------------------------------------------------------------------------------------------------------------------------------------
 401 
'------------------------------------------------------------------------------------------------------------------------------------------------
294 
Sub Print_View( NNEnvTab, SSviewtype, NNrtag_id, SSshowviews, NNuser_id )
 402 
Sub Print_View( NNEnvTab, SSviewtype, NNrtag_id, SSshowviews, NNuser_id )
295 
	Dim rsView, Query_String
 403 
   Dim rsView, Query_String
296 
	'Dim btn1
 404 
   'Dim btn1
297 
	Dim tmpURL
 405 
   Dim tmpURL
298 
	Dim SSscript
 406 
   Dim SSscript
299 
	Dim qstrPar
 407 
   Dim qstrPar
300 
	Dim nViewType
 408 
   Dim nViewType
301 
	Dim nTrueRecordCount
 409 
   Dim nTrueRecordCount
302 
	Dim nOperation
 410 
   Dim nOperation
303 
	Dim relContentsSTR, viewCollapsed, curr_view_id, view_name
 411 
   Dim relContentsSTR, viewCollapsed, curr_view_id, view_name
304 
 
 412 
 
305 
	If scriptName = "find.asp" Then
 413 
   If scriptName = "find.asp" Then
306 
		SSscript = "dependencies.asp"
 414 
      SSscript = "dependencies.asp"
307 
	Else
 415 
   Else
308 
		SSscript = scriptName
 416 
      SSscript = scriptName
309 
	End If
 417 
   End If
310 
 
 418 
 
311 
	If SSviewtype = "guest" Then
 419 
   If SSviewtype = "guest" Then
312 
		nViewType = 1
 420 
      nViewType = 1
313 
		qstrPar = "Bshow"
 421 
      qstrPar = "Bshow"
314 
	ElseIf SSviewtype = "personal" Then
 422 
   ElseIf SSviewtype = "personal" Then
315 
		nViewType = 2
 423 
      nViewType = 2
316 
		qstrPar = "Pshow"
 424 
      qstrPar = "Pshow"
317 
	End If
 425 
   End If
318 
 
 426 
 
319 
 
 427 
   OraDatabase.Parameters.Add "VIEW_TYPE",           nViewType, ORAPARM_INPUT, ORATYPE_NUMBER
320 
	OraDatabase.Parameters.Add "VIEW_TYPE",           nViewType, ORAPARM_INPUT, ORATYPE_NUMBER
 428 
   'OraDatabase.Parameters.Add "VIEW_ID_SHOW_LIST",   ShowView( Pipes2Commas( SSshowviews ), SSviewtype ), ORAPARM_INPUT, ORATYPE_VARCHAR2
321 
	'OraDatabase.Parameters.Add "VIEW_ID_SHOW_LIST",   ShowView( Pipes2Commas( SSshowviews ), SSviewtype ), ORAPARM_INPUT, ORATYPE_VARCHAR2
 429 
   OraDatabase.Parameters.Add "VIEW_ID_SHOW_LIST",   GetShowViewList(), ORAPARM_INPUT, ORATYPE_VARCHAR2
322 
	OraDatabase.Parameters.Add "VIEW_ID_SHOW_LIST",   GetShowViewList(), ORAPARM_INPUT, ORATYPE_VARCHAR2
 430 
   OraDatabase.Parameters.Add "RTAG_ID",             NNrtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
323 
	OraDatabase.Parameters.Add "RTAG_ID",             NNrtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
 431 
   OraDatabase.Parameters.Add "USER_ID",             NNuser_id, ORAPARM_INPUT, ORATYPE_NUMBER
324 
	OraDatabase.Parameters.Add "USER_ID",             NNuser_id, ORAPARM_INPUT, ORATYPE_NUMBER
 432 
   OraDatabase.Parameters.Add "TRUE_RECORD_COUNT",   NULL, ORAPARM_OUTPUT, ORATYPE_NUMBER
325 
	OraDatabase.Parameters.Add "TRUE_RECORD_COUNT",   NULL, ORAPARM_OUTPUT, ORATYPE_NUMBER
 433 
   OraDatabase.Parameters.Add "RECORD_SET",          NULL, ORAPARM_OUTPUT, ORATYPE_CURSOR
326 
	OraDatabase.Parameters.Add "RECORD_SET",          NULL, ORAPARM_OUTPUT, ORATYPE_CURSOR
 434 
 
327 
 
 435 
   'If it's a Deployment View
328 
	'If it's a Deployment View
 436 
   If parDview = "enable" Then
329 
	If parDview = "enable" Then
 437 
      ' Decide which environment list is to be displayed to the Integrators/Testers
330 
		' Decide which environment list is to be displayed to the Integrators/Testers
 438 
      Select Case CInt( NNEnvTab )
331 
		Select Case CInt( NNEnvTab )
 439 
         Case enumENVTAB_PRODRELEASE
332 
			Case enumENVTAB_PRODRELEASE
 440 
            OraDatabase.ExecuteSQL "BEGIN  PK_ENVIRONMENT.GET_PRODRELEASE_ITEMS ( :RTAG_ID, :TRUE_RECORD_COUNT, :RECORD_SET );  END;"
333 
				OraDatabase.ExecuteSQL "BEGIN  PK_ENVIRONMENT.GET_PRODRELEASE_ITEMS ( :RTAG_ID, :TRUE_RECORD_COUNT, :RECORD_SET );  END;"
 441 
 
334 
 
 442 
         Case enumENVTAB_INTEGRATE
335 
			Case enumENVTAB_INTEGRATE
 443 
            OraDatabase.ExecuteSQL "BEGIN  PK_ENVIRONMENT.GET_INTEGRATION_ITEMS ( :RTAG_ID, :TRUE_RECORD_COUNT, :RECORD_SET );  END;"
336 
				OraDatabase.ExecuteSQL "BEGIN  PK_ENVIRONMENT.GET_INTEGRATION_ITEMS ( :RTAG_ID, :TRUE_RECORD_COUNT, :RECORD_SET );  END;"
 444 
 
337 
 
 445 
         Case enumENVTAB_TEST
338 
			Case enumENVTAB_TEST
 446 
            OraDatabase.ExecuteSQL "BEGIN  PK_ENVIRONMENT.GET_TEST_ITEMS ( :RTAG_ID, :TRUE_RECORD_COUNT, :RECORD_SET );  END;"
339 
				OraDatabase.ExecuteSQL "BEGIN  PK_ENVIRONMENT.GET_TEST_ITEMS ( :RTAG_ID, :TRUE_RECORD_COUNT, :RECORD_SET );  END;"
 447 
 
340 
 
 448 
         Case enumENVTAB_DEPLOY
341 
			Case enumENVTAB_DEPLOY
 449 
            OraDatabase.ExecuteSQL "BEGIN  PK_ENVIRONMENT.GET_DEPLOY_ITEMS ( :RTAG_ID, :TRUE_RECORD_COUNT, :RECORD_SET );  END;"
342 
				OraDatabase.ExecuteSQL "BEGIN  PK_ENVIRONMENT.GET_DEPLOY_ITEMS ( :RTAG_ID, :TRUE_RECORD_COUNT, :RECORD_SET );  END;"
 450 
 
343 
 
 451 
         Case enumENVTAB_REJECT
344 
			Case enumENVTAB_REJECT
 452 
            OraDatabase.ExecuteSQL "BEGIN  PK_ENVIRONMENT.GET_REJECT_ITEMS ( :RTAG_ID, :TRUE_RECORD_COUNT, :RECORD_SET );  END;"
345 
				OraDatabase.ExecuteSQL "BEGIN  PK_ENVIRONMENT.GET_REJECT_ITEMS ( :RTAG_ID, :TRUE_RECORD_COUNT, :RECORD_SET );  END;"
 453 
 
346 
 
 454 
      End Select
347 
		End Select
 455 
 
348 
 
 456 
   Else
349 
	Else
 457 
      ' Decide which environment list is to be displayed
350 
		' Decide which environment list is to be displayed
 458 
      Select Case CInt( NNEnvTab )
351 
		Select Case CInt( NNEnvTab )
 459 
         Case enumENVTAB_WORK_IN_PROGRESS
352 
			Case enumENVTAB_WORK_IN_PROGRESS
 460 
            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;"
353 
				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;"
 461 
 
354 
 
 462 
         Case enumENVTAB_PLANNED
355 
			Case enumENVTAB_PLANNED
 463 
            OraDatabase.ExecuteSQL "BEGIN  PK_ENVIRONMENT.GET_PENDING_ITEMS ( :VIEW_TYPE, :USER_ID, :RTAG_ID, :VIEW_ID_SHOW_LIST, :TRUE_RECORD_COUNT, :RECORD_SET );  END;"
356 
				OraDatabase.ExecuteSQL "BEGIN  PK_ENVIRONMENT.GET_PENDING_ITEMS ( :VIEW_TYPE, :USER_ID, :RTAG_ID, :VIEW_ID_SHOW_LIST, :TRUE_RECORD_COUNT, :RECORD_SET );  END;"
 464 
 
357 
 
 465 
         Case enumENVTAB_RELEASED
358 
			Case enumENVTAB_RELEASED
 466 
            OraDatabase.ExecuteSQL "BEGIN  PK_ENVIRONMENT.GET_RELEASED_ITEMS ( :VIEW_TYPE, :USER_ID, :RTAG_ID, :VIEW_ID_SHOW_LIST, :TRUE_RECORD_COUNT, :RECORD_SET );  END;"
359 
				OraDatabase.ExecuteSQL "BEGIN  PK_ENVIRONMENT.GET_RELEASED_ITEMS ( :VIEW_TYPE, :USER_ID, :RTAG_ID, :VIEW_ID_SHOW_LIST, :TRUE_RECORD_COUNT, :RECORD_SET );  END;"
 467 
 
360 
 
 468 
         Case Else
361 
			Case Else
 469 
            OraDatabase.ExecuteSQL "BEGIN  PK_ENVIRONMENT.GET_ENVIRONMENT_ITEMS ( :VIEW_TYPE, :USER_ID, :RTAG_ID, :VIEW_ID_SHOW_LIST, :TRUE_RECORD_COUNT, :RECORD_SET );  END;"
362 
				OraDatabase.ExecuteSQL "BEGIN  PK_ENVIRONMENT.GET_ENVIRONMENT_ITEMS ( :VIEW_TYPE, :USER_ID, :RTAG_ID, :VIEW_ID_SHOW_LIST, :TRUE_RECORD_COUNT, :RECORD_SET );  END;"
 470 
 
363 
 
 471 
      End Select
364 
		End Select
 472 
 
365 
 
 473 
   End If
366 
	End If
 474 
 
367 
 
 475 
   ' Get Record set from database
368 
 
 476 
   Set rsView = OraDatabase.Parameters("RECORD_SET").Value
369 
 
 477 
   nTrueRecordCount = OraDatabase.Parameters("TRUE_RECORD_COUNT").Value
370 
	' Get Record set from database
 478 
 
371 
	Set rsView = OraDatabase.Parameters("RECORD_SET").Value
 479 
   OraDatabase.Parameters.Remove "RTAG_ID"
372 
	nTrueRecordCount = OraDatabase.Parameters("TRUE_RECORD_COUNT").Value
 480 
   OraDatabase.Parameters.Remove "USER_ID"
373 
 
 481 
   OraDatabase.Parameters.Remove "VIEW_TYPE"
374 
 
 482 
   OraDatabase.Parameters.Remove "VIEW_ID_SHOW_LIST"
375 
	OraDatabase.Parameters.Remove "RTAG_ID"
 483 
   OraDatabase.Parameters.Remove "RECORD_SET"
376 
	OraDatabase.Parameters.Remove "USER_ID"
 484 
   OraDatabase.Parameters.Remove "TRUE_RECORD_COUNT"
377 
	OraDatabase.Parameters.Remove "VIEW_TYPE"
 485 
 
378 
	OraDatabase.Parameters.Remove "VIEW_ID_SHOW_LIST"
 486 
   ' Initialise variables
379 
	OraDatabase.Parameters.Remove "RECORD_SET"
 487 
   If ((NOT rsView.BOF) AND (NOT rsView.EOF)) Then
380 
	OraDatabase.Parameters.Remove "TRUE_RECORD_COUNT"
 488 
      relContentsSTR = ""
381 
 
 489 
      viewCollapsed = FALSE
382 
 
 490 
      curr_view_id = rsView("view_id")      ' Set current view
383 
	' Initialise variables
 491 
      view_name = rsView("view_name")
384 
	If ((NOT rsView.BOF) AND (NOT rsView.EOF)) Then
 492 
   End If
385 
		relContentsSTR = ""
 493 
 
386 
		viewCollapsed = FALSE
 494 
   While ((NOT rsView.BOF) AND (NOT rsView.EOF))
387 
		curr_view_id = rsView("view_id")		' Set current view
 495 
      '==== Get View Contents ====
388 
		view_name = rsView("view_name")
 496 
      If NOT IsNull(rsView.Fields("pv_id")) Then
389 
	End If
 497 
         tmpURL = SSscript &"?pv_id="& rsView.Fields("pv_id") &"&rtag_id="& parRtag_id
390 
 
 498 
         IMG_locked = ""
391 
 
 499 
         If rsView.Fields("dlocked") = "Y" Then IMG_locked = imgLocked
392 
 
 500 
 
393 
	While ((NOT rsView.BOF) AND (NOT rsView.EOF))
 501 
         ' DEVI-45275 - Normally, dlocked=Y items are denoted with a padlock icon on the web page. Since we can now merge
394 
		'==== Get View Contents ====
 502 
         ' into the pending tab, the dlocked=Y items that end up there would not give any visual indication to the user
395 
		If NOT IsNull(rsView.Fields("pv_id")) Then
 503 
         ' as to why they are present. So, instead of the padlock icon, display the added or removed icon to indicate
396 
			tmpURL = SSscript &"?pv_id="& rsView.Fields("pv_id") &"&rtag_id="& parRtag_id
 504 
         ' what the intended action is to be, once the pending item is approved.
397 
			IMG_locked = ""
 505 
         ' Obviously, this functionality does not apply if we are in the deployment view, and only applies if viewing
398 
			If rsView.Fields("dlocked") = "Y" Then IMG_locked = imgLocked
 506 
         ' the PENDING or ALL environment tabs.
399 
 
 507 
         ' With regard to the operation value, A = Added, S = Subtracted
400 
			' DEVI-45275 - Normally, dlocked=Y items are denoted with a padlock icon on the web page. Since we can now merge
 508 
         nOperation = " "
401 
			' into the pending tab, the dlocked=Y items that end up there would not give any visual indication to the user
 509 
         If parDview <> "enable" AND (CInt( NNEnvTab ) = enumENVTAB_PLANNED OR CInt( NNEnvTab ) = enumENVTAB_ALL) Then
402 
			' as to why they are present. So, instead of the padlock icon, display the added or removed icon to indicate
 510 
            nOperation = rsView.Fields("operation")   ' NB. this field is only availble if earlier query was GET_PENDING_ITEMS or GET_ENVIRONMENT_ITEMS
403 
			' what the intended action is to be, once the pending item is approved.
 511 
            If nOperation = "A" Then
404 
			' Obviously, this functionality does not apply if we are in the deployment view, and only applies if viewing
 512 
               IMG_locked = imgAdded
405 
			' the PENDING or ALL environment tabs.
 513 
            ElseIf nOperation = "S" Then
406 
			' With regard to the operation value, A = Added, S = Subtracted
 514 
               IMG_locked = imgRemoved
407 
			nOperation = " "
 515 
            End If
408 
			If parDview <> "enable" AND (CInt( NNEnvTab ) = enumENVTAB_PLANNED OR CInt( NNEnvTab ) = enumENVTAB_ALL) Then
 516 
         End If
409 
				nOperation = rsView.Fields("operation")	' NB. this field is only availble if earlier query was GET_PENDING_ITEMS or GET_ENVIRONMENT_ITEMS
 517 
 
410 
				If nOperation = "A" Then
 518 
         relContentsSTR = relContentsSTR & "<tr>" & VBNewLine
411 
					IMG_locked = imgAdded
 519 
 
412 
				ElseIf nOperation = "S" Then
 520 
         If rsView("pkg_state") = 0 And rsView.Fields("deprecated_state") <> "" Then
413 
					IMG_locked = imgRemoved
 521 
            relContentsSTR = relContentsSTR & "  <td width='1%'>"& DefineStateIcon ( rsView.Fields("deprecated_state"), rsView("dlocked"), NULL, NULL, pkgInfoHash.Item("build_type"), TRUE ) &"</td>"& VBNewLine
414 
				End If
 522 
         Else
415 
			End If
 523 
            If (parDview <> "enable") AND ( ( CInt(NNEnvTab) = enumENVTAB_PLANNED ) OR ( Request("envtab") = enumENVTAB_PLANNED ) ) Then
416 
 
 524 
 
417 
			relContentsSTR = relContentsSTR & "<tr>" & VBNewLine
 525 
               ' if package version is unlocked, rejected, or pending approval, or is to be added/subtracted to/from the release (DEVI-45275), then
418 
 
 526 
               If (rsView("dlocked") = "N") OR (rsView("dlocked") = "R") OR (rsView("dlocked") = "P") OR (nOperation = "A") OR (nOperation = "S") Then
419 
 
 527 
                  checked = NULL
420 
			If rsView("pkg_state") = 0 And rsView.Fields("deprecated_state") <> "" Then
 528 
                  disabled = NULL
421 
				relContentsSTR = relContentsSTR & "  <td width='1%'>"& DefineStateIcon ( rsView.Fields("deprecated_state"), rsView("dlocked"), NULL, NULL, pkgInfoHash.Item("build_type"), TRUE ) &"</td>"& VBNewLine
 529 
                  ' disable check box if not logged in, or if not in open mode and user has no permission to approve pending
422 
			Else
 530 
                  If objAccessControl.UserLogedIn Then
423 
				If (parDview <> "enable") AND ( ( CInt(NNEnvTab) = enumENVTAB_PLANNED ) OR ( Request("envtab") = enumENVTAB_PLANNED ) ) Then
 531 
                     If ( ReleaseMode <> enumDB_RELEASE_IN_OPEN_MODE ) Then
424 
 
 532 
                        If NOT objAccessControl.IsActive("ApproveForAutoBuild") Then
425 
					' if package version is unlocked, rejected, or pending approval, or is to be added/subtracted to/from the release (DEVI-45275), then
 533 
                           disabled = "disabled"
426 
					If (rsView("dlocked") = "N") OR (rsView("dlocked") = "R") OR (rsView("dlocked") = "P") OR (nOperation = "A") OR (nOperation = "S") Then
 534 
                        End If
427 
						checked = NULL
 535 
                     End If
428 
						disabled = NULL
 536 
                  Else
429 
						' disable check box if not logged in, or if not in open mode and user has no permission to approve pending
 537 
                     disabled = "disabled"
430 
						If objAccessControl.UserLogedIn Then
 538 
                  End If
431 
							If ( ReleaseMode <> enumDB_RELEASE_IN_OPEN_MODE ) Then
 539 
 
432 
								If NOT objAccessControl.IsActive("ApproveForAutoBuild") Then
 540 
               Else ' always check and disable the checkbox
433 
									disabled = "disabled"
 541 
                  checked = "checked"
434 
								End If
 542 
                  disabled = "disabled"
435 
							End If
 543 
               End If
436 
						Else
 544 
 
437 
							disabled = "disabled"
 545 
               relContentsSTR = relContentsSTR & " <td width='1%'><input name='pv_id_list' id='pv_id_list' type=checkbox value="&rsView.Fields("pv_id")&" "&checked&" "&disabled&"></td>"& VBNewLine
438 
						End If
 546 
            Else
439 
 
 547 
               relContentsSTR = relContentsSTR & " <td width='1%'>"& DefineStateIcon ( rsView("pkg_state"), rsView("dlocked"), NULL, NULL, pkgInfoHash.Item("build_type"), TRUE ) &"</td>"& VBNewLine
440 
					Else ' always check and disable the checkbox
 548 
            End If
441 
						checked = "checked"
 549 
         End If
442 
						disabled = "disabled"
 550 
 
443 
					End If
 551 
         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
444 
 
 552 
         relContentsSTR = relContentsSTR & "  <td width='1%' nowrap class='envPkg'>"& rsView.Fields("pkg_version") &"</td>" & VBNewLine
445 
					relContentsSTR = relContentsSTR & " <td width='1%'><INPUT type=checkbox name='pv_id_list' value="&rsView.Fields("pv_id")&" "&checked&" "&disabled&"></td>"& VBNewLine
 553 
         relContentsSTR = relContentsSTR & "  <td width='1%'>"& IMG_locked &"</td>"
446 
				Else
 554 
         relContentsSTR = relContentsSTR & "</tr>" & VBNewLine
447 
					relContentsSTR = relContentsSTR & "  <td width='1%'>"& DefineStateIcon ( rsView("pkg_state"), rsView("dlocked"), NULL, NULL, pkgInfoHash.Item("build_type"), TRUE ) &"</td>"& VBNewLine
 555 
      Else
448 
				End If
 556 
         'relContentsSTR = relContentsSTR & "<tr><td><label class='form_txt' disabled>...</label></td></tr>"      ' Collapsed view displays dots
449 
			End If
 557 
 
450 
 
 558 
         viewCollapsed = TRUE
451 
			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
 559 
      End If
452 
			relContentsSTR = relContentsSTR & "  <td width='1%' nowrap class='envPkg'>"& rsView.Fields("pkg_version") &"</td>" & VBNewLine
 560 
 
453 
			relContentsSTR = relContentsSTR & "  <td width='1%'>"& IMG_locked &"</td>"
 561 
      rsView.MoveNext
454 
			relContentsSTR = relContentsSTR & "</tr>" & VBNewLine
 562 
 
455 
		Else
 563 
      If ((NOT rsView.BOF) AND (NOT rsView.EOF)) Then
456 
			'relContentsSTR = relContentsSTR & "<tr><td><label class='form_txt' disabled>...</label></td></tr>"		' Collapsed view displays dots
 564 
         ' NOT end of the record set
457 
 
 565 
         If curr_view_id <> rsView("view_id") Then
458 
			viewCollapsed = TRUE
 566 
            '====== Draw buttons =================================
459 
		End If
 567 
            'If InStrPipes( SSshowviews, curr_view_id ) Then
460 
 
 568 
            '   btn1 = "<a href='"& SSscript &"?"& qstrPar &"="& RemoveFromStrPipes( SSshowviews, curr_view_id ) &"&pv_id="& Request("pv_id") &"&rtag_id="& NNrtag_id &"' >"& imgMinimise &"</a>"
461 
		rsView.MoveNext
 569 
            'Else
462 
 
 570 
            '   btn1 = "<a href='"& SSscript &"?"& qstrPar &"=|"& curr_view_id &"|"& SSshowviews &"&pv_id="& Request("pv_id") &"&rtag_id="& NNrtag_id &"'>"& imgMaximise &"</a>"
463 
 
 571 
            'End If
464 
		If ((NOT rsView.BOF) AND (NOT rsView.EOF)) Then
 572 
 
465 
			' NOT end of the record set
 573 
            '====== Print contents ===============================
466 
			If curr_view_id <> rsView("view_id") Then
 574 
            relContentsSTR = "<table width='100%' border='0' cellspacing='0' cellpadding='1'>" & relContentsSTR & "</table>"
467 
				'====== Draw buttons =================================
 575 
            Call Display_Env_BaseView ( curr_view_id, view_name, viewCollapsed, relContentsSTR )
468 
				'If InStrPipes( SSshowviews, curr_view_id ) Then
 576 
 
469 
				'	btn1 = "<a href='"& SSscript &"?"& qstrPar &"="& RemoveFromStrPipes( SSshowviews, curr_view_id ) &"&pv_id="& Request("pv_id") &"&rtag_id="& NNrtag_id &"' >"& imgMinimise &"</a>"
 577 
            curr_view_id = rsView("view_id")
470 
				'Else
 578 
            view_name = rsView("view_name")
471 
				'	btn1 = "<a href='"& SSscript &"?"& qstrPar &"=|"& curr_view_id &"|"& SSshowviews &"&pv_id="& Request("pv_id") &"&rtag_id="& NNrtag_id &"'>"& imgMaximise &"</a>"
 579 
            relContentsSTR = ""      ' Empty the contents string
472 
				'End If
 580 
            viewCollapsed = FALSE
473 
 
 581 
         End If
474 
				'====== Print contents ===============================
 582 
 
475 
				relContentsSTR = "<table width='100%' border='0' cellspacing='0' cellpadding='1'>" & relContentsSTR & "</table>"
 583 
      Else
476 
				Call Display_Env_BaseView ( curr_view_id, view_name, viewCollapsed, relContentsSTR )
 584 
         ' End of the record set
477 
 
 585 
 
478 
				curr_view_id = rsView("view_id")
 586 
         '====== Draw buttons =================================
479 
				view_name = rsView("view_name")
 587 
         'If InStrPipes( SSshowviews, curr_view_id ) Then
480 
				relContentsSTR = ""		' Empty the contents string
 588 
         '   btn1 = "<a href='"& SSscript &"?"& qstrPar &"="& RemoveFromStrPipes( SSshowviews, curr_view_id ) &"&pv_id="& Request("pv_id") &"&rtag_id="& NNrtag_id &"' >"& imgMinimise &"</a>"
481 
				viewCollapsed = FALSE
 589 
         'Else
482 
			End If
 590 
         '   btn1 = "<a href='"& SSscript &"?"& qstrPar &"=|"& curr_view_id &"|"& SSshowviews &"&pv_id="& Request("pv_id") &"&rtag_id="& NNrtag_id &"'>"& imgMaximise &"</a>"
483 
 
 591 
         'End If
484 
		Else
 592 
 
485 
			' End of the record set
 593 
         '====== Print contents ===============================
486 
 
 594 
         relContentsSTR = "<table width='100%' border='0' cellspacing='0' cellpadding='1'>" & relContentsSTR & "</table>"
487 
			'====== Draw buttons =================================
 595 
         Call Display_Env_BaseView ( curr_view_id, view_name, viewCollapsed, relContentsSTR )
488 
			'If InStrPipes( SSshowviews, curr_view_id ) Then
 596 
 
489 
			'	btn1 = "<a href='"& SSscript &"?"& qstrPar &"="& RemoveFromStrPipes( SSshowviews, curr_view_id ) &"&pv_id="& Request("pv_id") &"&rtag_id="& NNrtag_id &"' >"& imgMinimise &"</a>"
 597 
      End If
490 
			'Else
 598 
 
491 
			'	btn1 = "<a href='"& SSscript &"?"& qstrPar &"=|"& curr_view_id &"|"& SSshowviews &"&pv_id="& Request("pv_id") &"&rtag_id="& NNrtag_id &"'>"& imgMaximise &"</a>"
 599 
   WEnd
492 
			'End If
 600 
 
493 
 
 601 
   If relContentsSTR <> "" Then
494 
			'====== Print contents ===============================
 602 
      Response.write "<a href='help/icons_F017.asp' target='_blank' class='body_scol'>Icon Legend...</a><br>"
495 
			relContentsSTR = "<table width='100%' border='0' cellspacing='0' cellpadding='1'>" & relContentsSTR & "</table>"
 603 
   End If
496 
			Call Display_Env_BaseView ( curr_view_id, view_name, viewCollapsed, relContentsSTR )
 604 
 
497 
 
 605 
   If nTrueRecordCount > 0 Then
498 
		End If
 606 
      If rsView.RecordCount < 1 Then
499 
 
 607 
         'If qstrPar = "Bshow" Then
500 
	WEnd
 608 
         '   'Release is empty. Draw default box for Base view
501 
 
 609 
         '   Call DisplayInfo ( "EMPTY_RELEASE_CONTENTS", "100%" )
502 
 
 610 
         '
503 
 
 611 
         'End If
504 
	If relContentsSTR <> "" Then
 612 
 
505 
		Response.write "<a href='help/icons_F017.asp' target='_blank' class='body_scol'>Icon Legend...</a><br>"
 613 
         If qstrPar = "Pshow"  Then
506 
	End If
 614 
            'Release is empty. Draw default box for Personal view
507 
 
 615 
            Call DisplayInfo ( "PERSONAL_VIEW_NOT_SETUP", "100%" )
508 
	If nTrueRecordCount > 0 Then
 616 
         End If
509 
		If rsView.RecordCount < 1 Then
 617 
 
510 
			'If qstrPar = "Bshow" Then
 618 
      End If
511 
			'	'Release is empty. Draw default box for Base view
 619 
   End If
512 
			'	Call DisplayInfo ( "EMPTY_RELEASE_CONTENTS", "100%" )
 620 
 
513 
			'
 621 
   ' Destroy
514 
			'End If
 622 
   rsView.Close
515 
 
 623 
   Set rsView = nothing
516 
			If qstrPar = "Pshow"  Then
 - 
 
517 
				'Release is empty. Draw default box for Personal view
 - 
 
518 
				Call DisplayInfo ( "PERSONAL_VIEW_NOT_SETUP", "100%" )
 - 
 
519 
			End If
 - 
 
520 
 
 - 
 
521 
		End If
 - 
 
522 
	End If
 - 
 
523 
 
 - 
 
524 
 
 - 
 
525 
	' Destroy
 - 
 
526 
	rsView.Close
 - 
 
527 
	Set rsView = nothing
 - 
 
528 
 
 - 
 
529 
End Sub
 624 
End Sub
530 
'------------------------------------------------------------------------------------------------------------------------------------------------
 625 
'------------------------------------------------------------------------------------------------------------------------------------------------
531 
Sub PopulateGetShowViews ( ByRef outShowView )
 626 
Sub PopulateGetShowViews ( ByRef outShowView )
532 
 
 627 
 
533 
	If Session(SESSION_SHOW_BASE_VIEW) <> "" Then
 628 
   If Session(SESSION_SHOW_BASE_VIEW) <> "" Then
534 
		Set outShowView = Session(SESSION_SHOW_BASE_VIEW)
 629 
      Set outShowView = Session(SESSION_SHOW_BASE_VIEW)
535 
 
 630 
 
536 
	End If
 631 
   End If
537 
End Sub
 632 
End Sub
538 
'------------------------------------------------------------------------------------------------------------------------------------------------
 633 
'------------------------------------------------------------------------------------------------------------------------------------------------
539 
Function GetShowViewList ()
 634 
Function GetShowViewList ()
540 
	'If SSparshow <> "" Then
 635 
   'If SSparshow <> "" Then
541 
	'	' get list from query string
 636 
   '   ' get list from query string
542 
	'	ShowView = SSparshow
 637 
   '   ShowView = SSparshow
543 
	'ElseIf Request.Cookies("RELEASEMANAGER_VIEW_SHOW")( SSviewtype ) <> "" Then
 638 
   'ElseIf Request.Cookies("RELEASEMANAGER_VIEW_SHOW")( SSviewtype ) <> "" Then
544 
	'	' get list from cookie
 639 
   '   ' get list from cookie
545 
	'	ShowView = Request.Cookies("RELEASEMANAGER_VIEW_SHOW")( SSviewtype )
 640 
   '   ShowView = Request.Cookies("RELEASEMANAGER_VIEW_SHOW")( SSviewtype )
546 
	'Else
 641 
   'Else
547 
	'	' no list i.e. collapse all views
 642 
   '   ' no list i.e. collapse all views
548 
	'	ShowView = -1
 643 
   '   ShowView = -1
549 
	'End If
 644 
   'End If
550 
 
 645 
 
551 
	'If oShowView.Count = 0 Then
 646 
   'If oShowView.Count = 0 Then
552 
	'	GetShowViewList = -1
 647 
   '   GetShowViewList = -1
553 
	'Else
 648 
   'Else
554 
	'	GetShowViewList = Join( oShowView.Keys, "," )
 649 
   '   GetShowViewList = Join( oShowView.Keys, "," )
555 
	'End If
 650 
   'End If
556 
 
 651 
 
557 
	If Request.Cookies(COOKIE_RELMGR_SHOW_VIEW) = "" Then
 652 
   If Request.Cookies(COOKIE_RELMGR_SHOW_VIEW) = "" Then
558 
		GetShowViewList = -1
 653 
      GetShowViewList = -1
559 
	Else
 654 
   Else
560 
		GetShowViewList = Request.Cookies(COOKIE_RELMGR_SHOW_VIEW)
 655 
      GetShowViewList = Request.Cookies(COOKIE_RELMGR_SHOW_VIEW)
561 
	End If
 656 
   End If
562 
 
 657 
 
563 
End Function
 658 
End Function
564 
'------------------------------------------------------------------------------------------------------------------------------------------------
 659 
'------------------------------------------------------------------------------------------------------------------------------------------------
565 
%>
 660 
%>
566 
<%
 661 
<%
567 
If CBool(Request("action")) Then
 - 
 
568 
 
 - 
 
569 
	aFullList = Split ( Replace( Request("pv_id_list"), " ", "" ), "," )
 - 
 
570 
 
 - 
 
571 
	For Each pvIdInList In aFullList
 - 
 
572 
		If IsNumeric(pvIdInList) Then
 - 
 
573 
			'Response.Write pvId
 - 
 
574 
			Call MakeRelease(pvIdInList)
 - 
 
575 
		End If
 - 
 
576 
	Next
 - 
 
577 
 
 - 
 
578 
End If
 - 
 
579 
 
 - 
 
580 
 
 662 
 
581 
'------------------------- MAIN LINE ---------------------------
 663 
'------------------------- MAIN LINE ---------------------------
582 
%>
 664 
%>
583 
 
 665 
 
584 
<%If parRtag_Id <> "" Then%>
 666 
<%If parRtag_Id <> "" Then%>
585 
<!-- RELEASE ACTION BUTTONS ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 667 
<!-- RELEASE ACTION BUTTONS ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
586 
 
 668 
 
587 
	<table width="100%" border="0" cellspacing="0" cellpadding="0">
 669 
   <table width="100%" border="0" cellspacing="0" cellpadding="0">
588 
	  <tr>
 670 
      <tr>
589 
	  	<td width="1" background="images/bg_action_norm.gif"><img src="images/spacer.gif" width="10" height="35"></td>
 671 
         <td width="1" background="images/bg_action_norm.gif"><img src="images/spacer.gif" width="10" height="35"></td>
590 
	  	<td width="100%" nowrap background="images/bg_action_norm.gif" >
 672 
         <td width="100%" nowrap background="images/bg_action_norm.gif" >
591 
 
 - 
 
592 
		  <table width="100%" border="0" cellspacing="0" cellpadding="0">
 673 
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
593 
	  		<tr>
 674 
               <tr>
594 
		  <%
 675 
                  <%
595 
		  Dim rsTest
 676 
                  Dim rsTest
596 
		  Set rsTest = OraDataBase.DbCreateDynaset( "SELECT PROJ_ID	FROM RELEASE_TAGS WHERE RTAG_ID ="&parRtag_id , ORADYN_DEFAULT )
 677 
                  Set rsTest = OraDataBase.DbCreateDynaset( "SELECT PROJ_ID   FROM RELEASE_TAGS WHERE RTAG_ID ="&parRtag_id , ORADYN_DEFAULT )
597 
 
 678 
 
598 
 
 679 
                  If (((ReleaseMode = enumDB_RELEASE_IN_CCB_MODE) OR (ReleaseMode = enumDB_RELEASE_IN_RESTRICTIVE_MODE)) AND objAccessControl.IsActive("AddDeletePackageInRestrictiveMode") And objAccessControl.IsDataActive("PROJECTS", DB_PROJ_ID, "EditProjects")) OR (ReleaseMode = enumDB_RELEASE_IN_OPEN_MODE ) Then
599 
		  If (((ReleaseMode = enumDB_RELEASE_IN_CCB_MODE) OR (ReleaseMode = enumDB_RELEASE_IN_RESTRICTIVE_MODE)) AND objAccessControl.IsActive("AddDeletePackageInRestrictiveMode") And objAccessControl.IsDataActive("PROJECTS", DB_PROJ_ID, "EditProjects")) OR (ReleaseMode = enumDB_RELEASE_IN_OPEN_MODE ) Then
 680 
                     Response.write "<td width='1'><a href='form_search_pkgs.asp?rtag_id="& Request("rtag_id") &"&add_type="& enum_ADD_PACKAGES &"' title='Add package to this release'><img src='images/abtn_add_pkg.gif'  width='25' height='25' hspace='1' border='0'></a></td>"
600 
		  	Response.write "<td width='1'><a href='form_search_pkgs.asp?rtag_id="& Request("rtag_id") &"&add_type="& enum_ADD_PACKAGES &"' title='Add package to this release'><img src='images/abtn_add_pkg.gif'  width='25' height='25' hspace='1' border='0'></a></td>"
 681 
                     'Response.write "<td width='1'><a href='_remove_package.asp?rtag_id="& Request("rtag_id") &"&pv_id="& Request("pv_id") &"' title='Remove package from this release'><img src='images/abtn_remove_pkg.gif' alt='Remove package from this release' width='26' height='26' hspace='1' border='0'></td>"
601 
			'Response.write "<td width='1'><a href='_remove_package.asp?rtag_id="& Request("rtag_id") &"&pv_id="& Request("pv_id") &"' title='Remove package from this release'><img src='images/abtn_remove_pkg.gif' alt='Remove package from this release' width='26' height='26' hspace='1' border='0'></td>"
 682 
                  Else
602 
		  Else
 - 
 
603 
		  	Response.write "<td width='1'><img src='images/abtn_add_pkg_off.gif' alt='Add package to this release' width='26' height='26' hspace='1' border='0'></td>"
 683 
                     Response.write "<td width='1'><img src='images/abtn_add_pkg_off.gif' alt='Add package to this release' width='26' height='26' hspace='1' border='0'></td>"
604 
			'Response.write "<td width='1'><img src='images/abtn_remove_pkg_off.gif' alt='Remove package from this release' width='26' height='26' hspace='1' border='0'></td>"
 684 
                     'Response.write "<td width='1'><img src='images/abtn_remove_pkg_off.gif' alt='Remove package from this release' width='26' height='26' hspace='1' border='0'></td>"
605 
		  End If
 685 
                  End If
606 
 
 686 
 
607 
		  If (pkgInfoHash.Item("dlocked") <> "Y") AND (objAccessControl.UserLogedIn) AND (Request("pv_id") <> "") Then
 687 
                  If (pkgInfoHash.Item("dlocked") <> "Y") AND (objAccessControl.UserLogedIn) AND (Request("pv_id") <> "") Then
608 
			  If ( (objAccessControl.UserName = pkgInfoHash.Item("creator")) OR (objAccessControl.IsActive("DestroyPackageFromRelease")) ) Then
 688 
                     If ( (objAccessControl.UserName = pkgInfoHash.Item("creator")) OR (objAccessControl.IsActive("DestroyPackageFromRelease")) ) Then
609 
					Response.write "<td width='1'><a href='_destroy_package.asp?rtag_id="& Request("rtag_id") &"&bfile="& ScriptName &"&pkg_id="& pkgInfoHash.Item("pkg_id") &"&pv_id="& Request("pv_id") &"' title='Destroy the selected Package Version' onClick='return confirmAction(""You are about to destroy ["& pkgInfoHash.Item("pkg_name") &" "& pkgInfoHash.Item("pkg_version") &"]. You cannot undo this operation.\nDo you want to proceed?"");'><img src='icons/i_destroy_package.gif' alt='Destroy the selected Package Version' width='26' height='26' hspace='1' border='0'></td>"
 689 
                        Response.write "<td width='1'><a href='_destroy_package.asp?rtag_id="& Request("rtag_id") &"&bfile="& ScriptName &"&pkg_id="& pkgInfoHash.Item("pkg_id") &"&pv_id="& Request("pv_id") &"' title='Destroy the selected Package Version' onClick='return confirmAction(""You are about to destroy ["& pkgInfoHash.Item("pkg_name") &" "& pkgInfoHash.Item("pkg_version") &"]. You cannot undo this operation.\nDo you want to proceed?"");'><img src='icons/i_destroy_package.gif' alt='Destroy the selected Package Version' width='26' height='26' hspace='1' border='0'></td>"
610 
			  End If
 690 
                     End If
611 
		  End If
 691 
                  End If
612 
 
 692 
 
613 
		  If objAccessControl.IsActive("CreateNewRelease") Then
 693 
                  If objAccessControl.IsActive("CreateNewRelease") Then
614 
		  	Response.write "<td width='1'><a href='form_edit_release.asp?rtag_id_list="&parRtag_id&"&proj_id="&rsTest("proj_id")&"' title='Release properties'><img src='images/abtn_release_properties.gif'  width='25' height='25' hspace='1' border='0'></a></td>"
 694 
                     Response.write "<td width='1'><a href='form_edit_release.asp?rtag_id_list="&parRtag_id&"&proj_id="&rsTest("proj_id")&"' title='Release properties'><img src='images/abtn_release_properties.gif'  width='25' height='25' hspace='1' border='0'></a></td>"
615 
		  End If
 695 
                  End If
616 
 
 696 
 
617 
		  Response.write "<td width='1'><img src='images/spacer.gif' width='7' height='25'></td>"
 697 
                  Response.write "<td width='1'><img src='images/spacer.gif' width='7' height='25'></td>"
618 
		  If objAccessControl.UserLogedIn Then
 698 
                  If objAccessControl.UserLogedIn Then
619 
		  	If QStrPar("Pview") = "disable" Then
 699 
                     If QStrPar("Pview") = "disable" Then
620 
		  		Response.write "<td width='1'><a href='"& scriptName &"?Pview=&pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id") &"' title='Personal view disabled. Click to enable.'><img src='images/abtn_base_view.gif'  width='25' height='25' hspace='1' border='0'></a></td>"
 700 
                        Response.write "<td width='1'><a href='"& scriptName &"?Pview=&pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id") &"' title='Personal view disabled. Click to enable.'><img src='images/abtn_base_view.gif'  width='25' height='25' hspace='1' border='0'></a></td>"
621 
			Else
 - 
 
622 
				Response.write "<td width='1'><a href='"& scriptName &"?Pview=disable&pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id") &"' title='Personal view enabled. Click for full view.'><img src='images/abtn_personal_view.gif'  width='25' height='25' hspace='1' border='0'></a></td>"
 701 
                     Else
623 
			End If
 702 
                        Response.write "<td width='1'><a href='"& scriptName &"?Pview=disable&pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id") &"' title='Personal view enabled. Click for full view.'><img src='images/abtn_personal_view.gif'  width='25' height='25' hspace='1' border='0'></a></td>"
- 
 
 703 
                     End If
624 
		  Else
 704 
                  Else
625 
		  	Response.write "<td width='1'><img src='images/abtn_personal_view_off.gif' width='26' height='26' hspace='1' border='0'></td>"
 705 
                     Response.write "<td width='1'><img src='images/abtn_personal_view_off.gif' width='26' height='26' hspace='1' border='0'></td>"
626 
		  End If
 706 
                  End If
627 
 
 707 
 
628 
		  If QStrPar("Dview") = "enable" Then
 708 
                  If QStrPar("Dview") = "enable" Then
629 
			  Response.write "<td width='1'><a href='"& scriptName &"?Dview=&Pview="& QStrPar("Pview") &"&pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id") &"' title='Click to switch to Release View'><img src='icons/ReleaseView.gif'  width='25' height='25' hspace='1' border='0'></a></td>"
 709 
                     Response.write "<td width='1'><a href='"& scriptName &"?Dview=&Pview="& QStrPar("Pview") &"&pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id") &"' title='Click to switch to Release View'><img src='icons/ReleaseView.gif'  width='25' height='25' hspace='1' border='0'></a></td>"
630 
		  Else
 710 
                  Else
631 
		  	Response.write "<td width='1'><a href='"& scriptName &"?Dview=enable&Pview="& QStrPar("Pview") &"&pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id") &"' title='Click to switch to Deployment View'><img src='icons/DeploymentView.gif'  width='25' height='25' hspace='1' border='0'></a></td>"
 711 
                     Response.write "<td width='1'><a href='"& scriptName &"?Dview=enable&Pview="& QStrPar("Pview") &"&pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id") &"' title='Click to switch to Deployment View'><img src='icons/DeploymentView.gif'  width='25' height='25' hspace='1' border='0'></a></td>"
632 
		  End If
 712 
                  End If
633 
 
 - 
 
634 
 
 713 
 
635 
		  Response.write "<td width='1'><img src='images/spacer.gif' width='7' height='25'></td>"
 714 
                  Response.write "<td width='1'><img src='images/spacer.gif' width='7' height='25'></td>"
636 
 
 715 
 
637 
	  	  Response.write "<td width='1'><a href='javascript:;' title='Reference other releases...' onClick='ToggleDisplay(""DIV_RELEASE_REFERENCES"",""SPAN_RELEASE_REFERENCES"",""SPAN_RELEASE_REFERENCES_ON""); ' ><SPAN name='SPAN_RELEASE_REFERENCES' id='SPAN_RELEASE_REFERENCES' style='display:block;'><img src='images/abtn_link_release.gif' width='25' height='25' border='0' hspace='1' ></SPAN><SPAN name='SPAN_RELEASE_REFERENCES_ON' id='SPAN_RELEASE_REFERENCES_ON' style='display:none;'><img src='images/abtn_link_release_on.gif' width='25' height='25' border='0' hspace='1' ></SPAN></a></td>"
 716 
                  Response.write "<td width='1'><a href='javascript:;' title='Reference other releases...' onClick='ToggleDisplay(""DIV_RELEASE_REFERENCES"",""SPAN_RELEASE_REFERENCES"",""SPAN_RELEASE_REFERENCES_ON""); ' ><SPAN name='SPAN_RELEASE_REFERENCES' id='SPAN_RELEASE_REFERENCES' style='display:block;'><img src='images/abtn_link_release.gif' width='25' height='25' border='0' hspace='1' ></SPAN><SPAN name='SPAN_RELEASE_REFERENCES_ON' id='SPAN_RELEASE_REFERENCES_ON' style='display:none;'><img src='images/abtn_link_release_on.gif' width='25' height='25' border='0' hspace='1' ></SPAN></a></td>"
638 
 
 717 
 
639 
		  Response.write "<td width='1'><img src='images/spacer.gif' width='7' height='25'></td>"
 718 
                  Response.write "<td width='1'><img src='images/spacer.gif' width='7' height='25'></td>"
640 
 
 719 
 
641 
		  Response.write "<td width='1'><a href='javascript:;' title='Advanced Search...' onClick='ToggleAdvancedSearch(); ' ><SPAN name='SPAN_ADVANCED_SEARCH' id='SPAN_ADVANCED_SEARCH' style='display:block;'><img src='images/abtn_advanced_search.gif' width='25' height='25' border='0' hspace='1' ></SPAN><SPAN name='SPAN_ADVANCED_SEARCH_ON' id='SPAN_ADVANCED_SEARCH_ON' style='display:none;'><img src='images/abtn_advanced_search_on.gif' width='25' height='25' border='0' hspace='1' ></SPAN></a></td>"
 720 
                  Response.write "<td width='1'><a href='javascript:;' title='Advanced Search...' onClick='ToggleAdvancedSearch(); ' ><SPAN name='SPAN_ADVANCED_SEARCH' id='SPAN_ADVANCED_SEARCH' style='display:block;'><img src='images/abtn_advanced_search.gif' width='25' height='25' border='0' hspace='1' ></SPAN><SPAN name='SPAN_ADVANCED_SEARCH_ON' id='SPAN_ADVANCED_SEARCH_ON' style='display:none;'><img src='images/abtn_advanced_search_on.gif' width='25' height='25' border='0' hspace='1' ></SPAN></a></td>"
642 
 
 721 
 
643 
		  If ( (QStrPar("Dview") <> "enable") AND ( (CInt(nEnvTab) = enumENVTAB_PLANNED) OR (Request("envtab") = enumENVTAB_PLANNED) ) ) Then
 722 
                  If ( (QStrPar("Dview") <> "enable") AND ( (CInt(nEnvTab) = enumENVTAB_PLANNED) OR (Request("envtab") = enumENVTAB_PLANNED) ) ) Then
644 
			If objAccessControl.UserLogedIn Then
 723 
                     If objAccessControl.UserLogedIn Then
645 
				If ( ReleaseMode <> enumDB_RELEASE_IN_OPEN_MODE ) Then
 724 
                        If ( ReleaseMode <> enumDB_RELEASE_IN_OPEN_MODE ) Then
646 
					If objAccessControl.IsActive("ApproveForAutoBuild") Then
 725 
                           If objAccessControl.IsActive("ApproveForAutoBuild") OR objAccessControl.IsActive("ApproveForManualBuild") Then
647 
						Response.write "<td width='1'><input name='btn' type='image' src='images/abtn_make_release_bulk.gif' title='Make Bulk Release...'></td>"
 726 
                              Response.write "<td width='1'><a href='#' onClick='makeBulkRelease();'><img src='images/abtn_make_release_bulk.gif' title='Make Bulk Release...'></td>"
648 
					End If
 727 
                           End If
649 
				Else
 728 
                        Else
650 
					Response.write "<td width='1'><input name='btn' type='image' src='images/abtn_make_release_bulk.gif' title='Make Bulk Release...'></td>"
 729 
                           Response.write "<td width='1'><a href='#' onClick='makeBulkRelease();'><img src='images/abtn_make_release_bulk.gif' title='Make Bulk Release...'></td>"
651 
				End If
 730 
                        End If
652 
			End If
 731 
                     End If
653 
		  End If
 732 
                  End If
654 
		  rsTest.Close()
 733 
                  rsTest.Close()
655 
		  Set rsTest = nothing
 734 
                  Set rsTest = nothing
656 
		  %>
 735 
                  %>
657 
		  	<td width="100%"><img src="images/spacer.gif" width="1" height="1"></td>
 736 
                  <td width="100%"><img src="images/spacer.gif" width="1" height="1"></td>
658 
		  	</tr>
 737 
               </tr>
659 
		  </table>
 738 
            </table>
660 
 
 - 
 
661 
		</td>
 739 
         </td>
662 
		<td width="1" background="images/bg_action_norm.gif"><img src="images/spacer.gif" width="10" height="8"></td>
 740 
         <td width="1" background="images/bg_action_norm.gif"><img src="images/spacer.gif" width="10" height="8"></td>
663 
	  </tr>
 741 
      </tr>
664 
</table>
 742 
   </table>
665 
 
 743 
 
666 
<!-- ADVANCED SEARCH ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 744 
<!-- ADVANCED SEARCH ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
667 
	  <DIV name="DIV_ADVANCED_SEARCH" id="DIV_ADVANCED_SEARCH" style="display:none;">
 745 
   <DIV name="DIV_ADVANCED_SEARCH" id="DIV_ADVANCED_SEARCH" style="display:none;">
668 
	  <table width="100%" border="0" cellspacing="0" cellpadding="10">
 746 
      <table width="100%" border="0" cellspacing="0" cellpadding="10">
669 
	  <form name="advancedsearch" method="get" action="find.asp">
 747 
         <form name="advancedsearch" method="get" action="find.asp">
670 
	  <tr>
 748 
            <tr>
671 
	    <td nowrap  class="form_txt" valign="middle">
 749 
               <td nowrap  class="form_txt" valign="middle">
672 
		<%
 750 
                  <%
673 
		Dim FindPackageCheck, FindFileCheck
 751 
                  Dim FindPackageCheck, FindFileCheck
674 
 
 752 
 
675 
		FindPackageCheck = ""
 753 
                  FindPackageCheck = ""
676 
		FindFileCheck = ""
 754 
                  FindFileCheck = ""
677 
 
 755 
 
678 
		If Request("searchtype") = "2" Then
 756 
                  If Request("searchtype") = "2" Then
679 
			FindFileCheck = "checked"
 757 
                     FindFileCheck = "checked"
680 
		Else
 758 
                  Else
681 
			FindPackageCheck = "checked"
 759 
                     FindPackageCheck = "checked"
682 
		End If
 760 
                  End If
683 
 
 761 
 
684 
		%>
 762 
                  %>
- 
 
 763 
                  <fieldset>
685 
		<fieldset><legend class="body_colb"><img src="images/i_mglass.gif" width="17" height="17" border="0" align="absmiddle">&nbsp;Advanced Search</legend>
 764 
                     <legend class="body_colb"><img src="images/i_mglass.gif" width="17" height="17" border="0" align="absmiddle">&nbsp;Advanced Search</legend>
686 
	      <input name="searchtype" id="searchtype1" type="radio" value="1" <%=FindPackageCheck%>>
 765 
                     <input name="searchtype" id="searchtype1" type="radio" value="1" <%=FindPackageCheck%>>
687 
	      <a href="javascript:;" onClick="MM_findObj('searchtype1').checked=true;" class="body_txt">Find a Package</a><br>
 766 
                     <a href="javascript:;" onClick="MM_findObj('searchtype1').checked=true;" class="body_txt">Find a Package</a><br>
688 
	      <input name="searchtype" id="searchtype2" type="radio" value="2" <%=FindFileCheck%>>
 767 
                     <input name="searchtype" id="searchtype2" type="radio" value="2" <%=FindFileCheck%>>
689 
          <a href="javascript:;" onClick="MM_findObj('searchtype2').checked=true;" class="body_txt">Find a File</a><br><br>
 768 
                     <a href="javascript:;" onClick="MM_findObj('searchtype2').checked=true;" class="body_txt">Find a File</a><br><br>
690 
		  <%If CInt(nEnvTab) = enumENVTAB_WORK_IN_PROGRESS Then%>
 769 
                     <%If CInt(nEnvTab) = enumENVTAB_WORK_IN_PROGRESS Then%>
691 
		  Find in Work In Progress<br>
 770 
                        Find in Work In Progress<br>
692 
		  <%ElseIf CInt(nEnvTab) = enumENVTAB_PLANNED Then%>
 771 
                     <%ElseIf CInt(nEnvTab) = enumENVTAB_PLANNED Then%>
693 
		  Find in Pending<br>
 772 
                        Find in Pending<br>
694 
		  <%ElseIf  CInt(nEnvTab) = enumENVTAB_RELEASED Then%>
 773 
                     <%ElseIf  CInt(nEnvTab) = enumENVTAB_RELEASED Then%>
695 
		  Find in Released<br>
 774 
                        Find in Released<br>
696 
		  <%End If%>
 775 
                     <%End If%>
697 
          <input type="text" name="keyword" size="25" class="form_ivaluew" value="<%=Request("keyword")%>">
 776 
                     <input type="text" name="keyword" size="25" class="form_ivaluew" value="<%=Request("keyword")%>">
698 
          <input type="submit" name="btn" value="Find" class="form_ivalue">
 777 
                     <input type="submit" name="btn" value="Find" class="form_ivalue">
699 
 
 778 
 
700 
		  <input type="hidden" name="envtab" value="<%=nEnvTab%>">
 779 
                     <input type="hidden" name="envtab" value="<%=nEnvTab%>">
701 
          <input type="hidden" name="rtag_id" value="<%=parRtag_id%>">
 780 
                     <input type="hidden" name="rtag_id" value="<%=parRtag_id%>">
702 
		</fieldset>
 781 
                  </fieldset>
703 
		<br>
 782 
                  <br>
704 
		</td>
 783 
               </td>
705 
	  </tr>
 784 
            </tr>
706 
	  </form>
 785 
         </form>
707 
	  </table>
 786 
      </table>
708 
	  </DIV>
 787 
   </DIV>
709 
 
 788 
 
710 
      <script language="JavaScript" type="text/javascript">
 789 
   <script language="JavaScript" type="text/javascript">
711 
	  <!--
 790 
      <!--
712 
	  function ToggleAdvancedSearch( )
 791 
      function ToggleAdvancedSearch( )
713 
	  {
 792 
      {
714 
	  	if ( MM_findObj("DIV_ADVANCED_SEARCH").style.display == 'none')
 793 
         if ( MM_findObj("DIV_ADVANCED_SEARCH").style.display == 'none')
715 
		{
 794 
         {
716 
			MM_findObj("DIV_ADVANCED_SEARCH").style.display = 'block';
 795 
            MM_findObj("DIV_ADVANCED_SEARCH").style.display = 'block';
717 
			MM_findObj("SPAN_ADVANCED_SEARCH").style.display = 'none';
 796 
            MM_findObj("SPAN_ADVANCED_SEARCH").style.display = 'none';
718 
			MM_findObj("SPAN_ADVANCED_SEARCH_ON").style.display = 'block';
 797 
            MM_findObj("SPAN_ADVANCED_SEARCH_ON").style.display = 'block';
719 
 
 - 
 
720 
		}
 798 
         }
721 
		else
 799 
         else
722 
		{
 800 
         {
723 
			MM_findObj("DIV_ADVANCED_SEARCH").style.display = 'none';
 801 
            MM_findObj("DIV_ADVANCED_SEARCH").style.display = 'none';
724 
			MM_findObj("SPAN_ADVANCED_SEARCH").style.display = 'block';
 802 
            MM_findObj("SPAN_ADVANCED_SEARCH").style.display = 'block';
725 
			MM_findObj("SPAN_ADVANCED_SEARCH_ON").style.display = 'none';
 803 
            MM_findObj("SPAN_ADVANCED_SEARCH_ON").style.display = 'none';
726 
		}
 804 
         }
727 
 
 805 
 
728 
		document.cookie = 'RELMGR_DIV_ADVANCED_SEARCH' + '=' + MM_findObj("DIV_ADVANCED_SEARCH").style.display;
 806 
         document.cookie = 'RELMGR_DIV_ADVANCED_SEARCH' + '=' + MM_findObj("DIV_ADVANCED_SEARCH").style.display;
729 
	  }
 807 
      }
730 
 
 808 
 
731 
	  // Run this on page render for default setting
 809 
      // Run this on page render for default setting
732 
	  if (GetCookie('RELMGR_DIV_ADVANCED_SEARCH') == 'block')
 810 
      if (GetCookie('RELMGR_DIV_ADVANCED_SEARCH') == 'block')
733 
	  {
 811 
      {
734 
	  	ToggleAdvancedSearch();
 812 
         ToggleAdvancedSearch();
735 
	  }
 813 
      }
736 
 
 814 
 
737 
	  //-->
 815 
   //-->
738 
	  </script>
 816 
   </script>
739 
 
 817 
 
740 
<!-- RELEASE REFERENCES  ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 818 
<!-- RELEASE REFERENCES  ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
741 
	  <DIV name="DIV_RELEASE_REFERENCES" id="DIV_RELEASE_REFERENCES" style="display:none;">
 819 
   <DIV name="DIV_RELEASE_REFERENCES" id="DIV_RELEASE_REFERENCES" style="display:none;">
742 
	  <table width="100%" border="0" cellspacing="0" cellpadding="10">
 820 
      <table width="100%" border="0" cellspacing="0" cellpadding="10">
743 
	  <form name="relref" method="get" action="_remove_release_reference.asp" onSubmit="ToggleDisplay('RelRefProgressBar');">
 821 
         <form name="relref" method="get" action="_remove_release_reference.asp" onSubmit="ToggleDisplay('RelRefProgressBar');">
744 
	  <tr>
 822 
            <tr>
745 
	    <td width="100%" nowrap class="form_txt">
 823 
               <td width="100%" nowrap class="form_txt">
746 
		<fieldset><legend class="body_colb"><img src="images/i_releaseref.gif" border="0" align="absmiddle">&nbsp;Release References</legend>
 824 
                  <fieldset>
747 
		<DIV id="RelRefProgressBar" name="RelRefProgressBar" style="display:none;" class="class="body_scol""><img src="images/i_processing.gif" width="11" height="17" align="absmiddle" hspace="3">Processing...</DIV>
 825 
                     <legend class="body_colb"><img src="images/i_releaseref.gif" border="0" align="absmiddle">&nbsp;Release References</legend>
748 
 
 826 
                     <DIV id="RelRefProgressBar" name="RelRefProgressBar" style="display:none;" class="class="body_scol"">
749 
	    <b>References</b>
 827 
                        <img src="images/i_processing.gif" width="11" height="17" align="absmiddle" hspace="3">Processing...
750 
		<hr noshade size="1">
 828 
                     </DIV>
751 
		<%If (ReleaseMode = enumDB_RELEASE_IN_OPEN_MODE) Then%>
 829 
                     <b>References</b>
752 
		<input <%=objAccessControl.IsComponentDisabled("AddReleaseReference")%> type="reset" name="btn" value="Add.." class="form_ivalue" onClick="MM_openBrWindow('_wform_reference_release.asp?ToRtag_id=<%=parRtag_id%>&rfile=<%=ScriptName%>&rtag_id=<%=parRtag_id%>','ReferenceRelease','scrollbars=yes,resizable=yes,width=400,height=200')">
 830 
                     <hr noshade size="1">
753 
		&nbsp;<input <%=objAccessControl.IsComponentDisabled("RemoveReleaseReference")%> type="submit" name="btn" value="Remove" class="form_ivalue"><br><br>
 831 
                     <%If (ReleaseMode = enumDB_RELEASE_IN_OPEN_MODE) Then%>
754 
		<%End If%>
 832 
                        <input <%=objAccessControl.IsComponentDisabled("AddReleaseReference")%> type="reset" name="btn" value="Add.." class="form_ivalue" onClick="MM_openBrWindow('_wform_reference_release.asp?ToRtag_id=<%=parRtag_id%>&rfile=<%=ScriptName%>&rtag_id=<%=parRtag_id%>','ReferenceRelease','scrollbars=yes,resizable=yes,width=400,height=200')">
755 
 
 833 
                        &nbsp;<input <%=objAccessControl.IsComponentDisabled("RemoveReleaseReference")%> type="submit" name="btn" value="Remove" class="form_ivalue"><br><br>
756 
		<input type="hidden" name="rtag_id" value="<%=parRtag_id%>">
 834 
                     <%End If%>
757 
 
 835 
 
758 
		<table width="100%" border="0" cellspacing="0" cellpadding="1">
 836 
                     <input type="hidden" name="rtag_id" value="<%=parRtag_id%>">
759 
		  <tr>
 837 
 
760 
			<td bgcolor="#999999">
 838 
                     <table width="100%" border="0" cellspacing="0" cellpadding="1">
761 
 
 839 
                        <tr>
762 
			<table width="100%" border="0" cellspacing="0" cellpadding="1">
 840 
                           <td bgcolor="#999999">
763 
			<%
 841 
 
764 
			OraDatabase.Parameters.Add "RTAG_ID", parRtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
 842 
                              <table width="100%" border="0" cellspacing="0" cellpadding="1">
765 
 
 843 
                                 <%
766 
			Set rsEnvQry = OraDatabase.DbCreateDynaset( GetQuery("ReleaseReferences.sql"), 0 )
 844 
                                 OraDatabase.Parameters.Add "RTAG_ID", parRtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
767 
 
 845 
 
768 
			OraDatabase.Parameters.Remove "RTAG_ID"
 846 
                                 Set rsEnvQry = OraDatabase.DbCreateDynaset( GetQuery("ReleaseReferences.sql"), 0 )
769 
			%>
 847 
 
770 
 
 848 
                                 OraDatabase.Parameters.Remove "RTAG_ID"
771 
			<%If rsEnvQry.RecordCount = 0 Then%>
 849 
                                 %>
772 
			  <tr>
 850 
 
773 
				<td colspan="2" bgcolor="#FFFFFF" class="body_txt_gray">
 851 
                                 <%If rsEnvQry.RecordCount = 0 Then%>
774 
				No references used.
 852 
                                 <tr>
775 
				</td>
 853 
                                    <td colspan="2" bgcolor="#FFFFFF" class="body_txt_gray">
776 
			  </tr>
 854 
                                       No references used.
777 
			<%End If%>
 855 
                                    </td>
778 
 
 856 
                                 </tr>
779 
 
 857 
                                 <%End If%>
780 
			<%
 858 
 
781 
			While (NOT rsEnvQry.EOF) AND (NOT rsEnvQry.BOF)
 859 
                                 <%While (NOT rsEnvQry.EOF) AND (NOT rsEnvQry.BOF)
782 
				If rsEnvQry("official") = "Y" Then
 860 
                                    If rsEnvQry("official") = "Y" Then
783 
					IMG_locked = imgLocked
 861 
                                       IMG_locked = imgLocked
784 
				Else
 862 
                                    Else
785 
					IMG_locked = ""
 863 
                                       IMG_locked = ""
786 
				End If
 864 
                                    End If%>
787 
			%>
 865 
                                    <tr>
788 
			  <tr>
 866 
                                       <td bgcolor="#FFFFFF" class="body_txt"><input type="checkbox" name="refrtag_id" value="<%=rsEnvQry("rtag_id")%>"></td>
789 
				<td bgcolor="#FFFFFF" class="body_txt"><input type="checkbox" name="refrtag_id" value="<%=rsEnvQry("rtag_id")%>"></td>
 867 
                                       <td bgcolor="#FFFFFF" class="body_txt" nowrap>
790 
				<td bgcolor="#FFFFFF" class="body_txt" nowrap>
 868 
                                          <a href="dependencies.asp?rtag_id=<%=rsEnvQry("rtag_id")%>" class="body_link" title="Go to this release...">
791 
				<a href="dependencies.asp?rtag_id=<%=rsEnvQry("rtag_id")%>" class="body_link" title="Go to this release..."><%=rsEnvQry("proj_name")%> &gt; <%=rsEnvQry("rtag_name")%><%=IMG_locked%></a>&nbsp;
 869 
                                          <%=rsEnvQry("proj_name")%> &gt; <%=rsEnvQry("rtag_name")%><%=IMG_locked%></a>&nbsp;
792 
				</td>
 870 
                                       </td>
793 
			  </tr>
 871 
                                    </tr>
794 
			<%rsEnvQry.MoveNext()
 872 
                                    <%rsEnvQry.MoveNext()
795 
			WEnd
 873 
                                 WEnd%>
796 
			%>
 874 
                                 <tr>
797 
			  <tr>
 875 
                                    <td colspan="2" bgcolor="#FFFFFF" class="body_txt_gray">
798 
				<td colspan="2" bgcolor="#FFFFFF" class="body_txt_gray">
 876 
                                       <br><br><br>
799 
				<br><br><br>
 877 
                                    </td>
800 
				</td>
 878 
                                 </tr>
801 
			  </tr>
 879 
                              </table>
802 
			</table>
 880 
                           </td>
803 
 
 881 
                        </tr>
804 
			</td>
 882 
                     </table>
805 
		  </tr>
 883 
                     <br><br>
806 
		</table>
 884 
 
807 
 
 885 
                     <b>Referenced By</b>
808 
 
 886 
                     <hr noshade size="1">
809 
 
 887 
 
810 
		<br><br>
 888 
                     <table width="100%" border="0" cellspacing="0" cellpadding="1">
811 
 
 889 
                        <tr>
812 
 
 890 
                           <td bgcolor="#999999">
813 
		<b>Referenced By</b>
 891 
 
814 
		<hr noshade size="1">
 892 
                              <table width="100%" border="0" cellspacing="0" cellpadding="1">
815 
 
 893 
                                 <%
816 
		<table width="100%" border="0" cellspacing="0" cellpadding="1">
 894 
                                 OraDatabase.Parameters.Add "RTAG_ID", parRtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
817 
		  <tr>
 895 
 
818 
			<td bgcolor="#999999">
 896 
                                 Set rsEnvQry = OraDatabase.DbCreateDynaset( GetQuery("ReleaseReferencedBy.sql"), 0 )
819 
 
 897 
 
820 
			<table width="100%" border="0" cellspacing="0" cellpadding="1">
 898 
                                 OraDatabase.Parameters.Remove "RTAG_ID"
821 
			<%
 899 
                                 %>
822 
			OraDatabase.Parameters.Add "RTAG_ID", parRtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
 900 
 
823 
 
 901 
                                 <%If rsEnvQry.RecordCount = 0 Then%>
824 
			Set rsEnvQry = OraDatabase.DbCreateDynaset( GetQuery("ReleaseReferencedBy.sql"), 0 )
 902 
                                    <tr>
825 
 
 903 
                                       <td colspan="2" bgcolor="#FFFFFF" class="body_txt_gray">
826 
			OraDatabase.Parameters.Remove "RTAG_ID"
 904 
                                          Not referenced anywhere.
827 
			%>
 905 
                                       </td>
828 
 
 906 
                                    </tr>
829 
			<%If rsEnvQry.RecordCount = 0 Then%>
 907 
                                 <%End If%>
830 
			  <tr>
 908 
 
831 
				<td colspan="2" bgcolor="#FFFFFF" class="body_txt_gray">
 909 
                                 <%While (NOT rsEnvQry.EOF) AND (NOT rsEnvQry.BOF)
832 
				Not referenced anywhere.
 910 
                                    If rsEnvQry("official") = "Y" Then
833 
				</td>
 911 
                                       IMG_locked = imgLocked
834 
			  </tr>
 912 
                                    Else
835 
			<%End If%>
 913 
                                       IMG_locked = ""
836 
 
 914 
                                    End If%>
837 
 
 915 
                                    <tr>
838 
			<%
 916 
                                       <td bgcolor="#FFFFFF" class="body_txt"><input type="checkbox" name="refrtag_id" value="<%=rsEnvQry("rtag_id")%>" disabled></td>
839 
			While (NOT rsEnvQry.EOF) AND (NOT rsEnvQry.BOF)
 917 
                                       <td bgcolor="#FFFFFF" class="body_txt" nowrap>
840 
				If rsEnvQry("official") = "Y" Then
 918 
                                          <a href="dependencies.asp?rtag_id=<%=rsEnvQry("rtag_id")%>" class="body_link" title="Go to this release...">
841 
					IMG_locked = imgLocked
 919 
                                          <%=rsEnvQry("proj_name")%> &gt; <%=rsEnvQry("rtag_name")%><%=IMG_locked%></a>&nbsp;
842 
				Else
 920 
                                       </td>
843 
					IMG_locked = ""
 921 
                                    </tr>
844 
				End If
 922 
                                    <%rsEnvQry.MoveNext()
845 
			%>
 923 
                                 WEnd%>
846 
			  <tr>
 924 
                                 <tr>
847 
				<td bgcolor="#FFFFFF" class="body_txt"><input type="checkbox" name="refrtag_id" value="<%=rsEnvQry("rtag_id")%>" disabled></td>
 925 
                                    <td colspan="2" bgcolor="#FFFFFF" class="body_txt_gray">
848 
				<td bgcolor="#FFFFFF" class="body_txt" nowrap>
 926 
                                       <br><br><br>
849 
				<a href="dependencies.asp?rtag_id=<%=rsEnvQry("rtag_id")%>" class="body_link" title="Go to this release..."><%=rsEnvQry("proj_name")%> &gt; <%=rsEnvQry("rtag_name")%><%=IMG_locked%></a>&nbsp;
 927 
                                    </td>
850 
				</td>
 928 
                                 </tr>
851 
			  </tr>
 929 
                              </table>
852 
			<%rsEnvQry.MoveNext()
 930 
                           </td>
853 
			WEnd
 931 
                        </tr>
854 
			%>
 932 
                     </table>
855 
			  <tr>
 933 
                     <br>
856 
				<td colspan="2" bgcolor="#FFFFFF" class="body_txt_gray">
 934 
                  </fieldset>
857 
				<br><br><br>
 935 
                  <br>
858 
				</td>
 936 
               </td>
859 
			  </tr>
 937 
            </tr>
860 
			</table>
 938 
         </form>
861 
 
 939 
      </table>
862 
			</td>
 940 
   </DIV>
863 
		  </tr>
 - 
 
864 
		</table>
 - 
 
865 
 
 - 
 
866 
		<br>
 - 
 
867 
 
 - 
 
868 
		</fieldset>
 - 
 
869 
		<br>
 - 
 
870 
		</td>
 - 
 
871 
	  </tr>
 - 
 
872 
 
 - 
 
873 
 
 - 
 
874 
	  </form>
 - 
 
875 
	  </table>
 - 
 
876 
	  </DIV>
 - 
 
877 
<!-- END OF RELEASE REFERENCES  ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 941 
<!-- END OF RELEASE REFERENCES  ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
878 
<%
 - 
 
879 
'-- FORM START --------------------------------------------------------------------------------------------------------------
 - 
 
880 
objFormComponent.FormName = "FormName"
 - 
 
881 
objFormComponent.Action = SCRIPT_NAME
 - 
 
882 
objFormComponent.OnSubmit = "ShowProgress();"
 - 
 
883 
Call objFormComponent.FormStart()
 - 
 
884 
%>
 - 
 
885 
 
 942 
 
886 
<!-- PACKAGE LIST ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 943 
<!-- PACKAGE LIST ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
887 
 
 - 
 
888 
	<table width="100%" border="0" cellspacing="0" cellpadding="0">
 944 
   <table width="100%" border="0" cellspacing="0" cellpadding="0">
- 
 
 945 
      <form id="pending_PVID_List" name="pending_PVID_List" method="post" action="make_bulk_release.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>", onSubmit="makeBulkRelease();">
889 
	  <tr>
 946 
         <tr>
890 
	    <td width="1" bgcolor="#999999"><img src="images/spacer.gif" width="10" height="25"></td>
 947 
            <td width="1" bgcolor="#999999"><img src="images/spacer.gif" width="10" height="25"></td>
891 
	    <td width="100%" bgcolor="#999999" valign="bottom">
 948 
            <td width="100%" bgcolor="#999999" valign="bottom">
892 
	        <!-- TAB CONTROLS ++++++++++++++++++++++ -->
 949 
               <!-- TAB CONTROLS ++++++++++++++++++++++ -->
893 
			<%
 950 
               <%
894 
			Set objTabControl = New TabControl
 951 
               Set objTabControl = New TabControl
895 
			objTabControl.TemplateDoc = ReadFile( Server.MapPath("controls/ERGTabStyleDreamWeaver/dreamweaver_style.html") ) ' Supply tab style definition
 952 
               objTabControl.TemplateDoc = ReadFile( Server.MapPath("controls/ERGTabStyleDreamWeaver/dreamweaver_style.html") ) ' Supply tab style definition
896 
			objTabControl.TabStyle = "StyleDreamWeaver"
 953 
               objTabControl.TabStyle = "StyleDreamWeaver"
897 
			If	QStrPar("Dview") = "enable"	Then
 954 
               If   QStrPar("Dview") = "enable"   Then
898 
				objTabControl.AddTabDefnition ( arrProductEnv )	'-	Integration/Test/Deploy
 955 
                  objTabControl.AddTabDefnition ( arrProductEnv )   '-   Integration/Test/Deploy
899 
			Else
 956 
               Else
900 
				objTabControl.AddTabDefnition ( arrEnv )
 957 
                  objTabControl.AddTabDefnition ( arrEnv )
901 
			End	If
 958 
               End If
902 
			objTabControl.SelectByIndex ( nEnvTab )
 959 
               objTabControl.SelectByIndex ( nEnvTab )
903 
			objTabControl.Render ()
 960 
               objTabControl.Render ()
904 
			%>
 961 
               %>
905 
			<!-- END OF TAB CONTROLS +++++++++++++++ -->
 962 
               <!-- END OF TAB CONTROLS +++++++++++++++ -->
906 
		</td>
 963 
            </td>
907 
		<td width="1" bgcolor="#999999"><img src="images/spacer.gif" width="10" height="1"></td>
 964 
            <td width="1" bgcolor="#999999"><img src="images/spacer.gif" width="10" height="1"></td>
908 
	  </tr>
 965 
         </tr>
909 
	  <tr>
 966 
         <tr>
910 
	    <td></td>
 967 
            <td></td>
911 
		<td>
 968 
            <td>
912 
 
 - 
 
913 
		<br>
 969 
               <br>
914 
		<%
 970 
               <%
915 
		Dim tempTimer
 971 
               Dim tempTimer
916 
		tempTimer = Timer
 972 
               tempTimer = Timer
917 
		%>
 973 
               %>
918 
		<%'Response.write "TOTAL TIME: "&  Timer - tempTimer%>
 974 
               <%'Response.write "TOTAL TIME: "&  Timer - tempTimer%>
919 
		<%
 975 
               <%
920 
 
 976 
 
921 
		'--- Render Environment ---
 977 
               '--- Render Environment ---
922 
		If objAccessControl.UserLogedIn AND (parPview <> "disable") Then
 978 
               If objAccessControl.UserLogedIn AND (parPview <> "disable") Then
923 
			'Personal View
 979 
                  'Personal View
924 
			Call Print_View( nEnvTab, "personal", parRtag_id, parPshow, objAccessControl.UserId )
 980 
                  Call Print_View( nEnvTab, "personal", parRtag_id, parPshow, objAccessControl.UserId )
925 
		Else
 981 
               Else
926 
			' Guest view
 982 
                  ' Guest view
927 
			Call Print_View( nEnvTab, "guest", parRtag_id, parBshow, empty )
 983 
                  Call Print_View( nEnvTab, "guest", parRtag_id, parBshow, empty )
928 
		End If
 984 
               End If
929 
 
 - 
 
930 
		%>
 985 
               %>
931 
 
 - 
 
932 
 
 - 
 
933 
 
 - 
 
934 
 
 986 
 
935 
		<%'Response.write "TOTAL TIME: "&  Timer - tempTimer%>
 987 
               <%'Response.write "TOTAL TIME: "&  Timer - tempTimer%>
936 
	    <br>
 988 
               <br>
937 
	    </td>
 989 
            </td>
- 
 
 990 
            <td></td>
938 
	    <td></td>
 991 
         </tr>
939 
	  </tr>
 992 
      </form>
940 
	</table>
 993 
   </table>
941 
	<input type="hidden" name="pv_id_list" value=<%=Request("pv_id_list")%>>
 994 
   <!-- <input type="hidden" name="pv_id_list" value=<%=Request("pv_id_list")%>> -->
942 
	<input type="hidden" name="action" value="true">
 - 
 
943 
 
 - 
 
944 
<!--END OF PACKAGE LIST ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 995 
<!--END OF PACKAGE LIST ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
945 
 
 996 
 
946 
<%End If%>
 997 
<%End If%>
947 
<%
 - 
 
948 
Call objFormComponent.FormEnd()
 - 
 
949 
'-- FROM END ----------------------------------------------------------------------------------------------------------------
 - 
 
950 
%>
 -