Subversion Repositories DevTools

Rev

Rev 5956 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
64 jtweddle 1 
<%
2 
'===================================================================
3 
'							Common Subs
4 
'===================================================================
5 
%>
6 
<%
7 
'-----------------------------------------------------------------------------------------------------------------------------
8 
Sub CloseWindow
9 
%>
10 
	<SCRIPT language="JavaScript" type="text/javascript">
11 
	<!--
12 
	self.close();
13 
	//-->
14 
	</SCRIPT>
15 
<%
16 
End Sub
17 
'-----------------------------------------------------------------------------------------------------------------------------
18 
Sub OpenChildWindow ( SStitle, SSurl, SSH, SSW, BBscroll )
19 
	Dim scrlBar
20 
	If BBscroll Then
21 
		scrlBar = "yes"
22 
	Else
23 
		scrlBar = "no"
24 
	End If
25 
%>
26 
	<script language="JavaScript" type="text/javascript">
27 
	<!--
28 
	window.open('<%=SSurl%>','<%=SStitle%>','scrollbars=<%=scrlBar%>,resizable=yes,width=<%=SSW%>,height=<%=SSH%>');
29 
	//-->
30 
	</script>
31 
<%
32 
End Sub
33 
'-----------------------------------------------------------------------------------------------------------------------------
34 
Sub OpenInParentWindow ( SSurl )
35 
%>
36 
	<script language="JavaScript" type="text/javascript">
37 
	<!--
38 
	window.opener.document.location='<%=SSurl%>';
66 ghuddy 39 
	//-->
64 jtweddle 40 
	</script>
41 
<%
42 
End Sub
43 
'-----------------------------------------------------------------------------------------------------------------------------
44 
Sub OpenInWindow ( SSurl )
5962 dpurdie 45 
    Call Destroy_All_Objects
64 jtweddle 46 
	Response.Redirect ( SSurl )
47 
End Sub
48 
'-----------------------------------------------------------------------------------------------------------------------------
49 
Function onClickOpenWindow ( sURL, sWindowName, nWidth, nHeight, sWindowParams )
50 
	If NOT IsNull(sWindowParams)  OR  (sWindowParams <> "") Then sWindowParams = sWindowParams &","	' Append comma if params are not empty
66 ghuddy 51 
 
64 jtweddle 52 
	onClickOpenWindow = "onClick='MM_openBrWindow("""& sURL &""", """& sWindowName &""", """& sWindowParams &"width="& nWidth &",height="& nHeight &",top=200,left=""+ ( screen.width / 2 - "& nWidth \ 2 &" ) +""  "");'"
53 
End Function
5962 dpurdie 54 
'-----------------------------------------------------------------------------------------------------------------
55 
Function NicePath(path)
56 
    NicePath = Replace(path," " , "",1,-1)
57 
    NicePath = Replace(NicePath,"/" , "-",1,-1)
58 
    NicePath = Replace(NicePath,"--" , "-",1,-1)
59 
End Function
64 jtweddle 60 
'-----------------------------------------------------------------------------------------------------------------------------
61 
Function ReadFile( sPath )
62 
	Dim filesys, rfile
5962 dpurdie 63 
    Set filesys = CreateObject("Scripting.FileSystemObject")
64 
    If filesys.FileExists ( sPath ) Then
65 
    	Set rfile = filesys.OpenTextFile( sPath, 1, false)
66 
    	ReadFile = rfile.ReadAll
67 
    	rfile.close
68 
    Else
69 
        ReadFile=""
70 
    End If
71 
    Set filesys = nothing
