X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Felements%2Fphonenumber.html;h=2df57021ecfb6a3c00be8fa49fd56f872c9a350a;hp=1330ca109abba04a675ea18803b9bba9b2b5a26f;hb=37e92c220a54636ebc7900cd59ec6ce56790ede8;hpb=e9b7648aa4f838e45de95128dc22053aa8eafdb4 diff --git a/httemplate/elements/phonenumber.html b/httemplate/elements/phonenumber.html index 1330ca109..2df57021e 100644 --- a/httemplate/elements/phonenumber.html +++ b/httemplate/elements/phonenumber.html @@ -1,23 +1,85 @@ -<% - my( $number, %opt ) = @_; - my $conf = new FS::Conf; - ( my $snumber = $number ) =~ s/\D//g; -%> - - - - -<% if ( length($number) ) { %> - <%= $number %> - <% if ( $opt{'callable'} && $conf->config('vonage-username') ) { %> - Call this number - <% } %> -<% } else { %> +<% 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', + 'html_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, +%# ) +%# %> + + <<% $img %>> + + + + +% } +% +% } +% +% if ( $opt{'calling_list_exempt'} ) { + - calling list exempt +% } +% +% } 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"); + +