rt/webrt/Elements/Checkbox

   1 %# $Header: /home/cvs/cvsroot/freeside/rt/webrt/Elements/Attic/Checkbox,v 1.1 2002-08-12 06:17:08 ivan Exp $
   2 <INPUT TYPE="Checkbox" NAME ="<%$Name%>" <%$IsChecked%>>
   3
   4 <%ARGS>
   5 $Name => undef
   6 $Default => undef
   7 $True => undef
   8 $False => undef
   9 $IsChecked => undef
  10 </%ARGS>
  11
  12 <%INIT>
  13 $IsChecked =
  14   ($Default && $Default =~ /checked/i)
  15     ? " CHECKED " : "";
  16 1;
  17 </%INIT>