diff options
Diffstat (limited to 'httemplate/elements/phonenumber.html')
-rw-r--r-- | httemplate/elements/phonenumber.html | 81 |
1 files changed, 0 insertions, 81 deletions
diff --git a/httemplate/elements/phonenumber.html b/httemplate/elements/phonenumber.html deleted file mode 100644 index 854f5846d..000000000 --- a/httemplate/elements/phonenumber.html +++ /dev/null @@ -1,81 +0,0 @@ -<% include('/elements/init_overlib.html') %> - -% if ( length($number) ) { - - <% $number %> - -% if ( $opt{'callable'} ) { -% -% if ( $curuser->option('vonage-username') ) { -% -% (my $vonage_number = $curuser->option('vonage-fromnumber')) =~ s/\D//g; -% $vonage_number =~ /^1/ or $vonage_number = "1$vonage_number"; - - <% include('/elements/popup_link.html', - 'action' => - 'https://secure.click2callu.com/tpcc/makecall'. - '?username='. uri_escape($curuser->option('vonage-username')). - '&password='. uri_escape($curuser->option('vonage-password')). - "&fromnumber=$vonage_number". - "&tonumber=$snumber", - 'width' => 240, - 'height' => 64, - 'actionlabel' => 'Initiating call', - 'label' => "<$img>", - ) - %> - -% } elsif ( $curuser->option('snom-ip') ) { -% -% my $host = $curuser->option('snom-ip'); -% if ( $curuser->option('snom-username') ) { -% my $userpass = uri_escape($curuser->option('snom-username')); -% $userpass .= ':'. uri_escape($curuser->option('snom-password')) -% if $curuser->option('snom-password'); -% $host = $userpass.'@'.$host; -% } -% -% $snumber = "1$snumber" unless $snumber =~ /~1/; #NANPA-centric - -%# <% include('/elements/popup_link.html', -%# 'action' => "http://$host/command.htm?number=$snumber", -%# %link_common, -%# ) -%# %> - - <A HREF="javascript:snom_call(<%$snumber%>)"><<% $img %>></A> - - <SCRIPT TYPE="text/javascript"> - function snom_call(number) { - - var url = '<% "http://$host/command.htm?number=" %>'; - url = url + number; - - var xmlhttp = new XMLHttpRequest(); - xmlhttp.open('GET', url, true); - xmlhttp.send(null); - - } - - </SCRIPT> - - -% } -% -% } -% -% } else { - - - -% } -<%init> - -my( $number, %opt ) = @_; -( my $snumber = $number ) =~ s/\D//g; - -my $curuser = $FS::CurrentUser::CurrentUser; - -my $img = qq(IMG SRC="${fsurl}images/red_telephone_mimooh_01.png" BORDER=0 ALT="Call this number"); - -</%init> |