Changeset 460 for cprs/branches/foia-cprs/CPRS-Chart/uProbs.pas

Timestamp:

Jul 6, 2008, 8:20:14 PM (16 years ago)

Author:

Kevin Toppenberg

Message:

Uploading from OR_30_258

File:

• cprs/branches/foia-cprs/CPRS-Chart/uProbs.pas (modified) (4 diffs)

cprs/branches/foia-cprs/CPRS-Chart/uProbs.pas

@@ -134 +134 @@
    fFieldList:TstringList; {list of fields by name and class (TKeyVal or TComment)}
    fFilerObj:TstringList;
+   fCmtIsXHTML: boolean;
+   fCmtNoEditReason: string;
    Procedure LoadField(Fldrec:TKeyVal;Id:String;name:string);
    Procedure CreateFields;
@@ -223 +225 @@
    property AltFilerObject:TstringList read GetAltFilerObject;
    property PIFN:string read fPIFN write fPIFN;
+   property CmtIsXHTML: boolean read fCmtIsXHTML;
+   property CmtNoEditReason: string read fCmtNoEditReason;
  end;
 
@@ -580 +584 @@
 var
   i,j:integer;
-  cv:string;
+  cv, noedit:string;
   co:TComment;
   first:boolean;
@@ -591 +595 @@
         begin
           if first then {the first line is just a counter}
-            first := false
+            begin
+              first := false;
+              // 'NEWþ10,0þ-1^These notes are now in XHTML format and must be modified via CPRS-R.'
+              noedit := Piece(fNewRec[i], v, 3);
+              if Piece(noedit, U, 1) = '-1' then
+                begin
+                  fCmtIsXHTML := TRUE;
+                  fCmtNoEditReason := Piece(noedit, U, 2);
+                end
+              else
+                begin
+                  fCmtIsXHTML := FALSE;
+                  fCmtNoEditReason := '';
+                end;
+            end
           else
             begin