Subversion Repositories DevTools

Rev

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

Rev 119 Rev 129
Line 1... Line 1...
1
<%@LANGUAGE="VBSCRIPT"%>
1
<%@LANGUAGE="VBSCRIPT"%>
2
<%
2
<%
3
'=====================================================
3
'=====================================================
4
'|                                                   |
4
'|                                                   |
5
'|			           USED BY  				     |
5
'|                    USED BY                   |
6
'|                                                   |
6
'|                                                   |
7
'=====================================================
7
'=====================================================
8
%>
8
%>
9
<%
9
<%
10
Option explicit
10
Option explicit
11
' Good idea to set when using redirect
11
' Good idea to set when using redirect
12
Response.Expires = 0	' always load the page, dont store
12
Response.Expires = 0   ' always load the page, dont store
13
%>
13
%>
14
<!--#include file="common/conf.asp"-->
14
<!--#include file="common/conf.asp"-->
15
<!--#include file="common/globals.asp"-->
15
<!--#include file="common/globals.asp"-->
16
<!--#include file="common/formating.asp"-->
16
<!--#include file="common/formating.asp"-->
17
<!--#include file="common/qstr.asp"-->
17
<!--#include file="common/qstr.asp"-->
Line 25... Line 25...
25
<!--#include file="_access_control_general.asp"-->
25
<!--#include file="_access_control_general.asp"-->
26
<%
26
<%
27
'------------ Variable Definition -------------
27
'------------ Variable Definition -------------
28
Dim rsTemp, rsState
28
Dim rsTemp, rsState
29
Dim projId
29
Dim projId
30
Dim	rsQry
30
Dim   rsQry
31
'------------ Constants Declaration -----------
31
'------------ Constants Declaration -----------
32
Const IMG_SVTREE = "<img src='images/i_vtree_small.gif' hspace='3' align='absmiddle' border='0'>"
32
Const IMG_SVTREE = "<img src='images/i_vtree_small.gif' hspace='3' align='absmiddle' border='0'>"
33
Const IMG_WORLD = "<img src='images/i_foldero_small.gif' hspace='3' align='absmiddle' border='0'>"
33
Const IMG_WORLD = "<img src='images/i_foldero_small.gif' hspace='3' align='absmiddle' border='0'>"
34
Const IMG_GAP = "<img src='images/spacer.gif' width='20' height='1' border='0'>"
34
Const IMG_GAP = "<img src='images/spacer.gif' width='20' height='1' border='0'>"
35
Const IMG_POINTER = "<img src='images/i_pointer.gif' border='0'>"
35
Const IMG_POINTER = "<img src='images/i_pointer.gif' border='0'>"
36
'------------ Variable Init -------------------
36
'------------ Variable Init -------------------
37
'----------------------------------------------
37
'----------------------------------------------
38
%>
38
%>
39
<%
39
<%
40
'-----------------------------------------------------------------------------------------------------------------------------
40
'-----------------------------------------------------------------------------------------------------------------------------
41
Sub	SetUnignoreWarnings (strList)
41
Sub SetUnignoreWarnings (strList)
42
 
42
 
43
	'Response.Write( pkgInfoHash.Item ("pkg_id"))
43
   'Response.Write( pkgInfoHash.Item ("pkg_id"))
44
 
44
 
45
	OraDatabase.Parameters.Add "RTAG_ID", parRtag_id, 	ORAPARM_INPUT, ORATYPE_NUMBER
45
   OraDatabase.Parameters.Add "RTAG_ID",   parRtag_id,                  ORAPARM_INPUT, ORATYPE_NUMBER
46
	OraDatabase.Parameters.Add "PKG_ID",  pkgInfoHash.Item ("pkg_id"), 		ORAPARM_INPUT, ORATYPE_NUMBER
46
   OraDatabase.Parameters.Add "PKG_ID",    pkgInfoHash.Item ("pkg_id"), ORAPARM_INPUT, ORATYPE_NUMBER
47
	OraDatabase.Parameters.Add "SELECTED",  strList, 		ORAPARM_INPUT, ORATYPE_VARCHAR2
47
   OraDatabase.Parameters.Add "SELECTED",  strList,                     ORAPARM_INPUT, ORATYPE_VARCHAR2
48
 
48
 
49
	If pkgInfoHash.Item ("v_ext") <> "" Then
49
   If pkgInfoHash.Item ("v_ext") <> "" Then
50
		OraDatabase.Parameters.Add "V_EXT",   pkgInfoHash.Item ("v_ext"), 		ORAPARM_INPUT, ORATYPE_VARCHAR2
50
      OraDatabase.Parameters.Add "V_EXT",  pkgInfoHash.Item ("v_ext"), ORAPARM_INPUT, ORATYPE_VARCHAR2
51
	Else
51
   Else
52
	 	OraDatabase.Parameters.Add "V_EXT",   NULL, 		ORAPARM_INPUT, ORATYPE_VARCHAR2
52
      OraDatabase.Parameters.Add "V_EXT",  NULL, ORAPARM_INPUT, ORATYPE_VARCHAR2
53
	End If
53
   End If
54
 
54
 
55
	Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("UnIgnoreUsedByPackagesInThisRelease.sql"), cint(0))
55
   Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("UnIgnoreUsedByPackagesInThisRelease.sql"), cint(0))
56
 
56
 
57
	While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
57
   While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
58
		Call SetIgnoreWarnings(NULL, rsTemp("pv_id"))
58
      Call SetIgnoreWarnings(NULL, rsTemp("pv_id"), parRtag_id)
59
		rsTemp.MoveNext()
59
      rsTemp.MoveNext()
60
	Wend
60
   Wend
61
 
61
 
62
	Set rsTemp = Nothing
62
   Set rsTemp = Nothing
63
	rsTemp.Close()
