@ -183,6 +183,11 @@
( render #P"user/dashboard.html"
( render #P"user/dashboard.html"
( append ( auth:auth-user-data )
( append ( auth:auth-user-data )
` ( :alert , alert
` ( :alert , alert
:storage-files
, ( nera:latest-storage-editted-files 10 t )
:pages , ( nera:latest-editted-pages 10 t )
:archive-entries
, ( nera::latest-archive-editted-entries 10 t )
:system-data , ( nera:system-data ) ) ) ) )
:system-data , ( nera:system-data ) ) ) ) )
;; Not Authorised
;; Not Authorised
( progn ( utils:set-alert "You are not logged in." )
( progn ( utils:set-alert "You are not logged in." )
@ -865,31 +870,13 @@
( t ( hermetic:auth
( t ( hermetic:auth
( :administrator )
( :administrator )
;; Authorised
;; Authorised
( cond ( ( and ( null ( storage:file-exists-p "" "media" slug ) )
( cond ( ( null ( nera:get-storage-file :slug slug ) )
( null ( nera:get-storage-file :slug slug ) ) )
( utils:set-alert "Unable to find file. Nothing deleted." )
( utils:set-alert "Unable to find file. Nothing deleted." )
( redirect "/storage/manage" ) )
( redirect "/storage/manage" ) )
( ( and ( not ( null ( storage:file-exists-p "" "media" slug ) ) )
( null ( nera:get-storage-file :slug slug ) ) )
( utils:set-alert "Unable to find entry in database. Deleted file from system." )
( storage:remove-file "" "media" slug )
;; Delete thumbnail if there is one (for image files only)
( when ( storage:file-exists-p
"" "media" ( format nil "thumbnail-~a" slug ) )
( storage:remove-file
"" "media" ( format nil "thumbnail-~a" slug ) ) )
( redirect "/storage/manage" ) )
( ( and ( null ( storage:file-exists-p "" "media" slug ) )
( not ( null ( nera:get-storage-file :slug slug ) ) ) )
( utils:set-alert "Unable to find file. Deleted entry from database." )
( nera:delete-storage-file :slug slug )
( redirect "/storage/manage" ) )
( t ( storage:remove-file
( t ( storage:remove-file
"" ; `USERNAME' blank because it's not used/needed.
"" "media"
"media" slug )
( files::name-of ( nera:get-storage-file :slug slug ) ) )
( when ( storage:file-exists-p
( when ( storage:file-exists-p
"" "media" ( format nil "thumbnail-~a" slug ) )
"" "media" ( format nil "thumbnail-~a" slug ) )
( storage:remove-file
( storage:remove-file