Changeset 146 for trunk/Modules/Portal
- Timestamp:
- Dec 29, 2023, 11:44:26 PM (12 months ago)
- Location:
- trunk/Modules/Portal
- Files:
-
- 3 moved
Legend:
- Unmodified
- Added
- Removed
-
trunk/Modules/Portal/ModulePortal.pas
r145 r146 1 unit UModulePortal;1 unit ModulePortal; 2 2 3 3 interface 4 4 5 5 uses 6 Classes, SysUtils, UModularSystem, USqlDatabase, U Utils, UWebSession, UUser,7 UWebPage, UHtmlClasses, UModuleBase, UModuleUser, UModuleNews, UGenerics;6 Classes, SysUtils, UModularSystem, USqlDatabase, Utils, WebSession, User, 7 UWebPage, UHtmlClasses, ModuleBase, ModuleUser, ModuleNews, UGenerics; 8 8 9 9 type … … 34 34 35 35 uses 36 UCore, UPagePortal;36 Core, PagePortal; 37 37 38 38 { TModulePortal } … … 86 86 DbRows := TDbRows.Create; 87 87 88 Core.Co mmonDatabase.Query(DbRows,88 Core.Core.CommonDatabase.Query(DbRows, 89 89 'CREATE TABLE IF NOT EXISTS `Panel` (' + 90 90 ' `Id` int(11) NOT NULL AUTO_INCREMENT,' + … … 97 97 ') ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_czech_ci AUTO_INCREMENT=1 ;'); 98 98 99 Core.Co mmonDatabase.Query(DbRows,99 Core.Core.CommonDatabase.Query(DbRows, 100 100 'CREATE TABLE IF NOT EXISTS `PanelColumn` (' + 101 101 ' `Id` int(11) NOT NULL AUTO_INCREMENT,' + … … 104 104 ') ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_czech_ci AUTO_INCREMENT=1 ;'); 105 105 106 Core.Co mmonDatabase.Query(DbRows,106 Core.Core.CommonDatabase.Query(DbRows, 107 107 'ALTER TABLE `Panel`' + 108 108 ' ADD CONSTRAINT `Panel_ibfk_1` FOREIGN KEY (`PanelColumn`) REFERENCES `panelcolumn` (`Id`);'); 109 109 110 Core.Co mmonDatabase.Query(DbRows,110 Core.Core.CommonDatabase.Query(DbRows, 111 111 'CREATE TABLE IF NOT EXISTS `HyperlinkGroup` (' + 112 112 ' `Id` int(11) NOT NULL AUTO_INCREMENT,' + … … 115 115 ') ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_czech_ci AUTO_INCREMENT=1 ;'); 116 116 117 Core.Co mmonDatabase.Query(DbRows,117 Core.Core.CommonDatabase.Query(DbRows, 118 118 'CREATE TABLE IF NOT EXISTS `Hyperlink` (' + 119 119 ' `Id` int(11) NOT NULL AUTO_INCREMENT,' + … … 130 130 ') ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_czech_ci AUTO_INCREMENT=1 ;'); 131 131 132 Core.Co mmonDatabase.Query(DbRows,132 Core.Core.CommonDatabase.Query(DbRows, 133 133 'ALTER TABLE `Hyperlink`' + 134 134 ' ADD CONSTRAINT `Hyperlink_ibfk_1` FOREIGN KEY (`Group`) REFERENCES `hyperlinkgroup` (`Id`);'); … … 147 147 try 148 148 DbRows := TDbRows.Create; 149 Core.Co mmonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `Panel`');150 Core.Co mmonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `PanelColumn`');151 Core.Co mmonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `Hyperlink`');152 Core.Co mmonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `HyperlinkGroup`');149 Core.Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `Panel`'); 150 Core.Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `PanelColumn`'); 151 Core.Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `Hyperlink`'); 152 Core.Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `HyperlinkGroup`'); 153 153 finally 154 154 DbRows.Free; … … 185 185 //PathTreeItem := PathTree; 186 186 //Navigation := '<a href="' + NavigationLink(PathTreePath) + '">' + PathTreeItem[0] + '</a> > '; 187 ScriptName := Copy(ScriptName, Length(Core. BaseURL), Length(ScriptName));187 ScriptName := Copy(ScriptName, Length(Core.Core.BaseURL), Length(ScriptName)); 188 188 ScriptNameParts.Explode('/', ScriptName); 189 189 ScriptNameParts.Delete(0); … … 210 210 //if(isset($this->Load)) BodyParam := BodyParam + ' onload="'.$this->Load.'"'; 211 211 //if(isset($this->Unload)) BodyParam := BodyParam + ' onunload="'.$this->Unload.'"'; 212 Output := '<?xml version="1.0" encoding="' + Core.C harset + '"?>' + LineEnding +212 Output := '<?xml version="1.0" encoding="' + Core.Core.Charset + '"?>' + LineEnding + 213 213 '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">' + 214 214 '<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="cs" lang="cs">' + 215 '<head><link rel="stylesheet" href="' + NavigationLink('/style/' + Core. Style + '/style.css') + '" type="text/css" media="all" />' +216 '<meta http-equiv="content-type" content="application/xhtml+xml; charset=' + Core.C harset + '" />' +217 '<script type="text/javascript" src="' + Core. BaseURL + '/style/' +Core.Style + '/global.js"></script>' +215 '<head><link rel="stylesheet" href="' + NavigationLink('/style/' + Core.Core.Style + '/style.css') + '" type="text/css" media="all" />' + 216 '<meta http-equiv="content-type" content="application/xhtml+xml; charset=' + Core.Core.Charset + '" />' + 217 '<script type="text/javascript" src="' + Core.Core.BaseURL + '/style/' + Core.Core.Style + '/global.js"></script>' + 218 218 '<title>' + Session.GlobalTitle + ' - ' + Path + '</title>' + 219 219 '</head><body' + BodyParam + '>' + … … 275 275 //Time := Round(Now - $ScriptTimeStart, 2); 276 276 Result := Result + '<div id="Footer">' + 277 '<i>| Správa webu: ' + Core. Admin + ' | e-mail: ' +Core.AdminEmail + ' |';277 '<i>| Správa webu: ' + Core.Core.Admin + ' | e-mail: ' + Core.Core.AdminEmail + ' |'; 278 278 // if Core.ShowRuntimeInfo then Output := Output + ' Doba generování: ' + 279 279 // Time + ' s / ' + ini_get('max_execution_time') + ' s | Použitá paměť: ' + -
trunk/Modules/Portal/PagePortal.pas
r145 r146 1 unit UPagePortal;1 unit PagePortal; 2 2 3 3 interface 4 4 5 5 uses 6 Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, USqlDatabase, U Utils,7 UGenerics, UWebSession, UHtmlClasses, UModularSystem, UModuleUser,8 UModuleNews;6 Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, USqlDatabase, Utils, 7 UGenerics, WebSession, UHtmlClasses, UModularSystem, ModuleUser, 8 ModuleNews; 9 9 10 10 type … … 37 37 38 38 uses 39 UCore, UWebObjects, UUser;39 Core, WebObjects, User; 40 40 41 41 function TWebPagePortal.SystemMessage(Title, Text: string): string;
Note:
See TracChangeset
for help on using the changeset viewer.