- Calendar Component:

  Pick the first calendar if severals are installed

tcl/intranet-calendar-procs.tcl

@@ -51,7 +51,7 @@ ad_proc -public im_calendar_home_component {
 } {
     set today ""
     set current_user_id [ad_get_user_id]
-    set cal_package_id [util_memoize [list db_string cal_package "select package_id from apm_packages where package_key = 'calendar'" -default 0]]
+    set cal_package_id [util_memoize [list db_string cal_package "select min(package_id) from apm_packages where package_key = 'calendar'" -default 0]]
     set perm_p [permission::permission_p -party_id $current_user_id -object_id $cal_package_id -privilege "read"]
     if {!$perm_p} { return "" }