'---------------------------------------------------------------
'  Please do not edit or change contents of this file.
'  Please do not remove any ^M characters present in this file.
'  If you have any questions, please contact jhauptma or rchick.
'---------------------------------------------------------------
Function isOpenerClosed
	Dim test
	on error resume next
	test = window.opener.location.href
	isOpenerClosed = false
	If Err.Number <> 0 Then
		isOpenerClosed = true
	End If
End Function