63
   rsTemp.Close()
64
 
64
 
65
	OraDatabase.Parameters.Remove "RTAG_ID"
65
   OraDatabase.Parameters.Remove "RTAG_ID"
66
	OraDatabase.Parameters.Remove "PKG_ID"
66
   OraDatabase.Parameters.Remove "PKG_ID"
67
	OraDatabase.Parameters.Remove "V_EXT"
67
   OraDatabase.Parameters.Remove "V_EXT"
68
	OraDatabase.Parameters.Remove "SELECTED"
68
   OraDatabase.Parameters.Remove "SELECTED"
69
 
69
 
70
 
-
 
71
 
-
 
72
End Sub
-
 
73
'---------------------------------------------------------------------------------------------------------------------
-
 
74
Sub SetIgnoreWarnings (dpvId, pvId)
-
 
75
 
-
 
76
	OraDatabase.Parameters.Add "RTAG_ID", 			parRtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
-
 
77
	OraDatabase.Parameters.Add "PV_ID", 			pvId,   ORAPARM_INPUT, ORATYPE_NUMBER
-
 
78
	OraDatabase.Parameters.Add "USER_ID", 			objAccessControl.UserId,   ORAPARM_INPUT, ORATYPE_NUMBER
-
 
79
	OraDatabase.Parameters.Add "IGNORE_ID_LIST", 	dpvId, ORAPARM_INPUT, ORATYPE_VARCHAR2
-
 
80
 
-
 
81
	OraSession.BeginTrans
-
 
82
 
-
 
83
	OraDatabase.ExecuteSQL _
-
 
84
	"BEGIN "&_
-
 
85
	" Ignore_Dependency_Warnings( :RTAG_ID, :PV_ID, :IGNORE_ID_LIST, FALSE, :USER_ID ); "&_
-
 
86
	"END; "
-
 
87
 
-
 
88
  	OraSession.CommitTrans
-
 
89
 
-
 
90
	OraDatabase.Parameters.Remove "RTAG_ID"
-
 
91
	OraDatabase.Parameters.Remove "PV_ID"
-
 
92
	OraDatabase.Parameters.Remove "USER_ID"
-
 
93
	OraDatabase.Parameters.Remove "IGNORE_ID_LIST"
-
 
94
End Sub
70
End Sub
95
'-----------------------------------------------------------------------------------------------------------------------------
71
'-----------------------------------------------------------------------------------------------------------------------------
96
If Request("action") <> "" Then
72
If Request("action") <> "" Then
97
%>
73
   %>
98
<!--#include file="_access_control_login.asp"-->
74
   <!--#include file="_access_control_login.asp"-->
99
<!--#include file="_access_control_project.asp"-->
75
   <!--#include file="_access_control_project.asp"-->
100
<%
76
   <%
101
	If ( parRtag_id <> "") AND (parPv_id <> "") Then
77
   If ( parRtag_id <> "") AND (parPv_id <> "") Then
102
		Dim posComma, txt, posUnderscore, dpvId, pvId, value, pvIdList, apvIdList, strList
78
      Dim posComma, txt, posUnderscore, dpvId, pvId, value, pvIdList, apvIdList, strList
103
 
79
 
104
		Set pvIdList = CreateObject("Scripting.Dictionary")
80
      Set pvIdList = CreateObject("Scripting.Dictionary")
105
		'On Error Resume Next
81
      'On Error Resume Next
106
		txt = Mid(Request("ignore_warnings"), 1, len(Request("ignore_warnings")))
82
      txt = Mid(Request("ignore_warnings"), 1, len(Request("ignore_warnings")))
107
		posComma = InStr(txt, ",")
83
      posComma = InStr(txt, ",")
108
 
-
 
109
 
84
 
110
		While posComma <> 0
85
      While posComma <> 0
111
			'Response.Write(txt)
86
         'Response.Write(txt)
112
			value = Mid(txt, 1, posComma-1)
87
         value = Mid(txt, 1, posComma-1)
113
			posUnderscore = Instr(value, "_")
88
         posUnderscore = Instr(value, "_")
114
			pvId = Mid(value, 1, posUnderscore - 1)
89
         pvId = Mid(value, 1, posUnderscore - 1)
115
			dpvId = Mid(value, posUnderscore + 1, posComma-1)
90
         dpvId = Mid(value, posUnderscore + 1, posComma-1)
116
 
91
 
117
			Call SetIgnoreWarnings(dpvId, pvId)
92
         Call SetIgnoreWarnings(dpvId, pvId, parRtag_id)
118
			pvIdList.Add CStr( pvId ), Empty
93
         pvIdList.Add CStr( pvId ), Empty
119
			txt = Mid(txt, posComma + 1, Len(txt))
94
         txt = Mid(txt, posComma + 1, Len(txt))
120
			posComma = InStr(txt, ",")
95
         posComma = InStr(txt, ",")
121
		Wend
96
      Wend
122
 
97
 
123
		If posComma = 0 And Len(txt) > 0 Then
98
      If posComma = 0 And Len(txt) > 0 Then
124
			posUnderscore = Instr(txt, "_")
99
         posUnderscore = Instr(txt, "_")
125
			pvId = Mid(txt, 1, posUnderscore - 1)
100
         pvId = Mid(txt, 1, posUnderscore - 1)
126
			dpvId = Mid(txt, posUnderscore + 1)
101
         dpvId = Mid(txt, posUnderscore + 1)
127
			Call SetIgnoreWarnings(dpvId, pvId)
102
         Call SetIgnoreWarnings(dpvId, pvId, parRtag_id)
128
			pvIdList.Add CStr( pvId ), Empty
103
         pvIdList.Add CStr( pvId ), Empty
129
		End if
104
      End if
130
 
105
 
131
		apvIdList = pvIdList.Keys
