Commit dc2d95f7 authored by Frank Bergmann's avatar Frank Bergmann

- Added code to write modification_ and creation_date to im_file_version

parent eb27f2bb
......@@ -81,20 +81,26 @@ if {!$file_version_exists_p} {
version_id,
version_status_id,
version_type_id,
version_creation_date,
version_modification_date,
version_sha1,
version_upload_comment
) values (
:file_version_id,
[im_file_version_status_active],
[im_file_version_type_default],
:creation_date,
:modification_date,
:sha1,
:upload_comment
)
"
set update_sqls [list "version_sha1 = :sha1"]
if {"" ne $creation_date && "undefined" ne $creation_date} { lappend update_sqls "version_creation_date = :creation_date" }
if {"" ne $modification_date && "undefined" ne $modification_date} { lappend update_sqls "version_modification_date = :modification_date" }
db_dml update_file_version "
update im_file_versions set
[join $update_sqls ",\n\t\t"]
where
version_id = :file_version_id
"
} else {
ad_return_complaint 1 "file_version update not implemented yet"
}
......
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