Subversion Repositories DevTools

Rev

Rev 5955 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5955 Rev 5958
Line 40... Line 40...
40 
	</script>
 40 
	</script>
41 
<%
 41 
<%
42 
End Sub
 42 
End Sub
43 
'-----------------------------------------------------------------------------------------------------------------------------
 43 
'-----------------------------------------------------------------------------------------------------------------------------
44 
Sub OpenInWindow ( SSurl )
 44 
Sub OpenInWindow ( SSurl )
- 
 
 45 
    Call Destroy_All_Objects
45 
	Response.Redirect ( SSurl )
 46 
	Response.Redirect ( SSurl )
46 
End Sub
 47 
End Sub
47 
'-----------------------------------------------------------------------------------------------------------------------------
 48 
'-----------------------------------------------------------------------------------------------------------------------------
48 
Function onClickOpenWindow ( sURL, sWindowName, nWidth, nHeight, sWindowParams )
 49 
Function onClickOpenWindow ( sURL, sWindowName, nWidth, nHeight, sWindowParams )
49 
	If NOT IsNull(sWindowParams)  OR  (sWindowParams <> "") Then sWindowParams = sWindowParams &","	' Append comma if params are not empty
 50 
	If NOT IsNull(sWindowParams)  OR  (sWindowParams <> "") Then sWindowParams = sWindowParams &","	' Append comma if params are not empty
Line 489... Line 490...
489 
End Sub
 490 
End Sub
490 
'-----------------------------------------------------------------------------------------------------------------------------
 491 
'-----------------------------------------------------------------------------------------------------------------------------
491 
Sub RaiseMsg ( SSerrFile, SSerrDesc )
 492 
Sub RaiseMsg ( SSerrFile, SSerrDesc )
492 
	' Usage: enumERROR, parval1 &"|"& parval2 &"|"& parval3 ...
 493 
	' Usage: enumERROR, parval1 &"|"& parval2 &"|"& parval3 ...
493 
	Session( "DEPMGR_ERRDESCRIPTION" ) = SSerrDesc
 494 
	Session( "DEPMGR_ERRDESCRIPTION" ) = SSerrDesc
- 
 
 495 
    Call Destroy_All_Objects
494 
	Response.Redirect ("messages/"& SSerrFile )
 496 
	Response.Redirect ("messages/"& SSerrFile )
495 
End Sub
 497 
End Sub
496 
'-----------------------------------------------------------------------------------------------------------------------------
 498 
'-----------------------------------------------------------------------------------------------------------------------------
497 
Sub RaiseMsgInParent ( SSerrFile, SSerrDesc )
 499 
Sub RaiseMsgInParent ( SSerrFile, SSerrDesc )
498 
   Session( enum_RELMGR_ERRDESCRIPTION ) = SSerrDesc
 500 
   Session( enum_RELMGR_ERRDESCRIPTION ) = SSerrDesc
Line 573... Line 575...
573 
		HighlightSubstring = SSstr
 575 
		HighlightSubstring = SSstr
574 
	End If
 576 
	End If
575 
 
 577 
 
576 
End Function
 578 
End Function
577 
'-----------------------------------------------------------------------------------------------------------------------------
 579 
'-----------------------------------------------------------------------------------------------------------------------------
578 
Sub Destroy_All_Objects
 - 
 
579 
	On Error Resume Next
 - 
 
580 
	set brokenReadyHash = nothing
 - 
 
581 
	set brokenHash = nothing
 - 
 
582 
	set pkgInfoHash = nothing
 - 
 
583 
	set OraDatabase = nothing
 - 
 
584 
	set OraSession = nothing
 - 
 
585 
	set userdetailsHash = nothing
 - 
 
586 
End Sub
 - 
 
587 
'-----------------------------------------------------------------------------------------------------------------------------
 - 
 
588 
Sub Get_Pkg_Short_Info( SSparPv_id, SSpkgID, SSpkgName, SSpkgVersion, SSsrc_path, SSpkgDesc, BBdlocked )
 580 
Sub Get_Pkg_Short_Info( SSparPv_id, SSpkgID, SSpkgName, SSpkgVersion, SSsrc_path, SSpkgDesc, BBdlocked )
589 
	Dim rsTemp, Query_String
 581 
	Dim rsTemp, Query_String
590 
	If IsEmpty(SSparPv_id) Then Exit Sub
 582 
	If IsEmpty(SSparPv_id) Then Exit Sub
591 
 
 583 
 
592 
	Query_String = _
 584 
	Query_String = _