106
      apvIdList = pvIdList.Keys
132
 
107
 
133
		'strList = 0
108
      'strList = 0
134
 
109
 
135
		'For Each pvId In apvIdList
110
      'For Each pvId In apvIdList
136
		'	strList = strList&", "&pvId
111
      '   strList = strList&", "&pvId
137
		'Next
112
      'Next
138
 
113
 
139
 
114
 
140
		'Call SetUnignoreWarnings (strList)
115
      'Call SetUnignoreWarnings (strList)
141
		'Call Notify ( parRtag_id )
116
      'Call Notify ( parRtag_id )
142
 
117
 
143
		Response.Redirect("used_by.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id)
118
      Response.Redirect("used_by.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id)
144
	Else
119
   Else
145
		Response.write "Some mandatory parameters are missing!" & "<br>" 'TODO
120
      Response.write "Some mandatory parameters are missing!" & "<br>" 'TODO
146
		Response.write QSTR_All
121
      Response.write QSTR_All
147
	End If
122
   End If
148
End If
123
End If
149
%>
124
%>
150
<html>
125
<html>
151
<title><%=Title(Request("rtag_id"))%></title>
126
<title><%=Title(Request("rtag_id"))%></title>
152
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
127
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
Line 156... Line 131...
156
<script language="JavaScript" src="images/common.js"></script>
131
<script language="JavaScript" src="images/common.js"></script>
157
<script language="JavaScript" src="scripts/remote_scripting.js"></script>
132
<script language="JavaScript" src="scripts/remote_scripting.js"></script>
158
<script language="javascript">
133
<script language="javascript">
159
<!--
134
<!--
160
function checkUncheckAll(theElement) {
135
function checkUncheckAll(theElement) {
161
     var theForm = theElement.form, z = 0;
136
   var theForm = theElement.form, z = 0;
162
	 for(z=0; z<theForm.length;z++){
137
   for(z=0; z<theForm.length;z++){
163
      if(theForm[z].type == 'checkbox' && theForm[z].name != 'checkall' && theForm[z].disabled != true){
138
      if(theForm[z].type == 'checkbox' && theForm[z].name != 'checkall' && theForm[z].disabled != true){
164
	  theForm[z].checked = theElement.checked;
139
         theForm[z].checked = theElement.checked;
165
	  }
140
      }
166
     }
141
   }
167
    }
142
}
168
//-->
143
//-->
169
</script>
144
</script>
170
<!-- DROPDOWN MENUS -->
145
<!-- DROPDOWN MENUS -->
171
<!--#include file="_menu_def.asp"-->
146
<!--#include file="_menu_def.asp"-->
172
<script language="JavaScript1.2" src="images/popup_menu.js"></script>
147
<script language="JavaScript1.2" src="images/popup_menu.js"></script>
173
<script language="JavaScript" type="text/javascript">
148
<script language="JavaScript" type="text/javascript">
174
<!--
149
<!--
175
 
150
 
176
function RequestUsedByThisProject( paramString, rowId ){
151
function RequestUsedByThisProject( paramString, rowId ){
177
	var requestURL = 'RequestUsedByThisProject.asp';
152
   var requestURL = 'RequestUsedByThisProject.asp';
178
 
-
 
179
	// Show div
-
 
180
	ToggleDisplay( 'PROJECT_'+ rowId, 'IMG_EXPAND_USED_BY_' + rowId, 'IMG_COLLAPSE_USED_BY_' + rowId );
-
 
181
 
-
 
182
	// Set ajax divname
-
 
183
	ajaxdivname = 'PROJECT_'+ rowId;
-
 
184
 
-
 
185
	if ( MM_findObj( ajaxdivname ).innerHTML == '<%=enumLOADING%>')
-
 
186
	{
-
 
187
 
153
 
188
		//Append the name to search for to the requestURL
154
   // Show div
189
		var url = requestURL + paramString;
155
   ToggleDisplay( 'PROJECT_'+ rowId, 'IMG_EXPAND_USED_BY_' + rowId, 'IMG_COLLAPSE_USED_BY_' + rowId );
190
 
156
 
191
		//Create the xmlHttp object to use in the request
157
   // Set ajax divname
192
		//stateChangeHandler will fire when the state has changed, i.e. data is received back
-
 
193
		// This is non-blocking (asynchronous)
158
   ajaxdivname = 'PROJECT_'+ rowId;
194
		xmlHttp = GetXmlHttpObject(stateChangeHandler);
-
 
195
 
159
 
-
 
160
   if ( MM_findObj( ajaxdivname ).innerHTML == '<%=enumLOADING%>')
-
 
161
   {
196
		//Send the xmlHttp get to the specified url
162
      //Append the name to search for to the requestURL
197
		xmlHttp_Get(xmlHttp, url);
163
      var url = requestURL + paramString;
198
 
164
 
199
	}
-
 
-
 
165
      //Create the xmlHttp object to use in the request
-
 
166
      //stateChangeHandler will fire when the state has changed, i.e. data is received back
-
 
167
      // This is non-blocking (asynchronous)
-
 
168
      xmlHttp = GetXmlHttpObject(stateChangeHandler);
200
	
169
 
-
 
170
      //Send the xmlHttp get to the specified url
-
 
171
      xmlHttp_Get(xmlHttp, url);
201
	
172
   }
202
}
173
}
203
 
174
 
204
//-->
175
//-->
205
</script>
176
</script>
206
</head>
177
</head>
207
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
178
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
208
<!-- MENU LAYERS -------------------------------------->
179
<!-- MENU LAYERS -------------------------------------->
209
<div id="popmenu" class="menuskin" onMouseover="clearhidemenu();highlightmenu(event,'on')" onMouseout="highlightmenu(event,'off');dynamichide(event)"> 
180
<div id="popmenu" class="menuskin" onMouseover="clearhidemenu();highlightmenu(event,'on')" onMouseout="highlightmenu(event,'off');dynamichide(event)">
210
  <!----------------------------------------------------->
181
  <!----------------------------------------------------->
211
</div>
182
</div>
212
<!-- HEADER -->
183
<!-- HEADER -->
213
<!--#include file="_header.asp"-->
184
<!--#include file="_header.asp"-->
214
<!-- BODY ---->
185
<!-- BODY ---->
215
<table width="100%" border="0" cellspacing="0" cellpadding="0">
186
<table width="100%" border="0" cellspacing="0" cellpadding="0">
216
	<tr> 
187
   <tr>
217
		<td valign="top" width="1" background="images/bg_bage.gif">
188
      <td valign="top" width="1" background="images/bg_bage.gif">
218
		<!-- LEFT -->
189
         <!-- LEFT -->
219
		<!--#include file="_environment.asp"-->
190
         <!--#include file="_environment.asp"-->
220
		</td>
191
      </td>
221
		<td width="1" bgcolor="#999999"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
192
      <td width="1" bgcolor="#999999"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
222
		<td valign="top" width="100%">
193
      <td valign="top" width="100%">
223
		<!-- MIDDLE -->
194
         <!-- MIDDLE -->
224
		<table width="100%" border="0" cellspacing="0" cellpadding="0">
195
         <table width="100%" border="0" cellspacing="0" cellpadding="0">
225
		  <tr>
196
            <tr>
226
		    <td width="1%" background="images/bg_action_norm.gif"><IMG height=35 src="images/spacer.gif" width=15></td>
197
               <td width="1%" background="images/bg_action_norm.gif"><IMG height=35 src="images/spacer.gif" width=15></td>
227
		    <td width="100%" background="images/bg_action_norm.gif"><!--#include file="_pkg_action_buttons.asp"--></td>
198
               <td width="100%" background="images/bg_action_norm.gif"><!--#include file="_pkg_action_buttons.asp"--></td>
228
		    <td width="1%" background="images/bg_action_norm.gif"><IMG height=1 src="images/spacer.gif" width=15></td>
199
               <td width="1%" background="images/bg_action_norm.gif"><IMG height=1 src="images/spacer.gif" width=15></td>
229
		  </tr>
200
            </tr>
230
		  <!-- PACKAGE PROPERTIES ----------------------------  -->
201
            <!-- PACKAGE PROPERTIES ----------------------------  -->
231
          <%Call RenderPackageProperties ()%>
202
            <%Call RenderPackageProperties ()%>
232
		  <tr>
203
            <tr>
233
		    <td background="images/bg_lght_gray.gif">&nbsp;</td>
204
               <td background="images/bg_lght_gray.gif">&nbsp;</td>
234
		    <td valign="bottom" background="images/bg_lght_gray.gif">
205
               <td valign="bottom" background="images/bg_lght_gray.gif">
235
		      <table width="100" border="0" cellspacing="0" cellpadding="0">
206
                  <table width="100" border="0" cellspacing="0" cellpadding="0">
236
		        <tr>
207
                     <tr>
237
		          <td><IMG height=1 src="images/spacer.gif" width=50></td>
208
                        <td><IMG height=1 src="images/spacer.gif" width=50></td>
238
		          <td>
209
                        <td>
239
				  <!-- TABS ------------------------------------->
210
                           <!-- TABS ------------------------------------->
240
				  <%Call Generate_Tab_Menu ( TABarray1, "Used by", "orange" )%>
211
                           <%Call Generate_Tab_Menu ( TABarray1, "Used by", "orange" )%>
241
				  </td>
212
                        </td>
242
		        </tr>
213
                     </tr>
243
		      </table>
214
                  </table>
244
		    </td>
215
               </td>
245
		    <td background="images/bg_lght_gray.gif">&nbsp;</td>
216
               <td background="images/bg_lght_gray.gif">&nbsp;</td>
246
		  </tr>
217
            </tr>
247
		  <tr>
218
            <tr>
248
		    <td background="images/lbox_bg_orange.gif"><IMG height=35 src="images/spacer.gif" width=1></td>
219
               <td background="images/lbox_bg_orange.gif"><IMG height=35 src="images/spacer.gif" width=1></td>
249
		    <td background="images/lbox_bg_orange.gif">
220
               <td background="images/lbox_bg_orange.gif">
250
			<!-- TAB ACTION BUTTONS ------------------------------------->
221
                  <!-- TAB ACTION BUTTONS ------------------------------------->
251
			</td>
222
               </td>
252
		    <td background="images/lbox_bg_orange.gif">&nbsp;</td>
223
               <td background="images/lbox_bg_orange.gif">&nbsp;</td>
253
		  </tr>
224
            </tr>
254
		  <tr>
225
            <tr>
255
		    <td></td>
226
               <td></td>
256
		    <td valign="top">
227
               <td valign="top">
257
			<!-- DETAILS ------------------------------------------------->
228
                  <!-- DETAILS ------------------------------------------------->
258
<%
229
                  <%
259
'-- FROM START ---------------------------------------------------------------------------------------------------------
230
                  '-- FROM START ---------------------------------------------------------------------------------------------------------
260
objFormComponent.FormName = "FormName"
231
                  objFormComponent.FormName = "FormName"
261
objFormComponent.Action = ScriptName&"?pv_id="&Request("pv_id")&"&rtag_id="&parRtag_id
232
                  objFormComponent.Action = ScriptName&"?pv_id="&Request("pv_id")&"&rtag_id="&parRtag_id
262
Call objFormComponent.FormStart()
233
                  Call objFormComponent.FormStart()
263
%>			
234
                  %>
264
					<%If Request("rtag_id") <> "" Then%>
235
                  <%If Request("rtag_id") <> "" Then%>
265
					<br>
236
                     <br>
266
					<span class="body_sect">Used by Packages In This Release</span>			<br> 
237
                     <span class="body_sect">Used by Packages In This Release</span>         <br>
267
                        <!-- USED BY ------------------------------------------------>
238
                     <!-- USED BY ------------------------------------------------>
268
                        <table width="100%" border="0" cellspacing="1" cellpadding="3">
239
                     <table width="100%" border="0" cellspacing="1" cellpadding="3">
269
                          <tr> 
240
                        <tr>
270
						  	<td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field"><INPUT type=checkbox name="checkall" value="Check All" onClick="checkUncheckAll(this);"></td>
241
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field"><INPUT type=checkbox name="checkall" value="Check All" onClick="checkUncheckAll(this);"></td>
271
						    <td background="images/bg_form_lightbluedark.gif" nowrap width="1"></td>
242
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="1"></td>
272
                            <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Name</td>
243
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Name</td>
273
							<td background="images/bg_form_lightbluedark.gif" nowrap width="25%" class="form_field">Version</td>
244
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="25%" class="form_field">Version</td>
274
							<td background="images/bg_form_lightbluedark.gif" nowrap width="25%" class="form_field">Location</td>
245
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="25%" class="form_field">Location</td>
275
							<td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field"></td>
246
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field"></td>
276
							<td background="images/bg_form_lightbluedark.gif" nowrap width="25%" class="form_field">Version Used</td>
247
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="25%" class="form_field">Version Used</td>
277
                            <td background="images/bg_form_lightbluedark.gif" nowrap width="25%" class="form_field">Last Modified</td>
248
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="25%" class="form_field">Last Modified</td>
278
                          </tr>
249
                        </tr>
279
						  <%
250
                        <%
280
						  OraDatabase.Parameters.Add "RTAG_ID", parRtag_id, 	ORAPARM_INPUT, ORATYPE_NUMBER 
251
                        OraDatabase.Parameters.Add "RTAG_ID", parRtag_id,    ORAPARM_INPUT, ORATYPE_NUMBER
281
						  OraDatabase.Parameters.Add "PKG_ID",  pkgInfoHash.Item ("pkg_id"), 		ORAPARM_INPUT, ORATYPE_NUMBER 
252
                        OraDatabase.Parameters.Add "PKG_ID",  pkgInfoHash.Item ("pkg_id"),       ORAPARM_INPUT, ORATYPE_NUMBER
282
						  
253
 
283
						  If pkgInfoHash.Item ("v_ext") <> "" Then
254
                        If pkgInfoHash.Item ("v_ext") <> "" Then
284
					  	  	OraDatabase.Parameters.Add "V_EXT",   pkgInfoHash.Item ("v_ext"), 		ORAPARM_INPUT, ORATYPE_VARCHAR2
255
                              OraDatabase.Parameters.Add "V_EXT",   pkgInfoHash.Item ("v_ext"),       ORAPARM_INPUT, ORATYPE_VARCHAR2
285
						  Else
256
                        Else
286
						  	OraDatabase.Parameters.Add "V_EXT",   NULL, 		ORAPARM_INPUT, ORATYPE_VARCHAR2
257
                           OraDatabase.Parameters.Add "V_EXT",   NULL,       ORAPARM_INPUT, ORATYPE_VARCHAR2
287
						  End If
258
                        End If
288
						  
259
 
289
						  
260
                        Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("UsedByPackagesInThisRelease.sql"), cint(0))
290
						  Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("UsedByPackagesInThisRelease.sql"), cint(0))
