Index: openacs-4/packages/acs-templating/tcl/tag-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/tag-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/acs-templating/tcl/tag-procs.tcl 17 Feb 2002 13:53:31 -0000 1.5
+++ openacs-4/packages/acs-templating/tcl/tag-procs.tcl 13 Mar 2002 22:50:53 -0000 1.6
@@ -188,8 +188,9 @@
}
default {
- # abort evaluation
- error "Invalid operator $op in IF tag"
+ # treat as a shortcut for
+ append condition "\[template::util::is_true $arg1\]"
+ set next [expr $i - 1]
}
}