Index: openacs-4/packages/dotlrn-catalog/tcl/dotlrn-catalog-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-catalog/tcl/dotlrn-catalog-procs.tcl,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/dotlrn-catalog/tcl/dotlrn-catalog-procs.tcl 16 Feb 2005 22:21:30 -0000 1.2 +++ openacs-4/packages/dotlrn-catalog/tcl/dotlrn-catalog-procs.tcl 22 Feb 2005 14:54:40 -0000 1.3 @@ -174,7 +174,6 @@ @creation_user@ The user_id of the user that creates the course_id } { permission::grant -party_id $party_id -object_id $object_id -privilege "admin" - set asm_package_id [apm_package_id_from_key assessment] db_foreach assessment { } { if {[permission::permission_p -party_id $creation_user -object_id $assessment_id -privilege "admin"] == 1} { @@ -195,7 +194,6 @@ @creation_user@ The user_id of the user that creates the course_id } { permission::revoke -party_id $party_id -object_id $object_id -privilege "admin" - set asm_package_id [apm_package_id_from_key assessment] db_foreach assessment { } { if { [permission::permission_p -party_id $creation_user -object_id $assessment_id -privilege admin] == 1 } {