261
 
291
						  
262
                        OraDatabase.Parameters.Remove "RTAG_ID"
292
						  OraDatabase.Parameters.Remove "RTAG_ID"
263
                        OraDatabase.Parameters.Remove "PKG_ID"
293
						  OraDatabase.Parameters.Remove "PKG_ID"
264
                        OraDatabase.Parameters.Remove "V_EXT"
294
						  OraDatabase.Parameters.Remove "V_EXT"
265
                        %>
295
						  
266
                        <%If rsTemp.RecordCount < 1 Then%>
296
						  
267
                           <tr>
297
						  %>
268
                              <td background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td>
298
						  <%If rsTemp.RecordCount < 1 Then%>
269
                              <td background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td>
299
						  <tr> 
270
                              <td background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td>
300
							<td background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td>						  
271
                              <td background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td>
301
						    <td background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td>
272
                              <td background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td><br>
302
                            <td background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td>
273
                              <td background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td>
303
							<td background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td>
274
                              <td background="images/bg_form_lightgray.gif" class="form_item">&nbsp;</td>
304
							<td background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td><br>
275
                              <td background="images/bg_form_lightgray.gif" class="form_item">&nbsp;</td>
305
							<td background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td>
276
                           </tr>
306
                            <td background="images/bg_form_lightgray.gif" class="form_item">&nbsp;</td>
