Browse Source

* Do not show exception twice

git-svn-id: trunk@15107 -
joost 15 years ago
parent
commit
41ff50c65a
1 changed files with 0 additions and 3 deletions
  1. 0 3
      packages/fcl-web/src/custweb.pp

+ 0 - 3
packages/fcl-web/src/custweb.pp

@@ -279,10 +279,7 @@ begin
       M.HandleRequest(ARequest,AResponse);
       M.HandleRequest(ARequest,AResponse);
   except
   except
     On E : Exception do
     On E : Exception do
-      begin
-      ShowException(E);
       ShowRequestException(AResponse,E);
       ShowRequestException(AResponse,E);
-      end;
   end;
   end;
 end;
 end;