This commit was generated by cvs2svn to compensate for changes in r8593,
[freeside.git] / httemplate / elements / phonenumber.html
1 <% include('/elements/init_overlib.html') %>
2
3 % if ( length($number) ) { 
4
5     <% $number %>
6
7 %   if ( $opt{'callable'} && $curuser->option('vonage-username') ) { 
8
9       <% include('/elements/popup_link.html',
10            'action'      =>
11              'https://secure.click2callu.com/tpcc/makecall'.
12              '?username='. uri_escape($curuser->option('vonage-username')).
13              '&password='. uri_escape($curuser->option('vonage-password')).
14              "&fromnumber=$vonage_number".
15              "&tonumber=$snumber",
16            'width'       => 240,
17            'height'      => 64,
18            'actionlabel' => 'Initiating call',
19            'label'       => qq!<IMG SRC="${fsurl}images/red_telephone_mimooh_01.png" BORDER=0 ALT="Call this number">!,
20          )
21       %>
22
23 %   } 
24 %
25 % } else { 
26
27   &nbsp;
28
29 % } 
30 <%init>
31
32 my( $number, %opt ) = @_;
33 ( my $snumber = $number ) =~ s/\D//g;
34
35 my $curuser = $FS::CurrentUser::CurrentUser;
36
37 ( my $vonage_number = $curuser->option('vonage-fromnumber') ) =~ s/\D//g;
38 $vonage_number =~ /^1/ or $vonage_number = "1$vonage_number";
39
40 </%init>