277
                        <%End If%>
307
                            <td background="images/bg_form_lightgray.gif" class="form_item">&nbsp;</td>
278
                        <%While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))%>
308
                          </tr>
279
                           <tr>
309
						  <%End If%>
280
                              <%
310
			  			  <%While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))%>
281
                              Set rsState = OraDatabase.DbCreateDynaset( "select deprecated_state from release_content where rtag_id="&parRtag_id&" and pv_id="&rsTemp("pv_id"), cint(0))%>
311
                          <tr>
282
 
312
						  <%  
283
                              <%If rsTemp("dpv_id") <> parPv_id And IsNull(rsTemp("ignore_warn")) Then%>
313
						  Set rsState = OraDatabase.DbCreateDynaset( "select deprecated_state from release_content where rtag_id="&parRtag_id&" and pv_id="&rsTemp("pv_id"), cint(0))%>
284
                                 <td background="images/bg_form_lightgray.gif" nowrap><input type="checkbox" name="ignore_warnings" value="<%=rsTemp("pv_id")%>_<%=rsTemp("dpv_id")%>"></td>
314
							
285
                              <%ElseIf rsTemp("dpv_id") = parPv_id And IsNull(rsTemp("ignore_warn")) OR NOT isNull(rsTemp("ignore_warn")) Then%>
