Index: openacs-4/packages/dotlrn-homework/tcl/apm-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-homework/tcl/apm-callback-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/dotlrn-homework/tcl/apm-callback-procs.tcl	29 Aug 2003 09:01:45 -0000	1.4
+++ openacs-4/packages/dotlrn-homework/tcl/apm-callback-procs.tcl	20 Apr 2004 21:13:30 -0000	1.5
@@ -20,6 +20,14 @@
 } {
     db_transaction {
 
+
+	# Define homework_correction relation
+	db_dml create_relation {
+	    insert into cr_type_relations 
+	    (content_type,target_type,relation_tag) 
+	    values ('file_storage_object','file_storage_object','homework_correction')
+	}
+
         # Define notifications for homework and correction file uploads
 
         set impl_id \
@@ -164,5 +172,13 @@
         acs_sc::impl::delete -contract_name dotlrn_applet -impl_name dotlrn_homework_applet
         portal::datasource::delete -name dotlrn_homework_portlet
         portal::datasource::delete -name dotlrn_homework_admin_portlet
+
+	db_dml delete_relation { 
+	      delete from cr_type_relations 
+	      where content_type = 'file-storage-object' and
+	      target_type = 'file-storage-object' and
+	     relation_tag = 'homework_correction'
+	}
+
     }
 }