SF.net SVN: frontierkernel: [1477] ODBs/trunk/mainResponderRoot/mainResponder/adminSite/macros/baseUrl.fvc

[<cre...@us...>]

Revision: 1477
Author:   creecode
Date:     2006-08-01 13:31:17 -0700 (Tue, 01 Aug 2006)
ViewCVS:  http://svn.sourceforge.net/frontierkernel/?rev=1477&view=rev

Log Message:
-----------
created

Added Paths:
-----------
    ODBs/trunk/mainResponderRoot/mainResponder/adminSite/macros/baseUrl.fvc
Added: ODBs/trunk/mainResponderRoot/mainResponder/adminSite/macros/baseUrl.fvc
===================================================================
--- ODBs/trunk/mainResponderRoot/mainResponder/adminSite/macros/baseUrl.fvc	                        (rev 0)
+++ ODBs/trunk/mainResponderRoot/mainResponder/adminSite/macros/baseUrl.fvc	2006-08-01 20:31:17 UTC (rev 1477)
@@ -0,0 +1,14 @@
+FrontierVcsFile:3:scpt:mainResponder.adminSite.macros.baseUrl
+
+on baseUrl ( ) {
+	«Changes
+		«8/1/06; 12:46:15 PM by TAC
+			«created
+	
+	local ( pta = html.getPageTableAddress ( ), url = config.mainresponder.prefs.baseUrl, urlParts = string.urlSplit ( url ) );
+	
+	url = urlParts [ 1 ] + urlParts [ 2 ] + ":" + pta^.port + "/";
+	
+	return ( url )}
+
+


Property changes on: ODBs/trunk/mainResponderRoot/mainResponder/adminSite/macros/baseUrl.fvc
___________________________________________________________________
Name: svn:eol-style
   + native


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.