Skip to content

F
file-storage
Commit 3ed8e526 authored by Frank Bergmann's avatar Frank Bergmann
Browse files
Options

- Fixed export_vars brace vs. brackets

parent 51186d41
Pipeline #150 failed with stages
      Hide whitespace changes
      Inline Side-by-side
      Showing with 4 additions and 4 deletions
      www/file-add.tcl
      View file @ 3ed8e526
      ......@@ -277,7 +277,7 @@ ad_form -extend -form {} -select_query_name {get_file} -new_data {
      if {[exists_and_not_null return_url]} {
      ad_returnredirect $return_url
      } else {
      ad_returnredirect "./?[export_url_vars folder_id]"
      ad_returnredirect "./?[export_vars -url {folder_id}]"
      }
      ad_script_abort
      ......
      www/folder-add.tcl
      View file @ 3ed8e526
      ......@@ -26,7 +26,7 @@ ad_page_contract {
      set user_id [ad_conn user_id]
      if {![acs_user::site_wide_admin_p]} {
      ad_returnredirect "./?[export_url_vars folder_id]"
      ad_returnredirect "./?[export_vars -url {folder_id}]"
      }
      set package_id [ad_conn package_id]
      ......@@ -140,7 +140,7 @@ ad_form -extend -name file_add -form {} -on_submit {
      if {[exists_and_not_null return_url]} {
      ad_returnredirect $return_url
      } else {
      ad_returnredirect "./?[export_url_vars folder_id]"
      ad_returnredirect "./?[export_vars -url {folder_id}]"
      }
      ad_script_abort
      ......
      www/folder-zip-add.tcl
      View file @ 3ed8e526
      ......@@ -217,7 +217,7 @@ ad_form -extend -name file_add -form {} -new_data {
      if {[exists_and_not_null return_url]} {
      ad_returnredirect $return_url
      } else {
      ad_returnredirect "./?[export_url_vars folder_id]"
      ad_returnredirect "./?[export_vars -url {folder_id}]"
      }
      ad_script_abort
      ......
      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