Index: openacs-4/packages/dotlrn-homework/tcl/dotlrn-homework-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-homework/tcl/dotlrn-homework-procs-postgresql.xql,v
diff -u -r1.6.2.1 -r1.6.2.2
--- openacs-4/packages/dotlrn-homework/tcl/dotlrn-homework-procs-postgresql.xql	5 Jun 2005 15:52:54 -0000	1.6.2.1
+++ openacs-4/packages/dotlrn-homework/tcl/dotlrn-homework-procs-postgresql.xql	21 Feb 2006 15:14:54 -0000	1.6.2.2
@@ -25,7 +25,8 @@
                :user_id,
                :creation_ip,
                :indb_p,
-               :file_id
+               :file_id,
+	       :package_id
        );
             
    </querytext>
Index: openacs-4/packages/dotlrn-homework/tcl/dotlrn-homework-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-homework/tcl/dotlrn-homework-procs.tcl,v
diff -u -r1.4 -r1.4.2.1
--- openacs-4/packages/dotlrn-homework/tcl/dotlrn-homework-procs.tcl	13 Jan 2005 13:57:29 -0000	1.4
+++ openacs-4/packages/dotlrn-homework/tcl/dotlrn-homework-procs.tcl	21 Feb 2006 15:14:54 -0000	1.4.2.1
@@ -61,6 +61,7 @@
         -description:required
         -upload_file:required
         -homework_file_id
+	{-package_id ""}
     } {
 
         Build a new content revision in the given folder.  If new_file_p is set true then
@@ -77,6 +78,7 @@
         @param description The description of the new revision
         @param upload_file The file structure passed us by the browser
         @param homework_file_id If nonzero, this is a correction file to relate to homework_file_id
+        @param package_id Package ID of the homework package used
 
     } {
 
Index: openacs-4/packages/dotlrn-homework/www/file-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-homework/www/file-add.tcl,v
diff -u -r1.3 -r1.3.2.1
--- openacs-4/packages/dotlrn-homework/www/file-add.tcl	20 Apr 2004 21:13:31 -0000	1.3
+++ openacs-4/packages/dotlrn-homework/www/file-add.tcl	21 Feb 2006 15:14:53 -0000	1.3.2.1
@@ -63,7 +63,7 @@
     db_transaction {
 
         dotlrn_homework::new -file_id $file_id -new_file_p 1 -parent_folder_id $folder_id -title $name \
-            -description $description -upload_file $upload_file -homework_file_id $homework_file_id
+            -description $description -upload_file $upload_file -homework_file_id $homework_file_id -package_id [ad_conn package_id]
 
         # Alert management.  Semantics are hardwired to Sloan's spec.  Eventually it would probably be nice
         # to make 'em configurable for non-admin users as they are now for admin users