Small router fix

This commit is contained in:
daniele.teti 2014-06-30 15:00:46 +00:00
parent b2ebb8a744
commit dc8e3d479b

View File

@ -101,6 +101,7 @@ begin
{ ISAPI CHANGE THE REQUEST PATH INFO START } { ISAPI CHANGE THE REQUEST PATH INFO START }
if IsLibrary then if IsLibrary then
begin begin
if string(AWebRequestPathInfo).StartsWith(FMVCConfig.Value[TMVCConfigKey.ISAPIPath]) then
AWebRequestPathInfo := string(AWebRequestPathInfo).Remove(0, FMVCConfig.Value[TMVCConfigKey.ISAPIPath].Length); AWebRequestPathInfo := string(AWebRequestPathInfo).Remove(0, FMVCConfig.Value[TMVCConfigKey.ISAPIPath].Length);
if Length(AWebRequestPathInfo) = 0 then if Length(AWebRequestPathInfo) = 0 then
AWebRequestPathInfo := '/'; AWebRequestPathInfo := '/';
@ -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