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.5.2.1
--- 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	9 Mar 2002 22:46:44 -0000	1.5.2.1
@@ -188,8 +188,9 @@
     }
 
     default { 
-      # abort evaluation
-      error "Invalid operator <tt>$op</tt> in IF tag" 
+      # treat <if @foo_p@> as a shortcut for <if @foo_p@ true>
+      append condition "\[template::util::is_true $arg1\]"
+      set next [expr $i - 1]
     }
   }
 
Index: openacs-4/packages/acs-templating/www/doc/demo/if.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/www/doc/demo/if.adp,v
diff -u -r1.1.1.1 -r1.1.1.1.2.1
--- openacs-4/packages/acs-templating/www/doc/demo/if.adp	13 Mar 2001 22:59:27 -0000	1.1.1.1
+++ openacs-4/packages/acs-templating/www/doc/demo/if.adp	9 Mar 2002 22:46:44 -0000	1.1.1.1.2.1
@@ -4,7 +4,11 @@
 
     <p>The value of x is <b>@x@</b><br>
     The value of y is <b>@y@</b><br>
-    The value of n is <b>@n@</b></p>
+    The value of n is <b>@n@</b><br>
+    The value of bool_t_p is <b>@bool_t_p@</b><br>
+    The value of bool_1_p is <b>@bool_1_p@</b><br>
+    The value of bool_f_p is <b>@bool_f_p@</b><br>
+    The value of bool_0_p is <b>@bool_0_p@</b><p>
 
 <table cellpadding=2 cellspacing=0 border=1>
 <tr bgcolor=#eeeeee>
@@ -14,61 +18,107 @@
 </tr>
 
 <tr><td><tt><b>eq</b></tt></td>
-    <td><tt>if x eq 5</tt></td>
+    <td><tt>if \@x\@ eq 5</tt></td>
     <td><b><if @x@ eq 5>X is 5</if><else>X is not 5</else></b></td>
 </tr>
 
 <tr><td><tt><b>eq</b></tt></td>
-    <td><tt>if x eq 6</tt></td>
+    <td><tt>if \@x\@ eq 6</tt></td>
     <td><b><if @x@ eq 6>X is 6</if><else>X is not 6</else></b></td>
 </tr>
 
 <tr><td><tt><b>eq</b></tt></td>
-    <td><tt>if n eq "Fred's Flute"</tt></td>
+    <td><tt>if \@n\@ eq "Fred's Flute"</tt></td>
     <td><b><if @n@ eq "Fred's Flute">N is "Fred's Flute"</if>
            <else>N is not "Fred's Flute"</else></b></td>
 </tr>
 
 <tr><td><tt><b>eq</b></tt></td>
-    <td><tt>if n eq "Fred"</tt></td>
+    <td><tt>if \@n\@ eq "Fred"</tt></td>
     <td><b><if @n@ eq "Fred">N is "Fred"</if>
            <else>N is not "Fred"</else></b></td>
 </tr>
 
 <tr><td><tt><b>defined</b></tt></td>
-    <td><tt>if x defined</tt></td>
+    <td><tt>if \@x\@ defined</tt></td>
     <td><b><if @x@ defined>x is defined</if>
            <else>x is undefined</else></b></td>
 </tr>
 
 <tr><td><tt><b>nil</b></tt></td>
-    <td><tt>if x nil</tt></td>
+    <td><tt>if \@x\@ nil</tt></td>
     <td><b><if @x@ nil>x is nil</if>
            <else>x is nonnil</else></b></td>
 </tr>
 
 <tr><td><tt><b>defined</b></tt></td>
-    <td><tt>if z defined</tt></td>
+    <td><tt>if \@z\@ defined</tt></td>
     <td><b><if @z@ defined>z is defined</if>
            <else>z is undefined</else></b></td>
 </tr>
 
 <tr><td><tt><b>nil</b></tt></td>
-    <td><tt>if z nil</tt></td>
+    <td><tt>if \@z\@ nil</tt></td>
     <td><b><if @z@ nil>z is nil</if>
            <else>z is nonnil</else></b></td>
 </tr>
 
 <tr><td><tt><b>defined</b></tt></td>
-    <td><tt>if w defined</tt></td>
+    <td><tt>if \@w\@ defined</tt></td>
     <td><b><if @w@ defined>w is defined</if>
            <else>w is undefined</else></b></td>
 </tr>
 
 <tr><td><tt><b>nil</b></tt></td>
-    <td><tt>if w nil</tt></td>
+    <td><tt>if \@w\@ nil</tt></td>
     <td><b><if @w@ nil>w is nil</if>
            <else>w is nonnil</else></b></td>
 </tr>
 
+<tr><td><tt><b>nil</b></tt></td>
+    <td><tt>if \@w\@ nil</tt></td>
+    <td><b><if @w@ nil>w is nil</if>
+           <else>w is nonnil</else></b></td>
+</tr>
+
+<tr><td><tt><b>true</b></tt></td>
+    <td><tt>if \@bool_t_p\@ true</tt></td>
+    <td><b><if @bool_t_p@ true>ok</if>
+           <else>not ok</else></b></td>
+</tr>
+
+<tr><td><tt><b>true</b></tt></td>
+    <td><tt>if \@bool_1_p\@ true</tt></td>
+    <td><b><if @bool_1_p@ true>ok</if>
+           <else>not ok</else></b></td>
+</tr>
+
+<tr><td><tt><b>true short</b></tt></td>
+    <td><tt>if \@bool_t_p\@</tt></td>
+    <td><b><if @bool_t_p@>ok</if>
+           <else>not ok</else></b></td>
+</tr>
+
+<tr><td><tt><b>true short</b></tt></td>
+    <td><tt>if \@bool_1_p\@</tt></td>
+    <td><b><if @bool_1_p@>ok</if>
+           <else>not ok</else></b></td>
+</tr>
+
+
+<tr><td><tt><b>false</b></tt></td>
+    <td><tt>if \@bool_f_p\@ false</tt></td>
+    <td><b><if @bool_f_p@ false>ok</if>
+           <else>not ok</else></b></td>
+</tr>
+
+<tr><td><tt><b>false</b></tt></td>
+    <td><tt>if \@bool_0_p\@ false</tt></td>
+    <td><b><if @bool_0_p@ false>ok</if>
+           <else>not ok</else></b></td>
+</tr>
+
 </table>
+
+</body>
+</html>
Index: openacs-4/packages/acs-templating/www/doc/demo/if.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/www/doc/demo/if.tcl,v
diff -u -r1.1.1.1 -r1.1.1.1.2.1
--- openacs-4/packages/acs-templating/www/doc/demo/if.tcl	13 Mar 2001 22:59:27 -0000	1.1.1.1
+++ openacs-4/packages/acs-templating/www/doc/demo/if.tcl	9 Mar 2002 22:46:44 -0000	1.1.1.1.2.1
@@ -11,3 +11,10 @@
 set n "Fred's Flute"
 
 set z ""
+
+
+set bool_t_p t
+set bool_1_p 1
+
+set bool_f_p f
+set bool_0_p 0