64 jtweddle 72 
End Function
73 
'-----------------------------------------------------------------------------------------------------------------------------
74 
Function GetQuery ( sQryName )
75 
	GetQuery = ReadFile( QUERIES_PATH &"\"& sQryName )
76 
End Function
77 
'-----------------------------------------------------------------------------------------------------------------------------
78 
Function Quick_Help ( SStipname )
79 
	Quick_Help = "<a href='javascript:;' onMouseOver=""formTips.show('"& SStipname &"')"" onMouseOut=""formTips.hide()""><img src='images/i_help.gif' width='12' height='12' hspace='2' align='absmiddle' border='0' ></a>"
80 
End Function
81 
'-----------------------------------------------------------------------------------------------------------------------------
82 
Function BoldSelected ( sItem, nItemId, nrsItemId )
83 
	' Exit on empty or null
66 ghuddy 84 
	If ( nItemId = "" )  OR  IsNull( nItemId )  OR  ( nrsItemId = "" )  OR  IsNull( nrsItemId ) Then
64 jtweddle 85 
		BoldSelected = sItem
86 
		Exit Function
87 
	End If
66 ghuddy 88 
 
64 jtweddle 89 
	If CInt( nItemId ) = CInt( nrsItemId ) Then
90 
		BoldSelected = "<b>"& sItem &"</b>"
91 
	Else
92 
		BoldSelected = sItem
93 
	End If
94 
End Function
95 
'-----------------------------------------------------------------------------------------------------------------------------
96 
Function Get_From_DUAL ( SSclm )
97 
	Dim rsTemp, Query_String, OraSession2, OraDatabase2
98 
	Set OraSession2 = CreateObject("OracleInProcServer.XOraSession")
99 
	Set OraDatabase2 = OraSession2.OpenDatabase( TNS_NAME, DB_AUTHENTICATION, Cint(0))
66 ghuddy 100 
 
64 jtweddle 101 
	Query_String = _
102 
	" SELECT "& SSclm &" AS result FROM DUAL"
103 
	Set rsTemp = OraDatabase2.DbCreateDynaset( Query_String, cint(0))
66 ghuddy 104 
 
64 jtweddle 105 
	If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
106 
		Get_From_DUAL = (rsTemp.Fields("result"))
107 
	End If
66 ghuddy 108 
 
64 jtweddle 109 
	rsTemp.Close
110 
	Set rsTemp = nothing
111 
	Set OraDatabase2 = nothing
112 
	Set OraSession2 = nothing
113 
End Function
114 
'----------------------------------------------------------------------------------------------------------------------------------------------
115 
Sub InitialiseCrumbs ( objCrumbs )
116 
	Dim rsCrumb
117 
	'L1par = enumDB_DEFAULT_EMPTY
118 
	'L2par = enumDB_DEFAULT_EMPTY
119 
	'L3par = enumDB_DEFAULT_EMPTY
66 ghuddy 120 
 
121 
 
64 jtweddle 122 
	' This section will ensure only one level parameter is processed in order
123 
	'If Request("bom_id") <> "" Then
124 
	'	L3par = Request("bom_id")
66 ghuddy 125 
	'
64 jtweddle 126 
	'ElseIf Request("branch_id") <> "" Then
127 
	'	L2par = Request("branch_id")
66 ghuddy 128 
	'
64 jtweddle 129 
	'ElseIf Request("proj_id") <> "" Then
130 
		'L1par = Request("proj_id")
66 ghuddy 131 
	'
64 jtweddle 132 
	'End If
66 ghuddy 133 
 
134 
	OraDatabase.Parameters.Add "PROJ_ID", 	dbPARproj_id, 	ORAPARM_INPUT, ORATYPE_NUMBER
135 
	OraDatabase.Parameters.Add "BRANCH_ID", dbPARbranch_id, ORAPARM_INPUT, ORATYPE_NUMBER
136 
	OraDatabase.Parameters.Add "BOM_ID", 	dbPARbom_id, 	ORAPARM_INPUT, ORATYPE_NUMBER
137 
	OraDatabase.Parameters.Add "NODE_ID", 	dbPARnode_id, 	ORAPARM_INPUT, ORATYPE_NUMBER
138 
	OraDatabase.Parameters.Add "OS_ID", 	dbPARos_id, 	ORAPARM_INPUT, ORATYPE_NUMBER
139 
	OraDatabase.Parameters.Add "PROD_ID", 	dbPARprod_id, 	ORAPARM_INPUT, ORATYPE_NUMBER
140 
 
64 jtweddle 141 
	Set rsCrumb = OraDatabase.DbCreateDynaset( GetQuery ("Crumbs.sql") , ORADYN_DEFAULT )
66 ghuddy 142 
 
64 jtweddle 143 
	objCrumbs.CrumbMaxDepth = 7		' e.g.	[1] Home / [2] ProjectName / [3] BranchName / [4] BomName
66 ghuddy 144 
 
64 jtweddle 145 
	objCrumbs.AddLevel "Home", "Default.asp", 0
146 
	While ((NOT rsCrumb.BOF) AND (NOT rsCrumb.EOF))
147 
		objCrumbs.AddLevel rsCrumb("crumb_name"), rsCrumb("crumb_link"), rsCrumb("crumb_level")
148 
		rsCrumb.MoveNext()
149 
	WEnd
66 ghuddy 150 
 
64 jtweddle 151 
	' Clean up
152 
	rsCrumb.Close
153 
	Set rsCrumb = Nothing
154 
	OraDatabase.Parameters.Remove "PROJ_ID"
155 
	OraDatabase.Parameters.Remove "BRANCH_ID"
156 
	OraDatabase.Parameters.Remove "BOM_ID"
157 
	OraDatabase.Parameters.Remove "NODE_ID"
158 
	OraDatabase.Parameters.Remove "OS_ID"
159 
	OraDatabase.Parameters.Remove "PROD_ID"
160 
End Sub
161 
'-----------------------------------------------------------------------------------------------------------------------------
162 
Function Expander ( sExpand )
163 
	Const IMG_PLUS = "<img src='icons/i_plus.gif' width='9' height='9' align='absmiddle' border='0'>"
164 
	Const IMG_MINUS = "<img src='icons/i_minus.gif' width='9' height='9' align='absmiddle' border='0'>"
165 
	Const IMG_NO_EXPAND = "<img src='images/spacer.gif' width='9' height='9' align='absmiddle' border='0'>"
66 ghuddy 166 
 
64 jtweddle 167 
	If sExpand = "+" Then
168 
		Expander = IMG_PLUS
66 ghuddy 169 
 
64 jtweddle 170 
	ElseIf sExpand = "-" Then
171 
		Expander = IMG_MINUS
66 ghuddy 172 
 
64 jtweddle 173 
	Else
174 
		Expander = IMG_NO_EXPAND
66 ghuddy 175 
 
64 jtweddle 176 
	End If
66 ghuddy 177 
 
64 jtweddle 178 
End Function
179 
'-----------------------------------------------------------------------------------------------------------------------------
180 
Sub GetMainDBParameters ( dbPARproj_id, dbPARbranch_id, dbPARbom_id, dbPARnode_id, dbPARos_id, dbPARprod_id )
181 
	Dim query, rsQry
66 ghuddy 182 
 
64 jtweddle 183 
	' Preset all to enumDB_DEFAULT_EMPTY
184 
	dbPARproj_id 	= enumDB_DEFAULT_EMPTY
185 
	dbPARbranch_id 	= enumDB_DEFAULT_EMPTY
186 
	dbPARbom_id 	= enumDB_DEFAULT_EMPTY
187 
	dbPARnode_id 	= enumDB_DEFAULT_EMPTY
188 
	dbPARos_id 		= enumDB_DEFAULT_EMPTY
189 
	dbPARprod_id 	= enumDB_DEFAULT_EMPTY
66 ghuddy 190 
 
191 
 
64 jtweddle 192 
	' Get the actual values from Request
193 
	If Request("proj_id")  <> "" Then 	dbPARproj_id = Request("proj_id")
194 
	If Request("branch_id")  <> "" Then dbPARbranch_id = Request("branch_id")
195 
	If Request("bom_id")  <> "" Then 	dbPARbom_id = Request("bom_id")
196 
	If Request("node_id") <> "" Then    dbPARnode_id = Request("node_id")
197 
	If Request("os_id")   <> "" Then 	dbPARos_id = Request("os_id")
198 
	If Request("prod_id") <> "" Then 	dbPARprod_id = Request("prod_id")
66 ghuddy 199 
 
200 
 
64 jtweddle 201 
	' Resolve some parametes with DB lookup
202 
	If ( dbPARbom_id <> enumDB_DEFAULT_EMPTY ) AND ( dbPARos_id <> enumDB_DEFAULT_EMPTY ) Then
203 
		' Resolve with bom_id and os_id
204 
		query = _
205 
		" SELECT nn.node_id, br.BRANCH_ID, br.PROJ_ID "&_
206 
		"  FROM BOM_CONTENTS bc,"&_
207 
		"  	   NETWORK_NODES nn,"&_
208 
		"	   OPERATING_SYSTEMS os,"&_
209 
		"       BOMS bo,"&_
210 
		"      BRANCHES br"&_
211 
		" WHERE os.node_id = nn.node_id"&_
212 
		"   AND bc.NODE_ID = nn.NODE_ID"&_
213 
		"   AND bc.BOM_ID = bo.BOM_ID"&_
214 
		"   AND bo.BRANCH_ID = br.BRANCH_ID"&_
215 
		"   AND bc.bom_id = :BOM_ID"&_
216 
		"   AND os.os_id = :OS_ID"
66 ghuddy 217 
 
64 jtweddle 218 
	ElseIf ( dbPARbom_id <> enumDB_DEFAULT_EMPTY ) Then
219 
		' Resolve with bom_id and node_id
220 
		query = _
221 
		" SELECT :NODE_ID AS NODE_ID, br.BRANCH_ID, br.PROJ_ID "&_
222 
		"  FROM BOMS bo,"&_
223 
		"       BRANCHES br"&_
224 
		" WHERE bo.BRANCH_ID = br.BRANCH_ID"&_
225 
		"   AND bo.bom_id = :BOM_ID"
66 ghuddy 226 
 
64 jtweddle 227 
	End If
66 ghuddy 228 
 
229 
 
64 jtweddle 230 
	If query <> "" Then
66 ghuddy 231 
		OraDatabase.Parameters.Add "BOM_ID", 	dbPARbom_id, 	ORAPARM_INPUT, ORATYPE_NUMBER
232 
		OraDatabase.Parameters.Add "NODE_ID", 	dbPARnode_id, 	ORAPARM_INPUT, ORATYPE_NUMBER
233 
		OraDatabase.Parameters.Add "OS_ID", 	dbPARos_id, 	ORAPARM_INPUT, ORATYPE_NUMBER
234 
 
64 jtweddle 235 
		Set rsQry = OraDatabase.DbCreateDynaset( query , ORADYN_DEFAULT )
66 ghuddy 236 
 
64 jtweddle 237 
		If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
5962 dpurdie 238 
         dbPARproj_id = CLng( rsQry("proj_id") )
239 
         dbPARbranch_id = CLng( rsQry("branch_id") )
240 
         dbPARnode_id = CLng( rsQry("node_id") )
64 jtweddle 241 
		End If
66 ghuddy 242 
 
64 jtweddle 243 
		rsQry.Close
244 
		Set rsQry = Nothing
245 
		OraDatabase.Parameters.Remove "BOM_ID"
246 
		OraDatabase.Parameters.Remove "NODE_ID"
247 
		OraDatabase.Parameters.Remove "OS_ID"
248 
	End If
66 ghuddy 249 
 
250 
 
64 jtweddle 251 
	' --- Get which level (used for pop-up menu add prod,os,node.)
252 
	AT_PROD_LEVEL = FALSE
253 
	AT_OS_LEVEL = FALSE
254 
	AT_NODE_LEVEL = FALSE
255 
	AT_BOM_LEVEL = FALSE
66 ghuddy 256 
 
64 jtweddle 257 
	If dbPARprod_id <> enumDB_DEFAULT_EMPTY Then
258 
		' Product Level
259 
		AT_PROD_LEVEL = TRUE
66 ghuddy 260 
 
64 jtweddle 261 
	ElseIf dbPARos_id <> enumDB_DEFAULT_EMPTY Then
262 
		' OS Level
263 
		AT_OS_LEVEL = TRUE
66 ghuddy 264 
 
64 jtweddle 265 
	ElseIf dbPARnode_id <> enumDB_DEFAULT_EMPTY Then
266 
		' Node Level
267 
		AT_NODE_LEVEL = TRUE
66 ghuddy 268 
 
64 jtweddle 269 
	ElseIf dbPARbom_id <> enumDB_DEFAULT_EMPTY Then
270 
		' Bom Level
271 
		AT_BOM_LEVEL = TRUE
66 ghuddy 272 
 
64 jtweddle 273 
	End If
66 ghuddy 274 
 
64 jtweddle 275 
End Sub
276 
'-----------------------------------------------------------------------------------------------------------------------------
277 
Function GetNodeImage ( nNode_id )
278 
	Dim query, rsQry
279 
	query = _
280 
	"SELECT nt.NODE_IMAGE "&_
281 
	"  FROM NETWORK_NODES nn,"&_
282 
	"  	    NODE_TYPES nt"&_
283 
	" WHERE nn.NODE_TYPE_ID = nt.NODE_TYPE_ID"&_
284 
	"   AND nn.node_id = :NODE_ID"
66 ghuddy 285 
 
286 
	OraDatabase.Parameters.Add "NODE_ID", 	nNode_id, 	ORAPARM_INPUT, ORATYPE_NUMBER
64 jtweddle 287 
	Set rsQry = OraDatabase.DbCreateDynaset( query , ORADYN_DEFAULT )
66 ghuddy 288 
 
64 jtweddle 289 
	If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
290 
		GetNodeImage = "<img src='icons/"& rsQry("node_image") &"'>"
291 
	End If
66 ghuddy 292 
 
64 jtweddle 293 
	rsQry.Close
294 
	Set rsQry = Nothing
295 
	OraDatabase.Parameters.Remove "NODE_ID"
296 
End Function
297 
'-----------------------------------------------------------------------------------------------------------------------------
298 
Sub LoadTabActionButtons ( aBtns,  ByRef objControl )
299 
	' -- Load Action Buttons
300 
	Call objControl.LoadActionButtons ( aBtns, OraDatabase )
66 ghuddy 301 
 
64 jtweddle 302 
	' -- Set button spacer
303 
	objControl.ButtonSpacer = 10
66 ghuddy 304 
 
64 jtweddle 305 
End Sub
306 
'-----------------------------------------------------------------------------------------------------------------------------
307 
Sub Messenger ( sMessage, nMessageType, sWidth )
308 
	Dim msgTemplate, Img
66 ghuddy 309 
 
64 jtweddle 310 
	If (sMessage = "") OR IsNull(sMessage) Then Exit Sub
66 ghuddy 311 
 
64 jtweddle 312 
	Select Case CStr(nMessageType)
313 
		Case "1"
314 
			Img = "s_critical.gif"
315 
		Case "2"
316 
			Img = "s_warning.gif"
317 
		Case "3"
318 
			Img = "s_note.gif"
319 
		Case Else
320 
			Img = nMessageType
321 
	End Select
66 ghuddy 322 
 
323 
 
64 jtweddle 324 
	msgTemplate = ReadFile( APP_ROOT &"\scripts\message_style.html" )
325 
	msgTemplate = Replace( msgTemplate, "%WIDTH%", sWidth )
326 
	msgTemplate = Replace( msgTemplate, "%IMAGE%", Img )
327 
	msgTemplate = Replace( msgTemplate, "%MESSAGE%", sMessage )
66 ghuddy 328 
 
64 jtweddle 329 
	Response.write msgTemplate
330 
End Sub
331 
'-----------------------------------------------------------------------------------------------------------------------------
332 
Function IsTicked ( ByVal nParId, ByVal sParList )
333 
	' Used only with check boxes as they send comma-separated list
334 
	nParId 	 = ","&  Replace(nParId, " ", "") &","
335 
	sParList = ","&  Replace(sParList, " ", "") &","
66 ghuddy 336 
 
64 jtweddle 337 
	If InStr( sParList, nParId ) > 0 Then
338 
		IsTicked = TRUE
339 
	Else
340 
		IsTicked = FALSE
341 
	End If
342 
End Function
343 
'-----------------------------------------------------------------------------------------------------------------------------
344 
Function ProgressBar ()
345 
	ProgressBar = "<DIV name='divProgressBar' id='divProgressBar' style='visibility:hidden;'><img src='icons/i_processing.gif' width='79' height='14'></DIV>"
346 
End Function
347 
'-----------------------------------------------------------------------------------------------------------------------------
348 
Function HighlightSubstring ( SSstr, SSsubstr )
349 
	Dim leftSTR, startPos
350 
	startPos = InStr( 1, SSstr, SSsubstr, 1 )
66 ghuddy 351 
 
64 jtweddle 352 
	If startPos > 0 Then
353 
		leftSTR = Left ( SSstr, startPos - 1 )
354 
		Highlight_Substring = leftSTR &"<SPAN style='background:#ffff99;'>"& Mid( SSstr, startPos, Len(SSsubstr) ) &"</SPAN>"&  Right ( SSstr, Len(SSstr) - Len(leftSTR) - Len(SSsubstr)  )
355 
	Else
356 
		' Subtring not found
357 
		Highlight_Substring = SSstr
358 
	End If
66 ghuddy 359 
 
64 jtweddle 360 
End Function
361 
'-----------------------------------------------------------------------------------------------------------------------------
362 
Sub DisplayColumn( sColumnName, sTableColumn, outOrderBy, bSetToDefault )
363 
	Dim selectedColumnTemplate, tempColumnName, ordBy, ordType, ordImg, sLink, isDefaultColumn
66 ghuddy 364 
 
64 jtweddle 365 
	'--- Set Default Column ---
366 
	isDefaultColumn = FALSE
367 
	If (Request("ordby") = "")  AND bSetToDefault Then
368 
		isDefaultColumn = TRUE
369 
	End If
66 ghuddy 370 
 
64 jtweddle 371 
	'--- Create border for selected column ---
372 
	selectedColumnTemplate = _
373 
	"background='images/bg_table_border.gif'><table width='100%'  border='0' cellspacing='1' cellpadding='2'>"&_
374 
    "  <tr>"&_
375 
    "    <td align='right' nowrap background='images/bg_table_col.gif'>%COLUMN_NAME%</td>"&_
376 
    "  </tr>"&_
377 
    "</table>"
66 ghuddy 378 
 
379 
 
64 jtweddle 380 
	'--- Create Order Name ---
381 
	ordBy = LCase( Replace( sColumnName, " ", "_" ) )
66 ghuddy 382 
 
383 
 
64 jtweddle 384 
	'--- Toggle Order Type ---
385 
	ordType = "asc"
386 
	ordImg = ""
387 
	If Request("ordby") = ordBy  OR  isDefaultColumn Then
388 
		If Request("ordtype") = "desc" Then
389 
			ordType = "asc"
390 
			ordImg = "<img src='icons/b_sort_desc.gif' hspace='4' border='0' align='absmiddle'>"
391 
		Else
392 
			ordType = "desc"
393 
			ordImg = "<img src='icons/b_sort_asc.gif' hspace='4' border='0' align='absmiddle'>"
394 
		End If
395 
	End If
66 ghuddy 396 
 
397 
 
64 jtweddle 398 
	'--- Set temporary Column name and link
66 ghuddy 399 
	sLink = SCRIPT_NAME &"?ordby="& ordBy &"&ordtype="& ordType &"&"& objPMod.ComposeURL()
400 
 
64 jtweddle 401 
	tempColumnName = "<a href='"& sLink &"' class='body_linkbold'>&nbsp;"& ordImg & sColumnName &"&nbsp;</a>"
66 ghuddy 402 
 
403 
 
64 jtweddle 404 
	'--- Display Formated Column Name ---
405 
	If Request("ordby") = ordBy  OR  isDefaultColumn Then
406 
		' This column is selected
407 
		outOrderBy = " ORDER BY UPPER("& sTableColumn &") "& Request("ordtype")
66 ghuddy 408 
		Response.write Replace( selectedColumnTemplate, "%COLUMN_NAME%", tempColumnName)
409 
 
64 jtweddle 410 
	Else
411 
		' Check if column is sortable
412 
		If NOT IsNull(sTableColumn)  OR (sTableColumn <> "") Then
413 
			Response.write "background='images/bg_table_col.gif'>" & tempColumnName
414 
		Else
415 
			Response.write "background='images/bg_table_col.gif' class='body_col'>"& sColumnName
416 
		End If
66 ghuddy 417 
 
418 
 
64 jtweddle 419 
	End If
66 ghuddy 420 
 
64 jtweddle 421 
End Sub
422 
'-----------------------------------------------------------------------------------------------------------------------------
423 
Function BomIcon ( sIsReadonly, sIsRejected )
66 ghuddy 424 
 
64 jtweddle 425 
	If sIsReadonly = enumDB_NO Then
426 
		BomIcon = enumBOM_EDITMODE
427 
	Else
428 
		If (sIsRejected = "") OR IsNull(sIsRejected) Then
429 
			BomIcon = enumBOM_NEW
66 ghuddy 430 
 
64 jtweddle 431 
		ElseIf sIsRejected = enumDB_YES Then
432 
			BomIcon = enumBOM_REJECTED
66 ghuddy 433 
 
64 jtweddle 434 
		ElseIf sIsRejected = enumDB_NO Then
435 
			BomIcon = enumBOM_ACCEPTED
66 ghuddy 436 
 
64 jtweddle 437 
		End If
66 ghuddy 438 
 
64 jtweddle 439 
	End If
66 ghuddy 440 
 
64 jtweddle 441 
End Function
442 
'-----------------------------------------------------------------------------------------------------------------
443 
Sub GetBomDetails ( nBom_id, ByRef outobjDetails )
444 
	Dim rsQry, query
66 ghuddy 445 
	OraDatabase.Parameters.Add "BOM_ID", nBom_id,	ORAPARM_INPUT, ORATYPE_NUMBER
446 
 
64 jtweddle 447 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("BomDetails.sql") , ORADYN_DEFAULT )
66 ghuddy 448 
 
