<%@LANGUAGE="VBSCRIPT"%>
<%
'=====================================================
'|                                                   |
'|	          wUpdateProdAtNodes.asp				 |
'|                                                   |
'=====================================================
%>
<%
Option explicit
Response.Expires = 0
%>
<!--#include file="common/globals.asp"-->
<!--#include file="common/config.asp"-->
<!--#include file="common/common_subs.asp"-->
<!--#include file="common/_popup_window_common.asp"-->
<%
'------------ ACCESS CONTROL ------------------
%>
<!--#include file="_access_control_general.asp"-->
<%
'------------ VARIABLE DEFINITION -------------
Dim rsQry
Dim objFormCollector
'------------ CONSTANTS DECLARATION -----------
'------------ VARIABLE INIT -------------------
parBom_id = Request("bom_id")
Set objFormCollector = CreateObject("Scripting.Dictionary")
'------------ CONDITIONS ----------------------
'----------------------------------------------
%>
<%
'--------------------------------------------------------------------------------------------------------------------------
Sub GetFormDetails ( nBom_id, ByRef outobjDetails )
	Dim rsQry, query
	OraDatabase.Parameters.Add "BOM_ID", 		nBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER 
	OraDatabase.Parameters.Add "BASE_ENV_ID", 	NULL,			ORAPARM_INPUT, ORATYPE_NUMBER 
	
	
	query = _
	"   SELECT proj.RM_PROJECTS_FK,"&_
	"		   br.RM_VTREE_FK"&_
	"	  FROM DM_PROJECTS proj,"&_
	"	  	   BRANCHES br,"&_
	"		   BOMS bo"&_
	"	 WHERE br.PROJ_ID = proj.PROJ_ID"&_
	"	   AND bo.BRANCH_ID = br.BRANCH_ID"&_
	"	   AND bo.BOM_ID = :BOM_ID"
	
	Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
	If (NOT rsQry.BOF) AND (NOT rsQry.EOF)Then
		outobjDetails.Item ("rm_projects_fk") = rsQry("rm_projects_fk")
		outobjDetails.Item ("rm_vtree_fk") = rsQry("rm_vtree_fk")
		
	End If
	
	
	OraDatabase.Parameters.Remove "BOM_ID"
	OraDatabase.Parameters.Remove "BASE_ENV_ID"
	
	rsQry.Close
	Set rsQry = Nothing
