Delphi/delphimvcframework
1
0
Fork 0
mirror of https://github.com/danieleteti/delphimvcframework.git synced 2024-11-15 15:55:54 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Small router fix

Browse Source
This commit is contained in:
daniele.teti 2014-06-30 15:00:46 +00:00
parent b2ebb8a744
commit dc8e3d479b
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
sources/MVCFramework.Router.pas
View File

@ -101,7 +101,8 @@ begin
{ ISAPI CHANGE THE REQUEST PATH INFO START } { ISAPI CHANGE THE REQUEST PATH INFO START }
if IsLibrary then if IsLibrary then
begin begin
AWebRequestPathInfo := string(AWebRequestPathInfo).Remove(0, FMVCConfig.Value[TMVCConfigKey.ISAPIPath].Length); if string(AWebRequestPathInfo).StartsWith(FMVCConfig.Value[TMVCConfigKey.ISAPIPath]) then
AWebRequestPathInfo := string(AWebRequestPathInfo).Remove(0, FMVCConfig.Value[TMVCConfigKey.ISAPIPath].Length);
if Length(AWebRequestPathInfo) = 0 then if Length(AWebRequestPathInfo) = 0 then
AWebRequestPathInfo := '/'; AWebRequestPathInfo := '/';
end; end;
@ -278,8 +279,8 @@ begin
FoundOneAttribProduces := true; FoundOneAttribProduces := true;
MethodAccept := MVCProducesAttribute(AAttributes[i]).Value; MethodAccept := MVCProducesAttribute(AAttributes[i]).Value;
AAccept := GetFirstMimeType(AAccept); AAccept := GetFirstMimeType(AAccept);
// while Pos(',', AAccept) > 0 do // while Pos(',', AAccept) > 0 do
// AAccept := Copy(AAccept, 1, Pos(',', AAccept) - 1); // AAccept := Copy(AAccept, 1, Pos(',', AAccept) - 1);
Result := SameText(AAccept, MethodAccept, loInvariantLocale); Result := SameText(AAccept, MethodAccept, loInvariantLocale);
if Result then if Result then