64 jtweddle 449 
	If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
450 
		outobjDetails.Item ("bom_id")   = rsQry("bom_id")
451 
		outobjDetails.Item ("bom_name") = rsQry("bom_name")
452 
		outobjDetails.Item ("bom_name_id") = rsQry("bom_name_id")
453 
		outobjDetails.Item ("branch_id") = rsQry("branch_id")
454 
		outobjDetails.Item ("bom_version") = rsQry("bom_version")
455 
		outobjDetails.Item ("bom_lifecycle") = rsQry("bom_lifecycle")
456 
		outobjDetails.Item ("bom_comments") = rsQry("bom_comments")
457 
		outobjDetails.Item ("is_readonly") = rsQry("is_readonly")
458 
		outobjDetails.Item ("is_rejected") = rsQry("is_rejected")
459 
		outobjDetails.Item ("parent_bom_id") = rsQry("parent_bom_id")
460 
		outobjDetails.Item ("base_env_count") = rsQry("base_env_count")
461 
		outobjDetails.Item ("rtag_id_fk") = rsQry("rtag_id_fk")
66 ghuddy 462 
 
64 jtweddle 463 
	Else
464 
		Err.Raise 8, "Sub GetBomDetails", "Empty record set returned. nBom_id="& nBom_id
66 ghuddy 465 
 