315
						 <%If rsTemp("dpv_id") <> parPv_id And IsNull(rsTemp("ignore_warn")) Then%>
286
                                 <td background="images/bg_form_lightgray.gif" nowrap><input type="checkbox" name="ignore_warnings" value="<%=rsTemp("pv_id")%>_<%=rsTemp("dpv_id")%>" disabled></td>
316
							<td background="images/bg_form_lightgray.gif" nowrap><input type="checkbox" name="ignore_warnings" value="<%=rsTemp("pv_id")%>_<%=rsTemp("dpv_id")%>"></td>
287
                              <%Else%>
317
						 <%ElseIf rsTemp("dpv_id") = parPv_id And IsNull(rsTemp("ignore_warn")) OR NOT isNull(rsTemp("ignore_warn")) Then%>
288
                                 <td background="images/bg_form_lightgray.gif" nowrap><input type="checkbox" name="ignore_warnings" value="<%=rsTemp("pv_id")%>_<%=rsTemp("dpv_id")%>" checked></td>
318
							<td background="images/bg_form_lightgray.gif" nowrap><input type="checkbox" name="ignore_warnings" value="<%=rsTemp("pv_id")%>_<%=rsTemp("dpv_id")%>" disabled></td>	
289
                              <%End If%>
319
						 <%Else%>
290
                              <%
320
						 	<td background="images/bg_form_lightgray.gif" nowrap><input type="checkbox" name="ignore_warnings" value="<%=rsTemp("pv_id")%>_<%=rsTemp("dpv_id")%>" checked></td>		
291
                              If rsState("deprecated_state") <> "" AND rsTemp("pkg_state") = 0 Then
321
						 <%End If%>							
292
                              %>
322
						  <%
293
                                 <td background="images/bg_form_lightgray.gif"><%=DefineStateIcon ( rsState("deprecated_state"), rsTemp("dlocked"), NULL, NULL, pkgInfoHash.Item("build_type"), TRUE )%></td>
323
						  If rsState("deprecated_state") <> "" AND rsTemp("pkg_state") = 0 Then
294
                              <%Else%>
324
						  %>	
295
                                 <td background="images/bg_form_lightgray.gif"><%=DefineStateIcon ( rsTemp("pkg_state"), rsTemp("dlocked"), NULL, NULL, pkgInfoHash.Item("build_type"), TRUE )%></td>
325
						    <td background="images/bg_form_lightgray.gif"><%=DefineStateIcon ( rsState("deprecated_state"), rsTemp("dlocked"), NULL, NULL, pkgInfoHash.Item("build_type"), TRUE )%></td>
296
                              <%End If%>
326
						<%Else%>	
297
                              <td background="images/bg_form_lightgray.gif" nowrap><a href="used_by.asp?pv_id=<%=rsTemp("pv_id")%>&rtag_id=<%=parRtag_id%>" class="txt_linked"><%=rsTemp("pkg_name")%></a></td>
327
						    <td background="images/bg_form_lightgray.gif"><%=DefineStateIcon ( rsTemp("pkg_state"), rsTemp("dlocked"), NULL, NULL, pkgInfoHash.Item("build_type"), TRUE )%></td>
298
                              <td background="images/bg_form_lightgray.gif" class="form_item"><%=rsTemp("pkg_version")%></td>
328
						<%End If%>	
299
                              <td background="images/bg_form_lightgray.gif" class="body_txt_gray" nowrap><%=GetEnvName(rsTemp("env_area"))%></td>
329
                            <td background="images/bg_form_lightgray.gif" nowrap><a href="used_by.asp?pv_id=<%=rsTemp("pv_id")%>&rtag_id=<%=parRtag_id%>" class="txt_linked"><%=rsTemp("pkg_name")%></a></td>
300
                              <td background="images/bg_form_lightgray.gif"><%=DefineStateIcon ( 0, "Y", rsTemp("ignore_warn"), rsTemp("is_patch_ignore"), pkgInfoHash.Item("build_type"), TRUE )%></td>
330
							<td background="images/bg_form_lightgray.gif" class="form_item"><%=rsTemp("pkg_version")%></td>
301
                              <td background="images/bg_form_lightgray.gif" <%If rsTemp("dpv_id") <> parPv_id Then%>class="err_alert"<%Else%>class="form_item"<%End If%>><%=pkgInfoHash.Item ("pkg_name") &" "& rsTemp("dpkg_version")%></td>
331
							<td background="images/bg_form_lightgray.gif" class="body_txt_gray" nowrap><%=GetEnvName(rsTemp("env_area"))%></td>
302
                              <td background="images/bg_form_lightgray.gif" class="form_item"><a href="mailto:<%=rsTemp("user_email")%>" class="txt_linked"><%=enum_imgUser%><%=rsTemp("full_name")%></a>&nbsp;<%=EuroDate ( rsTemp("modified_stamp") )%></td>
332
							<td background="images/bg_form_lightgray.gif"><%=DefineStateIcon ( 0, "Y", rsTemp("ignore_warn"), rsTemp("is_patch_ignore"), pkgInfoHash.Item("build_type"), TRUE )%></td>
303
                           </tr>
333
							<td background="images/bg_form_lightgray.gif" <%If rsTemp("dpv_id") <> parPv_id Then%>class="err_alert"<%Else%>class="form_item"<%End If%>><%=pkgInfoHash.Item ("pkg_name") &" "& rsTemp("dpkg_version")%></td>
