Changeset 654 for cprs/branches/tmg-cprs/CPRS-Chart/fDrawers.pas

Timestamp:

Jan 4, 2010, 8:02:21 AM (14 years ago)

Author:

Kevin Toppenberg

Message:

Added HTML templating

File:

• cprs/branches/tmg-cprs/CPRS-Chart/fDrawers.pas (modified) (1 diff)

cprs/branches/tmg-cprs/CPRS-Chart/fDrawers.pas

@@ -977 +977 @@
   if (dmodShared.TemplateOK(tvTemplates.Selected.Data)) then begin  //kt
     Template := TTemplate(tvTemplates.Selected.Data);
-    TemplateIsHTML := rHTMLTools.IsHTML(Template.Text); //kt
-    if not InsertOK(TRUE,TemplateIsHTML) then exit;  //kt
     Template.TemplatePreviewMode := FALSE;
-    if Template.IsReminderDialog then
+    if Template.IsReminderDialog then begin
       Template.ExecuteReminderDialog(TForm(Owner))
-    else
-    begin
+    end else begin
       if Template.IsCOMObject then
         txt := Template.COMObjectText('', DocInfo)
-      else
+      else begin
         uTemplates.bUsingHTMLMode := HTMLEditActive; //kt 8/09  Will be used in TTemplate.GetText
         txt := Template.Text;
-      if(txt <> '') then
-      begin
+        TemplateIsHTML := rHTMLTools.IsHTML(txt); //kt
+        if not InsertOK(FALSE,TemplateIsHTML) then exit;  //kt
+      end;
+      if(txt <> '') then begin
 //      CheckBoilerplate4Fields(txt, 'Template: ' + Template.PrintName);  <-- original line.  //kt 7/15/2007
         CheckBoilerplate4Fields(txt, DKLangConstW('fDrawers_Templatex') + Template.PrintName); //kt added 7/15/2007