Changeset 800 for cprs/branches/tmg-cprs/CPRS-Chart/fNotes.pas

Timestamp:

Jun 14, 2010, 12:37:31 PM (14 years ago)

Author:

Kevin Toppenberg

Message:

Fixing uploads of PDF files

File:

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

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

@@ -4643 +4643 @@
    i, AddResult: integer;
    oneImage: string;
+   ImageFName : string;
 begin
    inherited;
+   UploadForm.AllowNonImages := false; //only allow selection of IMAGES
    AddResult := UploadForm.ShowModal;
+   UploadForm.AllowNonImages := true; // restore to allow any file
    if IsAbortResult(AddResult) then exit;
    for i := 0 to UploadForm.UploadedImages.Count-1 do begin
-     oneImage := '<img src="'+CPRSDir+'\Cache\' + UploadForm.UploadedImages.Strings[i] + '" ' +
-                  ALT_IMG_TAG_CONVERT + ' >';
+     ImageFName := CPRSDir+'\Cache\' + UploadForm.UploadedImages.Strings[i];
+     oneImage := '<img src="'+ ImageFName + '" ' + ALT_IMG_TAG_CONVERT + ' >';
      HTMLEditor.InsertHTMLAtCaret(oneImage+#13#10);
    end;