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.5 -r1.6
--- openacs-4/packages/dotlrn-homework/tcl/dotlrn-homework-procs.tcl	8 Aug 2006 21:26:36 -0000	1.5
+++ openacs-4/packages/dotlrn-homework/tcl/dotlrn-homework-procs.tcl	27 Oct 2014 16:41:20 -0000	1.6
@@ -94,7 +94,7 @@
         set mime_type [cr_filename_to_mime_type $filename]
 
         # Get the storage type
-        set indb_p [ad_decode [ad_parameter "StoreFilesInDatabaseP" -package_id [ad_conn package_id]] 1 "t" "f"]
+        set indb_p [ad_decode [parameter::get -package_id [ad_conn package_id] -parameter "StoreFilesInDatabaseP"] 1 "t" "f"]
 
         if { $new_file_p } {
 
@@ -305,8 +305,8 @@
     }
 
     # The get routines return a list of name/id pairs so extract the ids
-    set interval_id [lindex [lindex $intervals 0] 1]
-    set delivery_method_id [lindex [lindex $delivery_methods 0] 1]
+    set interval_id [lindex $intervals 0 1]
+    set delivery_method_id [lindex $delivery_methods 0 1]
 
     # Add the alert
     notification::request::new -type_id $type_id -user_id [ad_conn user_id] -object_id $homework_file_id \