Index: openacs-4/packages/calendar/tcl/calendar-sc-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/tcl/calendar-sc-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/calendar/tcl/calendar-sc-procs.tcl	16 Aug 2006 17:52:14 -0000	1.2
+++ openacs-4/packages/calendar/tcl/calendar-sc-procs.tcl	27 Oct 2014 16:41:07 -0000	1.3
@@ -15,16 +15,16 @@
     @param cal_item_id
 
     @author davis@xarg.net
-    @creation_date 2004-04-01
+    @creation-date 2004-04-01
 } {
     calendar::item::get -cal_item_id $cal_item_id -array row
 
     # build a text content 
     foreach key {description pretty_day_of_week start_time end_time full_start_date start_date_ansi} {
-        if {[string eq $key start_time]} { 
+        if {$key eq "start_time"} { 
             append content "from "
         }
-        if {[string eq $key end_time]} { 
+        if {$key eq "end_time"} { 
             append content "to "
         }
         append content "$row($key) "
@@ -43,7 +43,7 @@
     returns a url for an event to the search package
 
     @author davis@xarg.net
-    @creation_date 2004-04-01
+    @creation-date 2004-04-01
 } {
     calendar::item::get -cal_item_id $cal_item_id -array row
     return "[ad_url][apm_package_url_from_id $row(calendar_package_id)]cal-item-view?cal_item_id=$cal_item_id"