Index: openacs-4/packages/curriculum-central/tcl/stream-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/curriculum-central/tcl/stream-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/curriculum-central/tcl/stream-procs.tcl	24 Nov 2005 23:08:32 -0000	1.1
+++ openacs-4/packages/curriculum-central/tcl/stream-procs.tcl	24 Nov 2005 23:14:36 -0000	1.2
@@ -12,14 +12,21 @@
 
 namespace eval curriculum_central::stream {}
 
-ad_proc -public curriculum_central::stream::streams_exist_p {} {
+ad_proc -public curriculum_central::stream::streams_exist_p {
+    {-package_id ""}
+} {
     Checks if at least one stream has been created for an instance of
     Curriculum Central.
 
-    @param package_id The mounted instance of Curriculum Central.
+    @param package_id The mounted instance of Curriculum Central.  Note: the
+    ad_conn package_id is used by default.
     @return Returns true 1 at least one stream has been created, otherwise
     0 is returned.
 } {
+    if { $package_id eq "" } {
+	set package_id [ad_conn package_id]
+    }
+
     # Return 1 if at least one stream has been created, otherwise 0.
     return [db_0or1row streams_exist {}]
 }