304
                           <%rsTemp.MoveNext
334
                            <td background="images/bg_form_lightgray.gif" class="form_item"><a href="mailto:<%=rsTemp("user_email")%>" class="txt_linked"><%=enum_imgUser%><%=rsTemp("full_name")%></a>&nbsp;<%=EuroDate ( rsTemp("modified_stamp") )%></td>
305
                           rsTemp.Close()
335
                          </tr>
306
                           rsState.Close()
336
                          <%rsTemp.MoveNext
307
 
337
						  rsTemp.Close()
308
                           Set rsState = nothing
338
						  rsState.Close()
309
                        WEnd
339
						  
310
                        Set rsTemp = nothing
340
						  Set rsState = nothing
311
                        %>
341
						  WEnd
312
                     </table>
342
						  Set rsTemp = nothing
313
                     <input name="btn" type="submit" class="form_btn" value="Apply"><br>
343
							%>
314
                     <SPAN class="rep_small">NOTE: Click on Apply "To Ignore Warnings" On Packages Used By</SPAN><br>
344
                        </table>
315
                     <SPAN class="rep_small">NOTE: Versions in <SPAN class="err_alert">RED</SPAN> are different from <%=pkgInfoHash.Item("pkg_name") &" "& pkgInfoHash.Item("pkg_version")%></span>
345
						<input name="btn" type="submit" class="form_btn" value="Apply"><br>
316
                     <br><br>
346
						<SPAN class="rep_small">NOTE: Click on Apply "To Ignore Warnings" On Packages Used By</SPAN><br>
317
                     <input type="hidden" name="action" value="true">
347
						<SPAN class="rep_small">NOTE: Versions in <SPAN class="err_alert">RED</SPAN> are different from <%=pkgInfoHash.Item("pkg_name") &" "& pkgInfoHash.Item("pkg_version")%></span>
318
                  <%End If%>
348
						<br><br>
319
                  <%
349
						<input type="hidden" name="action" value="true">
320
                  Call objFormComponent.FormEnd()
350
					<%End If%>
321
                  '-- FROM END ----------------------------------------------------------------------------------------------------------------
351
<%
322
                  %>
352
Call objFormComponent.FormEnd()
323
                  <!------------------------------------------------------------>
353
'-- FROM END ----------------------------------------------------------------------------------------------------------------
324
                  <br>
354
%> 					
325
                  <span class="body_sect">Used by Projects</span>
355
                       <!------------------------------------------------------------>
326
                  <table width="100%"  border="0" cellspacing="1" cellpadding="4">
356
                       <br>
327
                     <tr>
357
                       <span class="body_sect">Used by Projects</span>
328
                        <td width="1%" background="images/bg_form_lightbluedark.gif" nowrap class="body_col"></td>
358
					   <table width="100%"  border="0" cellspacing="1" cellpadding="4">
329
                        <td width="100%" background="images/bg_form_lightbluedark.gif" nowrap class="body_col">Project</td>
359
					     <tr>
330
                     </tr>
360
						   <td width="1%" background="images/bg_form_lightbluedark.gif" nowrap class="body_col"></td>
331
                     <%
361
                           <td width="100%" background="images/bg_form_lightbluedark.gif" nowrap class="body_col">Project</td>
332
                     Dim currWorld, bgColor, linkSync
362
                         </tr>
333
                     currWorld = -1
363
					    <%
334
 
364
						  Dim currWorld, bgColor, linkSync
335
                     OraDatabase.Parameters.Add "RTAG_ID", parRtag_id,    ORAPARM_INPUT, ORATYPE_NUMBER
365
						  currWorld = -1
336
                     OraDatabase.Parameters.Add "PKG_ID",  pkgInfoHash.Item ("pkg_id"),       ORAPARM_INPUT, ORATYPE_NUMBER
366
						  
337
 
367
						  OraDatabase.Parameters.Add "RTAG_ID", parRtag_id, 	ORAPARM_INPUT, ORATYPE_NUMBER 
338
                     If pkgInfoHash.Item ("v_ext") <> "" Then
368
						  OraDatabase.Parameters.Add "PKG_ID",  pkgInfoHash.Item ("pkg_id"), 		ORAPARM_INPUT, ORATYPE_NUMBER 
339
                        OraDatabase.Parameters.Add "V_EXT",   pkgInfoHash.Item ("v_ext"),       ORAPARM_INPUT, ORATYPE_VARCHAR2
369
						  
340
                     Else
370
						  If pkgInfoHash.Item ("v_ext") <> "" Then
341
                        OraDatabase.Parameters.Add "V_EXT",   NULL,       ORAPARM_INPUT, ORATYPE_VARCHAR2
371
					  	  	OraDatabase.Parameters.Add "V_EXT",   pkgInfoHash.Item ("v_ext"), 		ORAPARM_INPUT, ORATYPE_VARCHAR2
342
                     End If
372
						  Else
343
 
373
						  	OraDatabase.Parameters.Add "V_EXT",   NULL, 		ORAPARM_INPUT, ORATYPE_VARCHAR2
344
                     Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("UsedByProjects.sql"), cint(0) )
374
						  End If
345
 
375
						  
346
                     OraDatabase.Parameters.Remove "RTAG_ID"
376
						  
347
                     OraDatabase.Parameters.Remove "PKG_ID"
377
						  Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("UsedByProjects.sql"), cint(0) )
348
                     OraDatabase.Parameters.Remove "V_EXT"
378
						  
349
                     %>
379
						  OraDatabase.Parameters.Remove "RTAG_ID"
350
                     <%If rsTemp.RecordCount < 1 Then%>
380
						  OraDatabase.Parameters.Remove "PKG_ID"
351
                        <tr>
