Index: openacs-4/packages/calendar-portlet/www/calendar-list-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-portlet/www/calendar-list-portlet.tcl,v
diff -u -r1.14 -r1.14.4.1
--- openacs-4/packages/calendar-portlet/www/calendar-list-portlet.tcl	9 Nov 2008 23:29:22 -0000	1.14
+++ openacs-4/packages/calendar-portlet/www/calendar-list-portlet.tcl	18 Aug 2014 20:58:08 -0000	1.14.4.1
@@ -31,7 +31,7 @@
     
 }  -validate {
     valid_date -requires { date } {
-        if {![string equal $date ""]} {
+        if {$date ne "" } {
             if {[catch {set date [clock format [clock scan $date] -format "%Y-%m-%d"]} err]} {
                 ad_complain "Your input was not valid. It has to be in the form YYYYMMDD."
             }
@@ -43,7 +43,7 @@
 
 # get stuff out of the config array
 array set config $cf
-if {[empty_string_p $view]} {
+if {$view eq ""} {
     set view $config(default_view)
 }
 set list_of_calendar_ids $config(calendar_id)
@@ -73,8 +73,8 @@
 }
 
 # set up some vars
-if {[empty_string_p $date]} {
-    if {[empty_string_p $julian_date]} {
+if {$date eq ""} {
+    if {$julian_date eq ""} {
         set date [dt_sysdate]
     } else {
         set date [db_string select_from_julian "select to_date(:julian_date ,'J') from dual"]