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   MobilePBX YMedia
  15 ));
  16
  17 #GIPS Media?
  18
  19 </%once>
  20 <%init>
  21
  22 my %opt = @_;
  23 my $curr_value = $opt{'curr_value'};
  24
  25 $curr_value = { map { $_=>1 } split(/\s+/, $curr_value) }
  26   unless ref($curr_value);
  27
  28 my $callback = sub {
  29   my( $cgi, $name ) = @_;
  30   $curr_value->{$name};
  31 };
  32
  33 </%init>