Index: openacs-4/packages/calendar/tcl/calendar-outlook-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/tcl/calendar-outlook-procs.tcl,v
diff -u -r1.15 -r1.16
--- openacs-4/packages/calendar/tcl/calendar-outlook-procs.tcl	12 Jul 2004 14:49:55 -0000	1.15
+++ openacs-4/packages/calendar/tcl/calendar-outlook-procs.tcl	27 Oct 2014 16:41:07 -0000	1.16
@@ -41,7 +41,7 @@
         # we need to have the hour equal gmt at the same time as the client
         # i.e. if its noon gmt, then its 4am in pst
         # 
-        if ![empty_string_p $dash] {
+        if {$dash ne ""} {
             set date_time_math "- $hours/24"
         } else {
             set date_time_math "+ $hours/24"
@@ -76,7 +76,7 @@
         set ics_event "BEGIN:VCALENDAR\r\nPRODID:-//OpenACS//OpenACS 5.0 MIMEDIR//EN\r\nVERSION:2.0\r\nMETHOD:PUBLISH\r\nBEGIN:VEVENT\r\nDTSTART:$DTSTART\r\nDTEND:$DTEND\r\n"
 
         # Recurrence stuff
-        if {![empty_string_p $cal_item(recurrence_id)] && $all_occurences_p} {
+        if {$cal_item(recurrence_id) ne "" && $all_occurences_p} {
 
             set recur_rule "RRULE:FREQ="
 
@@ -91,7 +91,7 @@
                 year { append recur_rule "YEARLY"}
             }
 
-            if { $recurrence(interval_name) == "week" && ![empty_string_p $recurrence(days_of_week)] } {
+            if { $recurrence(interval_name) eq "week" && $recurrence(days_of_week) ne "" } {
                 
                 #DRB: Standard indicates ordinal week days are OK, but Outlook
                 #only takes two-letter abbreviation form.
@@ -106,11 +106,11 @@
                 }
             }
 
-            if { ![empty_string_p $recurrence(every_nth_interval)] } {
+            if { $recurrence(every_nth_interval) ne "" } {
                 append recur_rule ";INTERVAL=$recurrence(every_nth_interval)"
             }
 
-            if { ![empty_string_p $recurrence(recur_until)] } {
+            if { $recurrence(recur_until) ne "" } {
                 #DRB: this should work with a DATE: type but doesn't with Outlook at least.
                 append recur_rule ";UNTIL=$recurrence(recur_until)"
                 append recur_rule "T000000Z"