Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
I
intranet-rest-fs-openacs
Project
Project
Details
Activity
Releases
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
0
Issues
0
List
Board
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
project-open
intranet-rest-fs-openacs
Commits
dc693791
Commit
dc693791
authored
Jun 09, 2019
by
Frank Bergmann
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
- Now applying upload_comment instead of description
parent
2afb7d22
Pipeline
#964
failed with stages
Changes
1
Pipelines
1
Show whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
3 additions
and
1 deletion
+3
-1
upload.tcl
www/upload.tcl
+3
-1
No files found.
www/upload.tcl
View file @
dc693791
...
@@ -14,7 +14,7 @@ ad_page_contract {
...
@@ -14,7 +14,7 @@ ad_page_contract {
sha1
sha1
{
upload_comment
""
}
{
upload_comment
""
}
{
title
""
}
{
title
""
}
{
description
"
description
"
}
{
description
""
}
{
ignore_p 0
}
{
ignore_p 0
}
}
}
...
@@ -23,6 +23,8 @@ set n_bytes [file size ${upload_file.tmpfile}]
...
@@ -23,6 +23,8 @@ set n_bytes [file size ${upload_file.tmpfile}]
set
package_id
[
ad_conn package_id
]
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
]
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}
"
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"
]
set
max_bytes
[
parameter::get_from_package_key -package_key
"file-storage"
-parameter
"MaximumFileSize"
]
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment