Changeset 57 for trunk/UCore.pas

Timestamp:

Jul 23, 2011, 11:34:22 PM (13 years ago)

Author:

george

Message:

 

File:

• trunk/UCore.pas (modified) (2 diffs)

trunk/UCore.pas

@@ -20 +20 @@
 implementation
 
-uses  
-  UConfig;
+uses
+  UMainModule;
 
 function HtmlLink(Text, Target: string): string;
@@ -97 +97 @@
 begin
   if (Length(URL) > 0) and (URL[1] = '/') then
-    Result := Config.BaseURL + URL
+    Result := MainModule.BaseURL + URL
     else Result := URL;
 end;