Index: openacs-4/packages/dotlrn/tcl/applets-procs.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/applets-procs.xql,v diff -u -r1.5 -r1.6 --- openacs-4/packages/dotlrn/tcl/applets-procs.xql 13 Jul 2002 00:13:09 -0000 1.5 +++ openacs-4/packages/dotlrn/tcl/applets-procs.xql 13 Jul 2002 03:05:24 -0000 1.6 @@ -24,7 +24,7 @@ insert into dotlrn_applets - (applet_id, applet_key, package_key, status) + (applet_id, applet_key, package_key, active_p) values (acs_object_id_seq.nextval, :applet_key, :package_key, :active_p) @@ -37,4 +37,12 @@ + + + select package_key + from dotlrn_applets + where applet_key = :applet_key + + +