% if ( length($number) ) { <% $number %> % if ( $opt{'callable'} && $curuser->option('vonage-username') ) { % } % % } else { % } <%init> my( $number, %opt ) = @_; ( my $snumber = $number ) =~ s/\D//g; my $curuser = $FS::CurrentUser::CurrentUser; ( my $vonage_number = $curuser->option('vonage-fromnumber') ) =~ s/\D//g; $vonage_number =~ /^1/ or $vonage_number = "1$vonage_number"; %init>