httemplate/elements/communigate_pro-accessmodes.html

   1 <% include( 'checkboxes.html',
   2               'element_name_prefix' => 'cgp_accessmodes_',
   3               'names_list'          => \@names,
   4               'checked_callback'    => $callback,
   5               %opt,
   6           )
   7 %>
   8 <%once>
   9
  10 my @names = (qw(
  11   Mail Relay Signal Mobile TLS POP IMAP MAPI
  12   AirSync SIP XMPP WebMail XIMSS FTP ACAP PWD
  13   LDAP RADIUS S/MIME WebCAL WebSite PBX HTTP
  14 ));
  15
  16 </%once>
  17 <%init>
  18
  19 my %opt = @_;
  20 my $curr_value = $opt{'curr_value'};
  21
  22 $curr_value = { map { $_=>1 } split(/\s+/, $curr_value) }
  23   unless ref($curr_value);
  24
  25 my $callback = sub {
  26   my( $cgi, $name ) = @_;
  27   $curr_value->{$name};
  28 };
  29
  30 </%init>