Index: openacs-4/packages/assessment/tcl/as-file-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-file-procs.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/assessment/tcl/as-file-procs.tcl	13 Jan 2005 18:12:20 -0000	1.4
+++ openacs-4/packages/assessment/tcl/as-file-procs.tcl	13 Jan 2005 18:24:09 -0000	1.5
@@ -27,7 +27,6 @@
     set file_mimetype [cr_filename_to_mime_type -create $filename]
     set content_length [file size $file_pathname]
     set content_rev_id [cr_import_content -title $filename $folder_id $file_pathname $content_length $file_mimetype [exec uuidgen]]
-    as::item_rels::new -item_rev_id $as_item_id -target_rev_id $content_rev_id -type as_item_content_rel
 
     return $content_rev_id
 }