64 jtweddle 466 
	End If
66 ghuddy 467 
 
64 jtweddle 468 
	OraDatabase.Parameters.Remove "BOM_ID"
469 
	rsQry.Close
470 
	Set rsQry = Nothing
471 
End Sub
472 
'-----------------------------------------------------------------------------------------------------------------------------
473 
Sub RaiseMsg ( SSerrFile, SSerrDesc )
474 
	' Usage: enumERROR, parval1 &"|"& parval2 &"|"& parval3 ...
475 
	Session( "DEPMGR_ERRDESCRIPTION" ) = SSerrDesc
5962 dpurdie 476 
    Call Destroy_All_Objects
64 jtweddle 477 
	Response.Redirect ("messages/"& SSerrFile )
478 
End Sub
479 
'-----------------------------------------------------------------------------------------------------------------------------
480 
Function Wiki2HTML ( ByVal sWikiString )
481 
	'=== Definition ===
482 
	sWikiString = Replace ( sWikiString, "[BREAKLINE]", "<hr noshade size='1' color='#DAD7C8'>"  )
483 
	sWikiString = Replace ( sWikiString, "[NEWLINE]", "<br>"  )
66 ghuddy 484 
 
64 jtweddle 485 
	Wiki2HTML = sWikiString
486 
End Function
487 
'----------------------------------------------------------------------------------------------------------------------------------------------
488 
Function GetProductIcon ( rsQry )
489 
	Const LIMG_BB_PRODUCT = "<img src='icons/i_product.gif' width='19' height='19' border='0' align='absmiddle'>"