381
						  OraDatabase.Parameters.Remove "V_EXT"
352
                           <td background="images/bg_form_lightgray.gif" nowrap class="form_item">&nbsp;</td>
382
						  
353
                           <td background="images/bg_form_lightgray.gif" nowrap class="form_item">&nbsp;</td>
383
						  %>
354
                        </tr>
384
						 <%If rsTemp.RecordCount < 1 Then%>
355
                     <%End If%>
385
						 <tr>
356
                     <%While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
386
						   <td background="images/bg_form_lightgray.gif" nowrap class="form_item">&nbsp;</td>
357
                        projId = rsTemp("proj_id")
387
						   <td background="images/bg_form_lightgray.gif" nowrap class="form_item">&nbsp;</td>
358
                        %>
388
                         </tr>
359
                        <tr>
389
						  <%End If%>
360
                           <td background="images/bg_form_lightgray.gif" class="form_item"></td>
390
						  <%While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
361
                           <td nowrap background="images/bg_form_lightgray.gif" class="form_item">
391
						  	projId = rsTemp("proj_id")
362
                              <SPAN id="IMG_EXPAND_USED_BY_<%=projId%>" name="IMG_EXPAND_USED_BY_<%=projId%>" style="display:block;"><a href="javascript:;" class="txt_linked" onClick="RequestUsedByThisProject('?pv_id=<%=pkgInfoHash.Item("pv_id")%>&proj_id=<%=projId%>', '<%=projId%>');"><img src="images/bt_plus.gif" border="0" align="absmiddle" hspace="3"><%= rsTemp("proj_name") &" ("& rsTemp("used_count") &")"%></a></SPAN>
392
						  %>
363
                              <SPAN id="IMG_COLLAPSE_USED_BY_<%=projId%>" name="IMG_COLLAPSE_USED_BY_<%=projId%>" style="display:none;"><a href="javascript:;" class="txt_linked" onClick="ToggleDisplay( 'PROJECT_<%=projId%>', 'IMG_EXPAND_USED_BY_<%=projId%>', 'IMG_COLLAPSE_USED_BY_<%=projId%>');"><img src="images/bt_minus.gif" border="0" align="absmiddle" hspace="3"><%= rsTemp("proj_name") &" ("& rsTemp("used_count") &")"%></a></SPAN>
393
						  <tr>
364
 
394
						   <td background="images/bg_form_lightgray.gif" class="form_item"></td>
365
                              <DIV id="PROJECT_<%=projId%>" name="PROJECT_<%=projId%>" style="display:none;"><%=enumLOADING%></DIV>
395
						   <td nowrap background="images/bg_form_lightgray.gif" class="form_item">
366
                           </td>
396
						     <SPAN id="IMG_EXPAND_USED_BY_<%=projId%>" name="IMG_EXPAND_USED_BY_<%=projId%>" style="display:block;"><a href="javascript:;" class="txt_linked" onClick="RequestUsedByThisProject('?pv_id=<%=pkgInfoHash.Item("pv_id")%>&proj_id=<%=projId%>', '<%=projId%>');"><img src="images/bt_plus.gif" border="0" align="absmiddle" hspace="3"><%= rsTemp("proj_name") &" ("& rsTemp("used_count") &")"%></a></SPAN>
367
                        </tr>
397
							 <SPAN id="IMG_COLLAPSE_USED_BY_<%=projId%>" name="IMG_COLLAPSE_USED_BY_<%=projId%>" style="display:none;"><a href="javascript:;" class="txt_linked" onClick="ToggleDisplay( 'PROJECT_<%=projId%>', 'IMG_EXPAND_USED_BY_<%=projId%>', 'IMG_COLLAPSE_USED_BY_<%=projId%>');"><img src="images/bt_minus.gif" border="0" align="absmiddle" hspace="3"><%= rsTemp("proj_name") &" ("& rsTemp("used_count") &")"%></a></SPAN>
368
 
398
						   	
369
                        <%rsTemp.MoveNext
399
							 <DIV id="PROJECT_<%=projId%>" name="PROJECT_<%=projId%>" style="display:none;"><%=enumLOADING%></DIV>
370
                     WEnd
400
						   </td>
371
                     rsTemp.Close
401
						  </tr>
372
                     Set rsTemp = nothing%>
402
								  
373
 
403
								 
374
                  </table><br>
404
						 <%rsTemp.MoveNext
375
                  <SPAN class="rep_small">NOTE: Versions in <SPAN class="err_alert">RED</SPAN> are different from <%=pkgInfoHash.Item("pkg_name") &" "& pkgInfoHash.Item("pkg_version")%></span>
405
						  WEnd
376
                  <br>
406
						  rsTemp.Close
377
                  <!-- END DETAILS ------------------------------------------------->
407
						  Set rsTemp = nothing%>
378
               </td>
408
						  
379
               <td>&nbsp;</td>
409
                       </table><br>
380
            </tr>
410
					   <SPAN class="rep_small">NOTE: Versions in <SPAN class="err_alert">RED</SPAN> are different from <%=pkgInfoHash.Item("pkg_name") &" "& pkgInfoHash.Item("pkg_version")%></span>
381
         </table>
411
					   <br>
382
         <!-- END MIDDLE -------->
412
			<!-- END DETAILS ------------------------------------------------->			</td>
383
      </td>
413
		    <td>&nbsp;</td>
384
   </tr>
414
		  </tr>
-
 
415
		</table>
-
 
416
		<!-- END MIDDLE -------->
-
 
417
		</td>
-
 
418
	</tr>
-
 
419
</table>
385
</table>
420
<!-- FOOTER -->
386
<!-- FOOTER -->
421
<!--#include file="_footer.asp"-->
387
<!--#include file="_footer.asp"-->
422
</body>
388
</body>
423
</html>
389
</html>