mirror of
https://github.com/rejetto/hfs2.git
synced 2025-12-19 10:03:56 +01:00
fix: [file.EXT] not working
This commit is contained in:
parent
1f713f706e
commit
f69251a482
@ -956,7 +956,7 @@ else
|
||||
end; // getTxt
|
||||
|
||||
function Ttpl.getTxtByExt(fileExt:string):string;
|
||||
begin result:=getTxt('file.'+fileExt) end;
|
||||
begin result:=getTxt('file'+fileExt) end;
|
||||
|
||||
procedure Ttpl.fromString(txt:string);
|
||||
var
|
||||
|
||||
4
main.pas
4
main.pas
@ -5610,7 +5610,6 @@ var
|
||||
if (s > '') and f.isFolder() and not ansiStartsText('special:', s) then
|
||||
with tplFromFile(f) do // temporarily builds from diff tpls
|
||||
try
|
||||
// NB: section [] is not accessible, because of the s>'' test
|
||||
section:=getsection(s);
|
||||
if assigned(section) and not section.nourl then // it has to exist and be accessible
|
||||
begin
|
||||
@ -5619,7 +5618,8 @@ var
|
||||
getPage(s, data, f, me());
|
||||
exit;
|
||||
end;
|
||||
finally free end;
|
||||
finally free
|
||||
end;
|
||||
|
||||
if f.isFolder() and not (FA_BROWSABLE in f.flags)
|
||||
and stringExists(urlCmd,['','~folder.tar','~files.lst']) then
|
||||
|
||||
@ -1932,7 +1932,7 @@ try
|
||||
disconnect();
|
||||
|
||||
if name = 'stop server' then
|
||||
- begin
|
||||
begin
|
||||
stopServer();
|
||||
exit('');
|
||||
end;
|
||||
|
||||
Loading…
Reference in New Issue
Block a user