490 
	Const LIMG_BB_PATCH = "<img src='icons/i_patch_small.gif' border='0' align='absmiddle' hspace='2'>"
491 
	Const LIMG_BB_PATCH_OBSOLETE = "<img src='icons/i_patch_small_obsolete.gif' border='0' align='absmiddle' hspace='2'>"
492 
	Const LIMG_BB_PRODUCT_REJECTED = "<img src='icons/i_product_rejected.gif' width='19' height='19' border='0' align='absmiddle' title='Product is REJECTED! Click to see details.'>"
66 ghuddy 493 
 
64 jtweddle 494 
	'-- Set default icon
495 
	GetProductIcon = LIMG_BB_PRODUCT
66 ghuddy 496 
 
64 jtweddle 497 
	If IsObject(rsQry) Then
498 
		'/* Recordset is passed */
499 
		If rsQry("is_rejected") = enumDB_YES Then
500 
			GetProductIcon = LIMG_BB_PRODUCT_REJECTED
66 ghuddy 501 
 
64 jtweddle 502 
		ElseIf rsQry("is_obsolete") = enumDB_YES Then
503 
			GetProductIcon = LIMG_BB_PATCH_OBSOLETE
66 ghuddy 504 
 
64 jtweddle 505 
		ElseIf rsQry("is_patch") = enumDB_YES Then
