Forum OpenACS Development: Re: 'in' operator in if tag seems messed up.

Collapse
4: Re: 'in' operator in if tag seems messed up. (response to 3)
Posted by Dan Wickstrom on 02/13/03 06:50 PM
Sorry about that, I confused perl's re flavor with tcl's. For tcl you need to use \m and \M. Something like the following should work: 

in { 
    set expr "\\m([join [lrange $args $i end] "|"]\\M"
    append condition "\[regexp \"$expr\" $arg1\] " 
    set next [llength $args]
}
Collapse
5: Re: 'in' operator in if tag seems messed up. (response to 4)
Posted by Dan Wickstrom on 02/13/03 06:52 PM
There should have been a close parenthesis:

set expr "\\m([join [lrange $args $i end] "|"])\\M"