mirror of
https://github.com/danieleteti/delphimvcframework.git
synced 2024-11-15 15:55:54 +01:00
Small router fix
This commit is contained in:
parent
b2ebb8a744
commit
dc8e3d479b
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user