Develop and Download Open Source Software

mybbs

Browse Subversion Repository

/[bbs-as-pbbs]/WebModuleUnit1.pas

Diff of /WebModuleUnit1.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 7 by yamat0jp, Sat Sep 17 00:53:17 2016 UTC revision 8 by yamat0jp, Sat Sep 17 01:05:29 2016 UTC
# Line 171  var Line 171  var
171    s: TDataSetPageProducer;    s: TDataSetPageProducer;
172  begin  begin
173    if TagString = 'home' then    if TagString = 'home' then
   begin  
     if uri = 'setup' then  
       ReplaceText := '/index'  
     else  
174        ReplaceText := 'http://' + FDTable2.FieldByName('home').AsString;        ReplaceText := 'http://' + FDTable2.FieldByName('home').AsString;
   end;  
175    if (TagString = 'title') or (TagString = 'title2') then    if (TagString = 'title') or (TagString = 'title2') then
176      ReplaceText := FDTable2.FieldByName(TagString).AsString;      ReplaceText := FDTable2.FieldByName(TagString).AsString;
177    if TagString = 'username' then    if TagString = 'username' then
Legend:
Removed from v.7  
changed lines
  Added in v.8
Back to OSDN">Back to OSDN
 ViewVC Help
Powered by ViewVC 1.1.26  
About OSDN
Find Software
Develop Software
Help