Changeset 45 for trunk/UCore.pas

Timestamp:

Dec 31, 2010, 9:56:34 PM (14 years ago)

Author:

george

Message:

• Přidáno: Jednotka UWebObjects, která obsahuje specifické grafické komponenty pro danou aplikaci.
• Upraveno: Konfigurace aplikace předělána z globálních konstant na proměnnou Config strukturovaného typu record.

File:

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

trunk/UCore.pas

@@ -32 +32 @@
   Navigace: string;
 begin
+  Navigace := '';
   //Navigace := CgiEnvVar.RequestURI;
   Result := '<?xml version="1.0" encoding="utf-8"?>' + 
@@ -96 +97 @@
 begin
   if (Length(URL) > 0) and (URL[1] = '/') then
-    Result := ConfigBaseURL + URL
+    Result := Config.BaseURL + URL
     else Result := URL;
 end;