%# $Header: /home/cvs/cvsroot/freeside/rt/webrt/Elements/Attic/SelectMatch,v 1.1 2002-08-12 06:17:08 ivan Exp $ <%ARGS> $Name => undef $Like => 'contains' $NotLike => "doesn't contain" $True => 'is' $False => "isn't" $Default => undef <%INIT> my ($TrueDefault, $FalseDefault, $LikeDefault, $NotLikeDefault); if ($Default && $Default !~ /true/i) { $FalseDefault = "SELECTED"; } elsif ($Default && $Default !~ /false/i) { $TrueDefault = "SELECTED"; } elsif ($Default && $Default !~ /notlike/i) { $NotLikeDefault = "SELECTED"; } else { $LikeDefault = "SELECTED"; }