- WIP

www/upload.tcl

@@ -14,6 +14,7 @@ ad_page_contract {
     { creation_date "" }
     { modification_date "" }
     { sha1 "" }
+    { upload_comment "" }
 }
 
 set user_id [ad_conn user_id]
@@ -41,7 +42,7 @@ set file_id [db_nextval "acs_object_id_seq"]
 ns_log Notice "upload: folder_id=$folder_id, file_id=$file_id, mime_type=$mime_type"
 
 
-set file_id [fs::add_file \
+set file_revision_id [fs::add_file \
         -name $upload_file \
         -item_id $file_id \
         -parent_id $folder_id \
@@ -53,6 +54,45 @@ set file_id [fs::add_file \
         -package_id $package_id \
         -mime_type $mime_type \
 ]
+set file_id [db_string file_id "select item_id from cr_revisions where revision_id = :file_revision_id" -default ""]
+set file_exists_p [db_string p "select count(*) from im_files where file_id = :file_id"]
+ad_return_complaint 1 "file_id=$file_id, rev=$file_revision_id"
+
+
+if {!$file_exists_p} {
+
+    db_dml insert_file "
+
+	insert into im_files (
+		file_id,
+		file_status_id,
+		file_type_id,
+		file_creation_date,
+		file_modification_date,
+		file_sha1,
+		file_size,
+		file_upload_comment
+	) values (
+		:file_id,
+		[im_file_status_active],
+		[im_file_type_default],
+		:creation_date,
+		:modification_date,
+		:sha1,
+		:n_bytes,
+		:upload_comment
+	)
+    "
+
+}
+
+
+db_dml file_metadata "
+	update acs_objects set
+		creation_date = :creation_date,	   
+	       	last_modified = :modification_date		
+	where	object_id = :file_revision_id
+"
 
 
 file delete ${upload_file.tmpfile}