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.8.1 -r1.5.8.2 --- openacs-4/packages/dotlrn-homework/tcl/dotlrn-homework-procs.tcl 18 Aug 2014 21:56:33 -0000 1.5.8.1 +++ openacs-4/packages/dotlrn-homework/tcl/dotlrn-homework-procs.tcl 26 Aug 2014 10:53:44 -0000 1.5.8.2 @@ -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 } {