#' @title Kopieren der Parameter
#'
#' @description legacy mode, substitue PARAM_GLOBAL by one that contains description and input path
#'
#' @param path  input-path
#'
#' @param path_out output-path
#'
#' @author [MAS BSV](mailto:sekretariat.mas@bsv.admin.ch)
#'
#' @export

copy_param <- function(path, path_out, tl_inp) {
  # Erstelle Zielordner
  dir.create(file.path(path_out, "param"))
  
  # Bestimme Pfad zur Parameterdatei
  pfad_param <- if (dir.exists(file.path(path[1], "param"))) {
    path_param(file.path(path, "param"))
  } else {
    path_param(path)
  }
  
  # Kopiere Parametervariablen
  file.copy(pfad_param, file.path(path_out, "param"), recursive = TRUE)
  
  # Schreibe PARAM_GLOBAL.csv in das kopierte Verzeichnis
  tl_inp$PARAM_GLOBAL |>
    mutate(across(everything(), as.character)) |>  # Wandle alle Werte in Text um
    pivot_longer(everything(), names_to = "key", values_to = "value") |>
    write_delim(
      file = file.path(path_out, "param", basename(pfad_param), "PARAM_GLOBAL.csv"),
      delim = ";"
    )
}