Changeset 809 for cprs/branches/tmg-cprs/CPRS-Chart/UploadImages.pas

Timestamp:

Jun 22, 2010, 8:22:30 AM (14 years ago)

Author:

Kevin Toppenberg

Message:

Corrected HTML line feed

File:

• cprs/branches/tmg-cprs/CPRS-Chart/UploadImages.pas (modified) (2 diffs)

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

@@ -583 +583 @@
     end;
     Info.Free;
+    frmImages.NumImagesAvailableOnServer := NOT_YET_CHECKED_SERVER;   //Forces re-query of server
   end;
 
@@ -869 +870 @@
       Text.Add('<p>');
       for i := 0 to UploadNote.CurNoteImages.Count-1 do begin
-        // note: $CPRSDIR$ will be replaced at runtime with directory of CPRS
+        // note: CPRS_DIR_SIGNAL ('$CPRSDIR$') will be replaced at runtime with directory of CPRS
         // This will be done as page is passed to TWebBrowser (in rHTMLTools)
-        oneImage := '$CPRSDIR$\Cache\' + UploadNote.CurNoteImages.Strings[i];  
-        //oneImage := CacheDir + '\' + CurNoteImages.Strings[i];
+        oneImage := CPRS_CACHE_DIR_SIGNAL + UploadNote.CurNoteImages.Strings[i];
         Text.Add('<img WIDTH=640 src="'+oneImage+'">');
         Text.Add('<p>');