Changeset 735 for cprs/branches/tmg-cprs/CPRS-Chart/Templates/fTemplateDialog.pas

Timestamp:

Apr 9, 2010, 9:13:04 AM (14 years ago)

Author:

Kevin Toppenberg

Message:

Template formulas will calculate even if responses have characters, bug fixes

File:

• cprs/branches/tmg-cprs/CPRS-Chart/Templates/fTemplateDialog.pas (modified) (3 diffs)

cprs/branches/tmg-cprs/CPRS-Chart/Templates/fTemplateDialog.pas

@@ -219 +219 @@
     frmTemplateDialog.HTMLAnswerOpenTag := '<I>'; //kt 12/28/09
     //SL.Text := RemoveHTMLTags(SL.Text);  //elh
+    HideFormulas(SL,frmTemplateDialog.Formulas); //kt added 3/26/10
     AssignFieldIDs(SL,frmTemplateDialog.NameToObjID);   //kt  added NameToObjID param 3/26/10
-    HideFormulas(SL,frmTemplateDialog.Formulas); //kt added 3/26/10
     HideTxtObjects(SL,frmTemplateDialog.TxtObjects); //kt added 3/28/10
     frmTemplateDialog.SL := SL;
@@ -230 +230 @@
     frmTemplateDialog.FirstIndent := 99999;
     repeat
+    //messagedlg(Txt,mtInformation,mbOKCancel,0);
       i := pos(ObjMarker, Txt);
       if(i > 1) then begin
@@ -280 +281 @@
           //kt -- end mod --
           GetText(SL, TRUE);     {TRUE = Include embedded fields}
-          {
-          if uTemplates.bUsingHTMLMode then begin
-             SL.Text := FormatHTMLTags(SL.Text);
-          end else begin
-             SL.Text := RemoveHTMLTags(SL.Text);
-          end;
-          }
         end else begin
           if (not PreviewMode) and (not frmTemplateDialog.Silent) and (not uInit.TimedOut) then begin