Index: openacs-4/packages/calendar/www/cal-options.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/cal-options.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/calendar/www/cal-options.tcl	10 Sep 2002 22:22:31 -0000	1.4
+++ openacs-4/packages/calendar/www/cal-options.tcl	21 Jul 2003 19:21:36 -0000	1.5
@@ -19,12 +19,16 @@
 
 set calendar_list [calendar::calendar_list]
 
-set calendar_list_sql "[join $calendar_list ","]"
+if {[llength $calendar_list] > 0} {
+    set calendar_list_sql "[join $calendar_list ","]"
 
-db_multirow calendars select_calendars "
+    db_multirow calendars select_calendars "
     select calendar_id, calendar_name
     from calendars
     where calendar_id in ($calendar_list_sql)
-"
+    "
+} else {
+    multirow create calendars
+}
 
 ad_return_template