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
+
+
+