Index: openacs-4/packages/calendar/tcl/calendar-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/tcl/calendar-procs.tcl,v
diff -u -r1.18 -r1.19
--- openacs-4/packages/calendar/tcl/calendar-procs.tcl	9 Jan 2004 20:36:13 -0000	1.18
+++ openacs-4/packages/calendar/tcl/calendar-procs.tcl	9 Jan 2004 21:02:50 -0000	1.19
@@ -12,7 +12,9 @@
 
 }
 
+namespace eval calendar {}
 
+
 #------------------------------------------------
 # datetime info extraction
 
@@ -183,12 +185,7 @@
 
     if { [string equal $cal_privilege "public"] } {
 	
-	db_1row get_magic_id {
-	    select  acs.magic_object_id('the_public')
-	            as party_id
-	    from    dual
-	}
-
+        set party_id [acs_magic_object "the_public"]
 	set cal_privilege "calendar_read"
     } elseif { [string equal $cal_privilege "private"] } {
 	set cal_privilege "calendar_read"
@@ -247,8 +244,6 @@
 }
 
 
-namespace eval calendar {}
-
 ad_proc -public calendar::get_month_multirow_information {
     {-current_day:required}
     {-today_julian_date:required}