* Renamed TResponse.SendTemporaryRedirect to SendRedirect for Delphi

   compatibility. Bug #13254

git-svn-id: trunk@13006 -

packages/fcl-web/src/custweb.pp

@@ -155,7 +155,7 @@ begin
   if R.ContentSent then exit;
   If RedirectOnError and not R.HeadersSent then
     begin
-    R.SendTemporaryRedirect(format(RedirectOnErrorURL,[HTTPEncode(E.Message)]));
+    R.SendRedirect(format(RedirectOnErrorURL,[HTTPEncode(E.Message)]));
     R.SendContent;
     Exit;
     end;

packages/fcl-web/src/httpdefs.pp

@@ -334,7 +334,7 @@ type
     Property HeadersSent : Boolean Read FHeadersSent;
     Property ContentSent : Boolean Read FContentSent;
     property Cookies: TCookies read FCookies;
-    Procedure SendTemporaryRedirect(const TargetURL:String);
+    Procedure SendRedirect(const TargetURL:String);
   end;
   
   { TSessionVariable }
@@ -1420,7 +1420,7 @@ begin
   SendContent;
 end;
 
-procedure TResponse.SendTemporaryRedirect(const TargetURL: String);
+procedure TResponse.SendRedirect(const TargetURL: String);
 begin
   Location := TargetURL;
   if FHttpVersion = '1.1' then