Dokumente hinzu und Anzeigefehler korrigiert

2026-05-13 09:31:38 +02:00
parent 2e7933ad58
commit e27ee5fd0b
33 changed files with 259 additions and 305 deletions
@@ -193,11 +193,10 @@ buchungenServer <- function(id, conn, r_global) {
      ## *** Anhänge anzeigen ----
      tagList(lapply(seq_len(nrow(att)), function(i) {
        ext      <- tools::file_ext(att$original_name[i])
-        filename <- paste0("www/documents/", att$id[i], ".", ext)
+        filename <- paste0("documents/", att$id[i], ".", ext)
        
        ## *** Anhang öffnen ----
        observeEvent(input[[paste0("open_att_", att$id[i])]], {
-          browser()
          showModal(modalDialog(
            tags$iframe(src = filename, width = "100%", height = "600px",
              style = "border:none;"),