506 
			GetProductIcon = LIMG_BB_PATCH
66 ghuddy 507 
 
508 
 
509 
 
64 jtweddle 510 
		End If
66 ghuddy 511 
 
64 jtweddle 512 
	Else
513 
		'/* Single Value is passed */
514 
		If rsQry = enumDB_YES Then
515 
			GetProductIcon = LIMG_BB_PRODUCT_REJECTED
516 
		End If
66 ghuddy 517 
 
64 jtweddle 518 
	End If
66 ghuddy 519 
 
64 jtweddle 520 
End Function
521 
'----------------------------------------------------------------------------------------------------------------------------------------------
522 
Function GetRootVersion ( sBomVersion )
523 
	Dim tempArr
66 ghuddy 524 
 
64 jtweddle 525 
	If InStr( sBomVersion, "." ) > 0 Then
526 
		'-- Dot separator found --
66 ghuddy 527 
 
64 jtweddle 528 
		'-- Split version --
529 
		tempArr = Split( sBomVersion, "." )
66 ghuddy 530 
 
64 jtweddle 531 
		'-- Return first element as root version
532 
		GetRootVersion = tempArr(0)
66 ghuddy 533 
 
64 jtweddle 534 
	Else
535 
		'-- No dot separator, hence root version is version itself
536 
		GetRootVersion = sBomVersion
66 ghuddy 537 
 
64 jtweddle 538 
	End If
66 ghuddy 539 
 
64 jtweddle 540 
End Function
541 
'--------------------------------------------------------------------------------------------------------------------------
542 
Function HighlightSubstring ( SSstr, SSsubstr )
543 
	Dim leftSTR, startPos
544 
	startPos = InStr( 1, SSstr, SSsubstr, 1 )
66 ghuddy 545 
 
64 jtweddle 546 
	If startPos > 0 Then
547 
		leftSTR = Left ( SSstr, startPos - 1 )
548 
		HighlightSubstring = leftSTR &"<SPAN style='background:#ffff99;'>"& Mid( SSstr, startPos, Len(SSsubstr) ) &"</SPAN>"&  Right ( SSstr, Len(SSstr) - Len(leftSTR) - Len(SSsubstr)  )
549 
	Else
550 
		' Subtring not found
551 
		HighlightSubstring = SSstr
552 
	End If
66 ghuddy 553 
 
64 jtweddle 554 
End Function
555 
'-----------------------------------------------------------------------------------------------------------------------------
556 
Sub Get_Pkg_Short_Info( SSparPv_id, SSpkgID, SSpkgName, SSpkgVersion, SSsrc_path, SSpkgDesc, BBdlocked )
557 
	Dim rsTemp, Query_String
558 
	If IsEmpty(SSparPv_id) Then Exit Sub
