Subversion Repositories DevTools

Rev

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

Rev 5953 Rev 5959
Line 4... Line 4...
4 
'===================================================================
 4 
'===================================================================
5 
%>
 5 
%>
6 
<%
 6 
<%
7 
'-----------------------------------------------------------------------------------------------------------------------------
 7 
'-----------------------------------------------------------------------------------------------------------------------------
8 
Sub CloseWindow
 8 
Sub CloseWindow
- 
 
 9 
    Call Destroy_All_Objects
- 
 
 10 
 
9 
%>
 11 
%>
10 
	<SCRIPT language="JavaScript" type="text/javascript">
 12 
	<SCRIPT language="JavaScript" type="text/javascript">
11 
	<!--
 13 
	<!--
12 
	self.close();
 14 
	self.close();
13 
	//-->
 15 
	//-->
14 
	</SCRIPT>
 16 
	</SCRIPT>
15 
<%
 17 
<%
- 
 
 18 
    Response.End
16 
End Sub
 19 
End Sub
17 
'-----------------------------------------------------------------------------------------------------------------------------
 20 
'-----------------------------------------------------------------------------------------------------------------------------
18 
Sub OpenChildWindow ( SStitle, SSurl, SSH, SSW, BBscroll )
 21 
Sub OpenChildWindow ( SStitle, SSurl, SSH, SSW, BBscroll )
19 
	Dim scrlBar
 22 
	Dim scrlBar
20 
	If BBscroll Then
 23 
	If BBscroll Then
Line 40... Line 43...
40 
	</script>
 43 
	</script>
41 
<%
 44 
<%
42 
End Sub
 45 
End Sub
43 
'-----------------------------------------------------------------------------------------------------------------------------
 46 
'-----------------------------------------------------------------------------------------------------------------------------
44 
Sub OpenInWindow ( SSurl )
 47 
Sub OpenInWindow ( SSurl )
- 
 
 48 
    Call Destroy_All_Objects
45 
	Response.Redirect ( SSurl )
 49 
	Response.Redirect ( SSurl )
46 
End Sub
 50 
End Sub
47 
'-----------------------------------------------------------------------------------------------------------------------------
 51 
'-----------------------------------------------------------------------------------------------------------------------------
48 
Function onClickOpenWindow ( sURL, sWindowName, nWidth, nHeight, sWindowParams )
 52 
Function onClickOpenWindow ( sURL, sWindowName, nWidth, nHeight, sWindowParams )
49 
	If NOT IsNull(sWindowParams)  OR  (sWindowParams <> "") Then sWindowParams = sWindowParams &","	' Append comma if params are not empty
 53 
	If NOT IsNull(sWindowParams)  OR  (sWindowParams <> "") Then sWindowParams = sWindowParams &","	' Append comma if params are not empty