From 690f020eb7e2af7112793747f45b488aa0e24e03 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Sun, 21 Feb 2010 03:16:05 +0000
Subject: communigate, RT#7083

---
 .../elements/communigate_pro-accessmodes.html      | 30 ++++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100644 httemplate/elements/communigate_pro-accessmodes.html

(limited to 'httemplate/elements')

diff --git a/httemplate/elements/communigate_pro-accessmodes.html b/httemplate/elements/communigate_pro-accessmodes.html
new file mode 100644
index 000000000..6ce9ca587
--- /dev/null
+++ b/httemplate/elements/communigate_pro-accessmodes.html
@@ -0,0 +1,30 @@
+<% include( 'checkboxes.html',
+              'element_name_prefix' => 'cgp_accessmodes_',
+              'names_list'          => \@names,
+              'checked_callback'    => $callback,
+              %opt,
+          )
+%>
+<%once>
+
+my @names = (qw(
+  Mail Relay Signal Mobile TLS POP IMAP MAPI
+  AirSync SIP XMPP WebMail XIMSS FTP ACAP PWD
+  LDAP RADIUS S/MIME WebCAL WebSite PBX HTTP
+));
+
+</%once>
+<%init>
+
+my %opt = @_;
+my $curr_value = $opt{'curr_value'};
+
+$curr_value = { map { $_=>1 } split(/\s+/, $curr_value) }
+  unless ref($curr_value);
+
+my $callback = sub {
+  my( $cgi, $name ) = @_;
+  $curr_value->{$name};
+};
+
+</%init>
-- 
cgit v1.2.1