End Sub
'--------------------------------------------------------------------------------------------------------------------------
Sub AddProd ()
	On Error Resume Next
	
	OraDatabase.Parameters.Add "PROD_ID_LIST", 	Request("prod_id_list"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
	OraDatabase.Parameters.Add "OS_ID", 		Request("os_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER 
	
	
	objEH.TryORA ( OraSession )
	
	OraDatabase.ExecuteSQL _
	"BEGIN   pk_Product.Add_Product ( :PROD_ID_LIST, :OS_ID );   END;"
	
	objEH.CatchORA ( OraSession )
	
	
	OraDatabase.Parameters.Remove "PROD_ID_LIST"
	OraDatabase.Parameters.Remove "OS_ID"
End Sub
'--------------------------------------------------------------------------------------------------------------------------
Function SearchPackageNames ( SSpkgfind )
	Dim pkg_name_like, SQLor, pkglistARR
	
	SQLor = ""
	If Len( Replace( SSpkgfind, " ", "" ) ) = 0 Then
		' Show all pkg names
		SQLor = " OR pkg.pkg_name LIKE '%'"
		
	Else
		' Search for ...
		pkglistARR = Split( Trim( SSpkgfind ), " ")
		
		If Ubound( pkglistARR ) > 0 Then
			' Multiple pkg_name search
			For Each pkg_name_like In pkglistARR
				If pkg_name_like <> "" Then
					SQLor = SQLor &" OR UPPER(pkg.pkg_name) LIKE UPPER('%"& pkg_name_like &"%')"
				End If
			Next
			
		Else
			' Single pkg_name search
			SQLor = " OR UPPER(pkg.pkg_name) LIKE UPPER('%"& Trim( SSpkgfind ) &"%')"
		End If
		
	End If
	
	Search_For_Package_Names = _
	" SELECT pkg.*"&_
	"  FROM packages pkg"&_
	" WHERE pkg.pkg_id != 0"&_
	"   AND ( pkg.pkg_name = ''"&_
	SQLor &_
	"       )"&_
	"ORDER BY UPPER(pkg.pkg_name)"
	
End Function
'--------------------------------------------------------------------------------------------------------------------------
%>
<%
'------------ RUN BEFORE PAGE RENDER ----------
If CBool(Request("action")) Then
	If Request("prod_id_list") <> "" Then
		'-- Add Product List
		Call AddProd()
		
		If objEH.Finally Then
			Call OpenInParentWindow ( Request("rfile") &"?"& objPMod.ComposeURL() )
			Call CloseWindow()
		End If
		
		
	ElseIf Request("prod_name") <> "" Then
		'-- Product Search
		
		
	End If
	
End If

Call GetFormDetails ( parBom_id, objFormCollector )
'----------------------------------------------
%>
<html>
<head>
<title>Deployment Manager</title>
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
<script language="JavaScript" src="scripts/common.js"></script>
</head>

<body background="images/bg_form.gif" leftmargin="0" topmargin="0" onLoad="self.focus();">
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
  <form name="FormName" method="post" action="<%=SCRIPT_NAME%>">
  <tr>
    <td background="images/bg_login.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td>&nbsp;</td>
        <td align="right">
		  <input name="btn" type="submit" class="form_btn" value="&laquo; Back">
		  <input name="btn" type="submit" class="form_btn" value="Next &raquo;">&nbsp;
		  <input name="btn" type="submit" class="form_btn" value="Finish">&nbsp;
          <input name="btn" type="reset" class="form_btn" value="Cancel" onClick="self.close();"></td>
      </tr>
    </table></td>
  </tr>
  <tr>
    <td class="body_txt"><span class="body_h1"><img src="icons/i_linkarrow_black.gif" width="11" height="11" align="absmiddle">&nbsp;Add Product </span> <br>
    Product is Found   Search for Product or select from &quot;Recently Released Products&quot;.
      <hr width="100%" size="1" noshade color="#ACA899"></td>
  </tr>
  <tr>
    <td>
<!-- RECENT PRODUCTS ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->	
	<span class="body_colb">Product Found At Other Locations</span>      
	<table width="100%"  border="0" cellspacing="3" cellpadding="0">
      <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
      <%If NOT objEH.Finally Then%>
      <tr>
        <td><img src="images/spacer.gif" width="1" height="1"></td>
        <td colspan="2">
          <%objEH.DisplayMessage()%>
        </td>
      </tr>
      <%End If%>
      <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
      <tr>
        <td width="1" background="images/bg_table_col.gif"><img src="images/spacer.gif" width="1" height="1"></td>
        <td width="30%" background="images/bg_table_border.gif"><table width="100%"  border="0" cellspacing="1" cellpadding="2">
            <tr>
              <td align="right" nowrap background="images/bg_table_col.gif" class="body_col">Products</td>
            </tr>
        </table></td>
        <td width="70%" align="right" background="images/bg_table_col.gif" class="body_col"></td>
      </tr>
      <%
	  ' -- Only run if links with Release Manager
	  If (objFormCollector.Item("rm_projects_fk") <> "")  AND  (objFormCollector.Item("rm_vtree_fk") <> "") Then
	  	  
		  OraDatabase.Parameters.Add "RM_PROJECTS_FK", 			objFormCollector.Item("rm_projects_fk"),	ORAPARM_INPUT, ORATYPE_NUMBER 
		  OraDatabase.Parameters.Add "RM_VTREE_FK", 			objFormCollector.Item("rm_vtree_fk"),		ORAPARM_INPUT, ORATYPE_NUMBER 
		  OraDatabase.Parameters.Add "RM_PRODUCTS_BASE_VIEW", 	enumPRODUCTS_BASE_VIEW_ID,					ORAPARM_INPUT, ORATYPE_NUMBER 
		  OraDatabase.Parameters.Add "DAYS_BACK_IN_TIME", 		enumRELEASES_DAYS_BACK_IN_TIME,				ORAPARM_INPUT, ORATYPE_NUMBER 
		  OraDatabase.Parameters.Add "BOM_ID", 					parBom_id,									ORAPARM_INPUT, ORATYPE_NUMBER 
		  
		  Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("LatestRecentlyReleasedProducts.sql"), ORADYN_DEFAULT )
		  While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
		  %>
      <tr>
        <td nowrap class="form_iname"><input type="checkbox" name="prod_at_os" value="<%=rsQry("prod_id")%>" <%=rsQry("used")%>></td>
        <td valign="top" nowrap class="body_txt"><img src="icons/i_product.gif" width="19" height="19" hspace="2" align="absmiddle"><%=rsQry("pkg_name") &" "& rsQry("pkg_version")%></td>
        <td valign="top" class="body_rowg"><%If NOT IsNull(rsQry("used")) Then%>Already Added.<%End If%></td>
      </tr>
      <%rsQry.MoveNext%>
      <%If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then%>
      <tr>
        <td colspan="3" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
      </tr>
      <%End If%>
      <%
		  WEnd
		  
		  OraDatabase.Parameters.Remove "RM_PROJECTS_FK"
		  OraDatabase.Parameters.Remove "RM_VTREE_FK"
		  OraDatabase.Parameters.Remove "RM_PRODUCTS_BASE_VIEW"
		  OraDatabase.Parameters.Remove "DAYS_BACK_IN_TIME"
		  OraDatabase.Parameters.Remove "BOM_ID"
		  
	  End If
	  %>
      <tr>
        <td colspan="3" background="images/bg_table_border.gif">
          <table width="100%"  border="0" cellspacing="1" cellpadding="2">
            <tr>
              <td nowrap background="images/bg_table_col.gif"><img src="images/spacer.gif" width="1" height="1"></td>
            </tr>
        </table></td>
      </tr>
    </table>
<!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->		
	</td>
  </tr>
  <%Response.write Request("prod_id_list") &"<br>"%>
  <%Response.write Request("prod_at_os")%>
  <input type="hidden" name="prod_at_os" value="<%=Request("prod_at_os")%>">
  <input type="hidden" name="action" value="true">
  </form>
</table>
</body>
</html>
<%
'------------ RUN AFTER PAGE RENDER -----------
Set objFormCollector = Nothing
'----------------------------------------------
%><!--#include file="common/globals_destructor.asp"-->