66 ghuddy 559 
 
64 jtweddle 560 
	Query_String = _
561 
	" SELECT pkg.pkg_id, pkg.pkg_name, pv.pkg_version, pv.src_path, pv.pv_description, pv.dlocked"&_
562 
	"  FROM packages pkg, package_versions pv"&_
563 
	" WHERE pkg.pkg_id = pv.pkg_id  AND pv.pv_id ="& SSparPv_id
66 ghuddy 564 
 
64 jtweddle 565 
	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
66 ghuddy 566 
 
64 jtweddle 567 
	If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
568 
		SSpkgID = rsTemp.Fields("pkg_id")
569 
		SSpkgName = rsTemp.Fields("pkg_name")
570 
		SSpkgVersion = rsTemp.Fields("pkg_version")
571 
		SSsrc_path = rsTemp.Fields("src_path")
572 
		SSpkgDesc = rsTemp.Fields("pv_description")
573 
		BBdlocked = rsTemp.Fields("dlocked")
574 
	End If
66 ghuddy 575 
 
64 jtweddle 576 
	rsTemp.Close
577 
	Set rsTemp = nothing
578 
End Sub
579 
'-----------------------------------------------------------------------------------------------------------------------------
580 
Sub Create_Folder ( sCreateIn, sFolderName )
581 
	Dim filesys, currfolder, folcoll, subfol
582 
	Set filesys = CreateObject("Scripting.FileSystemObject")
583 
	If filesys.FolderExists( sCreateIn ) Then
584 
		Set currfolder = filesys.GetFolder( sCreateIn )
585 
		Set folcoll = currfolder.SubFolders
586 
		If NOT filesys.FolderExists( sCreateIn &"\"& sFolderName ) Then
587 
			folcoll.Add( sFolderName )
588 
		End If
589 
	End If
590 
End Sub
591 
'-----------------------------------------------------------------------------------------------------------------------------
592 
Sub DeleteFile( SSpath )
593 
	Dim filesys
594 
	Set filesys = CreateObject("Scripting.FileSystemObject")
595 
	If filesys.FileExists(SSpath) Then
596 
   		filesys.DeleteFile SSpath, TRUE
66 ghuddy 597 
	End If
64 jtweddle 598 
	Set filesys = nothing
599 
End Sub
600 
'-----------------------------------------------------------------------------------------------------------------------------
601 
Sub Get_Pkg_Info ( SSpv_id, NNrtag )
602 
	Dim rsTemp, Query_String
66 ghuddy 603 
	OraDatabase.Parameters.Add "PV_ID", 		SSpv_id,	ORAPARM_INPUT, ORATYPE_NUMBER
604 
	OraDatabase.Parameters.Add "RTAG_ID", 		NNrtag,		ORAPARM_INPUT, ORATYPE_NUMBER
605 
	OraDatabase.Parameters.Add "RETURN_NUMBER", NULL,		ORAPARM_OUTPUT, ORATYPE_NUMBER
606 
 
64 jtweddle 607 
	'/* Get Package Details */
608 
	Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("PackageDetails.sql"), cint(0))
66 ghuddy 609 
 
5956 dpurdie 610 
	OraDatabase.Parameters.Remove "PV_ID"
611 
	OraDatabase.Parameters.Remove "RTAG_ID"
612 
	OraDatabase.Parameters.Remove "RETURN_NUMBER"
613 
 
614 
	pkgInfoHash.Item ("can_unofficial") = "false"
64 jtweddle 615 
	If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
616 
		pkgInfoHash.Add "pv_id", (rsTemp.Fields("pv_id"))
617 
		pkgInfoHash.Add "pkg_id", (rsTemp.Fields("pkg_id"))
618 
		pkgInfoHash.Add "pkg_name", (rsTemp.Fields("pkg_name"))
619 
		pkgInfoHash.Add "pkg_version", (rsTemp.Fields("pkg_version"))
620 
		pkgInfoHash.Add "v_ext", (rsTemp.Fields("v_ext"))
621 
		pkgInfoHash.Add "comments", (rsTemp.Fields("comments"))
66 ghuddy 622 
 
64 jtweddle 623 
		pkgInfoHash.Add "modified_stamp", (rsTemp.Fields("modified_stamp"))
624 
		pkgInfoHash.Add "modifier", (rsTemp.Fields("modifier"))
625 
		pkgInfoHash.Add "modifier_id", (rsTemp.Fields("modifier_id"))
626 
		pkgInfoHash.Add "modifier_email", (rsTemp.Fields("modifier_email"))
66 ghuddy 627 
 
64 jtweddle 628 
		pkgInfoHash.Add "created_stamp", (rsTemp.Fields("created_stamp"))
629 
		pkgInfoHash.Add "creator", (rsTemp.Fields("creator"))
630 
		pkgInfoHash.Add "creator_email", (rsTemp.Fields("creator_email"))
66 ghuddy 631 
 
64 jtweddle 632 
		pkgInfoHash.Add "owner", (rsTemp.Fields("owner"))
633 
		pkgInfoHash.Add "owner_email", (rsTemp.Fields("owner_email"))
66 ghuddy 634 
 
64 jtweddle 635 
		pkgInfoHash.Add "dlocked", (rsTemp.Fields("dlocked"))
636 
		pkgInfoHash.Add "proj_id", (rsTemp.Fields("proj_id"))
637 
		pkgInfoHash.Add "rtag_id", (rsTemp.Fields("rtag_id"))
638 
		pkgInfoHash.Add "rtag_name", (rsTemp.Fields("rtag_name"))
