Skip to content

I
intranet-rest-fs-openacs
Commit dc693791 authored by Frank Bergmann's avatar Frank Bergmann
Browse files
Options

- Now applying upload_comment instead of description

parent 2afb7d22
Pipeline #964 failed with stages
      Hide whitespace changes
      Inline Side-by-side
      Showing with 3 additions and 1 deletion
      www/upload.tcl
      View file @ dc693791
      ......@@ -14,7 +14,7 @@ ad_page_contract {
      sha1
      { upload_comment "" }
      { title "" }
      { description "description" }
      { description "" }
      { ignore_p 0 }
      }
      ......@@ -23,6 +23,8 @@ set n_bytes [file size ${upload_file.tmpfile}]
      set package_id [ad_conn package_id]
      set package_id [db_string package "select min(package_id) from apm_packages where package_key = 'file-storage'" -default $package_id]
      if {"" eq $description} { set description $upload_comment }
      ns_log Notice "upload: project_id=$project_id, path=$path, upload_file=$upload_file, tmp_file=${upload_file.tmpfile}"
      set max_bytes [parameter::get_from_package_key -package_key "file-storage" -parameter "MaximumFileSize"]
      ......
      Markdown is supported
      0% or
      You are about to add 0 people to the discussion. Proceed with caution.
      Finish editing this message first!
      Please register or to comment