Add and delete uploaded files (#2)

2022-07-04 13:19:16 -04:00
parent 9307ace24a
commit c957279162
9 changed files with 122 additions and 15 deletions
--- a/src/MyWebLog.Domain/ViewModels.fs
+++ b/src/MyWebLog.Domain/ViewModels.fs
@@ -169,13 +169,13 @@ type DisplayUpload =
    }
    
    /// Create a display uploaded file
-    static member fromUpload source (upload : Upload) =
+    static member fromUpload webLog source (upload : Upload) =
        let path = Permalink.toString upload.path
        let name = Path.GetFileName path
        { id        = UploadId.toString upload.id
          name      = name
          path      = path.Replace (name, "")
-          updatedOn = Some upload.updatedOn
+          updatedOn = Some (WebLog.localTime webLog upload.updatedOn)
          source    = UploadDestination.toString source
        }