639 
		pkgInfoHash.Add "pkg_label", (rsTemp.Fields("pkg_label"))
640 
		pkgInfoHash.Add "src_path", (rsTemp.Fields("src_path"))
641 
		pkgInfoHash.Add "pv_description", (rsTemp.Fields("pv_description"))
642 
		pkgInfoHash.Add "last_pv_id", (rsTemp.Fields("last_pv_id"))
643 
		pkgInfoHash.Add "previous_version", (rsTemp.Fields("previous_version"))
644 
		pkgInfoHash.Add "release_notes_info", (rsTemp.Fields("release_notes_info"))
66 ghuddy 645 
 
64 jtweddle 646 
		pkgInfoHash.Add "is_patch", (rsTemp.Fields("is_patch"))
647 
		pkgInfoHash.Add "is_obsolete", (rsTemp.Fields("is_obsolete"))
648 
		pkgInfoHash.Add "obsolete_comments", (rsTemp.Fields("obsolete_comments"))
66 ghuddy 649 
 
64 jtweddle 650 
		pkgInfoHash.Add "build_type", (rsTemp.Fields("build_type"))
651 
		pkgInfoHash.Add "change_type", (rsTemp.Fields("change_type"))
66 ghuddy 652 
 
64 jtweddle 653 
	End If
654 
End Sub
655 
'-----------------------------------------------------------------------------------------------------------------------------
656 
Function Folder_Is_Empty ( sPath )
657 
	Dim filesys, oFolder
66 ghuddy 658 
	Set filesys = CreateObject("Scripting.FileSystemObject")
659 
 
64 jtweddle 660 
	If filesys.FolderExists( sPath ) Then
66 ghuddy 661 
		Set oFolder = filesys.GetFolder( sPath )
64 jtweddle 662 
		If ( oFolder.Files.Count + oFolder.SubFolders.Count ) > 0 Then
663 
			Folder_Is_Empty = FALSE
664 
		Else
665 
			Folder_Is_Empty = TRUE
666 
		End If
667 
	Else
668 
		Folder_Is_Empty = TRUE
669 
	End If
66 ghuddy 670 
 
64 jtweddle 671 
End Function
672 
'-----------------------------------------------------------------------------------------------------------------------------
673 
Sub DeleteFolder( SSpath )
674 
	Dim  filesys
675 
	Set filesys = CreateObject ("Scripting.FileSystemObject")
676 
	If filesys.FolderExists( SSpath ) Then
677 
		'Set oFolder = filesys.GetFolder( SSpath )
678 
		filesys.DeleteFolder SSpath ,TRUE
679 
	End If
680 
End Sub
681 
'-----------------------------------------------------------------------------------------------------------------------------
682 
Function GetCurrentParameters( nProjId, nRtagId, nPvId )
683 
	Dim rsQry,query, OraSession2, OraDatabase2
66 ghuddy 684 
 
64 jtweddle 685 
	' Set defaults
686 
	nProjId 	= -1
687 
	nRtagId 	= -1
688 
	nPvId 		= -1
689 
 
690 
	Set OraSession2 = CreateObject("OracleInProcServer.XOraSession")
4014 dpurdie 691 
	Set OraDatabase2 = OraSession2.OpenDatabase( Application("TNS_NAME"), Application("DEPLOYMENT_MANAGER_LOGIN"), Cint(0))
66 ghuddy 692 
 
64 jtweddle 693 
	' Get parameters from database
694 
	OraDatabase2.Parameters.Add "ProjId", 		Request("proj_id"),	ORAPARM_INPUT, ORATYPE_VARCHAR2
66 ghuddy 695 
	OraDatabase2.Parameters.Add "Rtag_id", 		Request("rtag_id"),	ORAPARM_INPUT, ORATYPE_VARCHAR2
64 jtweddle 696 
	OraDatabase2.Parameters.Add "results", 		NULL, ORAPARM_OUTPUT, ORATYPE_CURSOR
66 ghuddy 697 
 
64 jtweddle 698 
	OraDatabase2.ExecuteSQL " BEGIN  RELEASE_MANAGER.PK_APP_UTILS.GET_CURRENT_PARAMETERS ( :ProjId, :Rtag_id, :results ); END;"
66 ghuddy 699 
 
64 jtweddle 700 
	Set rsQry = OraDatabase2.Parameters("results").Value
66 ghuddy 701 
 
64 jtweddle 702 
	OraDatabase2.Parameters.Remove "ProjId"
703 
	OraDatabase2.Parameters.Remove "Rtag_id"
704 
	OraDatabase2.Parameters.Remove "results"
66 ghuddy 705 
 
706 
 
64 jtweddle 707 
	If rsQry.RecordCount > 0 Then
66 ghuddy 708 
 
64 jtweddle 709 
		nProjId 	= CDbl(rsQry("PROJ_ID"))
710 
		nRtagId 	= CDbl(rsQry("RTAG_ID"))
66 ghuddy 711 
 
64 jtweddle 712 
	End If
66 ghuddy 713 
 
64 jtweddle 714 
	rsQry.Close()
715 
	Set rsQry = nothing
66 ghuddy 716 
 
64 jtweddle 717 
	Set OraSession2 = Nothing
718 
	Set Oradatabase2 = Nothing
66 ghuddy 719 
 
720 
 
64 jtweddle 721 
	' Set pv_id parameter
722 
	If Request("pv_id") <> "" Then nPvId = CDbl(Request("pv_id"))
66 ghuddy 723 
 
724 
 
64 jtweddle 725 
End Function
66 ghuddy 726 
%>