Index: openacs-4/packages/evaluation/tcl/evaluation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/tcl/evaluation-procs.tcl,v
diff -u -N -r1.23 -r1.24
--- openacs-4/packages/evaluation/tcl/evaluation-procs.tcl	20 Jan 2005 18:49:26 -0000	1.23
+++ openacs-4/packages/evaluation/tcl/evaluation-procs.tcl	24 Jan 2005 15:12:38 -0000	1.24
@@ -511,25 +511,28 @@
 	set creation_date [db_string get_date { *SQL* }]
     }
     if { $new_item_p } {
-	ns_log Notice "Entro !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! \"$title\""
-	set item_id [content::item::new -item_id $item_id \
-                                        -parent_id $folder_id \
-                                        -content_type $content_type \
-                                        -name $item_name \
-                                        -context_id $package_id \
-                                        -mime_type $mime_type \
-                                        -title $title \
-                                        -creation_date $creation_date]
-    }
+        set item_id [content::item::new \
+			 -item_id $item_id \
+			 -parent_id $folder_id \
+			 -content_type $content_type \
+			 -name $item_name \
+			 -context_id $package_id \
+			 -mime_type $mime_type \
+			 -storage_type $storage_type \
+			 -creation_date $creation_date]
+
     set revision_id [content::revision::new \
                                   -item_id $item_id \
                                   -content_type $content_type \
                                   -mime_type $mime_type \
-                                  -title $title \
+                                  -title $title\
                                   -creation_date $creation_date \
-  			          -attributes [list [list answer_item_id $item_id] \
-					            [list party_id $party_id]] ]
+			 -attributes [list [list answer_item_id  $item_id] \
+					  [list party_id $party_id] \
+					  [list task_item_id $task_item_id]] ]
 
+
+                                                                                                                                                            
     # in order to find the file we have to set the name in cr_items the same that in cr_revisions
     db_dml update_item_name { *SQL* }
     return $revision_id