From e7fb6f9cc99d44cab6b9ed0a41b1a19f95e65845 Mon Sep 17 00:00:00 2001
From: yamat0jp <terukohietori@gmail.com>
Date: Sat, 18 Jan 2020 18:02:25 +0900
Subject: [PATCH] =?utf8?q?=E3=81=99=E3=81=A3=E3=81=8D=E3=82=8A=E3=81=97?=
 =?utf8?q?=E3=81=BE=E3=81=97=E3=81=9F=E3=81=8C=E3=80=80=E3=83=88=E3=83=A9?=
 =?utf8?q?=E3=83=96=E3=83=AB=E3=81=AE=E7=96=91=E6=83=91=E3=82=92=E6=8A=B1?=
 =?utf8?q?=E3=81=88=E3=81=A6=E3=81=84=E3=81=BE=E3=81=99?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 WebModuleUnit1.pas | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

diff --git a/WebModuleUnit1.pas b/WebModuleUnit1.pas
index 8152116..dbe7144 100644
--- a/WebModuleUnit1.pas
+++ b/WebModuleUnit1.pas
@@ -476,10 +476,6 @@ begin
       First;
       while Eof = false do
       begin
-        if FieldByName('posnum').AsInteger = -1 then
-          alert.Tag := 1
-        else
-          alert.Tag := 0;
         ReplaceText := ReplaceText + alert.ContentFromString(alert.Content);
         Next;
       end;
@@ -895,7 +891,7 @@ begin
   if Request.MethodType = mtGet then
   begin
     FDTable1.Locate('dbnum', num1);
-    FDTable2.Locate('number', num2, []);
+    FDTable2.Locate('number', num2);
     Response.ContentType := 'text/html;charset=utf-8';
     Response.Content := mail.Content;
   end
-- 
2.11.0