use FS::Record qw(qsearch qsearchs dbh);
use FS::Msgcat qw(gettext);
use FS::Misc qw(card_types);
+use FS::Misc::DateTime qw(parse_datetime);
use FS::ClientAPI_SessionCache;
use FS::svc_acct;
use FS::svc_domain;
'wholesale_view' => 1,
'login_svcpart' => [ $conf->config('selfservice_server-login_svcpart') ],
'date_format' => $conf->config('date_format') || '%m/%d/%Y',
+ 'lnp' => $conf->exists('svc_phone-lnp'),
};
}
sub provision_phone {
my $p = shift;
- my @bulkdid = @{$p->{'bulkdid'}};
+ my @bulkdid;
+ @bulkdid = @{$p->{'bulkdid'}} if $p->{'bulkdid'};
+
+# single DID LNP
+ unless($p->{'lnp'}) {
+ $p->{'lnp_desired_due_date'} = parse_datetime($p->{'lnp_desired_due_date'});
+ $p->{'lnp_status'} = "portingin";
+ return _provision( 'FS::svc_phone',
+ [qw(lnp_desired_due_date lnp_other_provider
+ lnp_other_provider_account phonenum countrycode lnp_status)],
+ [qw(phonenum countrycode)],
+ $p,
+ @_
+ );
+ }
+
+# single DID order
unless (scalar(@bulkdid)) {
return _provision( 'FS::svc_phone',
[qw(phonenum countrycode)],
);
}
-# bulk case
+# bulk DID order case
my $error;
foreach my $did ( @bulkdid ) {
$did =~ s/[^0-9]//g;
'description' => 'Maximum length of the phone service "Name" field (svc_phone.phone_name). Sometimes useful to limit this (to 15?) when exporting as Caller ID data.',
'type' => 'text',
},
+
+ {
+ 'key' => 'svc_phone-lnp',
+ 'section' => '',
+ 'description' => 'Enables Number Portability features for svc_phone',
+ 'type' => 'checkbox',
+ },
{
'key' => 'default_phone_countrycode',
return "Illegal (enum) field $field: ". $self->getfield($field);
}
+=item ut_enumn COLUMN CHOICES_ARRAYREF
+
+Like ut_enum, except the null value is also allowed.
+
+=cut
+
+sub ut_enumn {
+ my( $self, $field, $choices ) = @_;
+ $self->getfield($field)
+ ? $self->ut_enum($field, $choices)
+ : '';
+}
+
+
=item ut_foreign_key COLUMN FOREIGN_TABLE FOREIGN_COLUMN
Check/untaint a foreign column key. Call a regular ut_ method (like ut_number)
'pbxsvc', 'int', 'NULL', '', '', '',
'domsvc', 'int', 'NULL', '', '', '',
'locationnum', 'int', 'NULL', '', '', '',
+ 'lnp_status', 'varchar', 'NULL', $char_d, '', '',
+ 'portable', 'char', 'NULL', 1, '', '',
+ 'lrn', 'char', 'NULL', 10, '', '',
+ 'lnp_desired_due_date', 'int', 'NULL', '', '', '',
+ 'lnp_due_date', 'int', 'NULL', '', '', '',
+ 'lnp_other_provider', 'varchar', 'NULL', $char_d, '', '',
+ 'lnp_other_provider_account', 'varchar', 'NULL', $char_d, '', '',
],
'primary_key' => 'svcnum',
'unique' => [],
# the new method can be inherited from FS::Record, if a table method is defined
#
sub table_info {
+ my %dis2 = ( disable_inventory=>1, disable_select=>1 );
{
'name' => 'Phone number',
'sorts' => 'phonenum',
disable_inventory => 1,
disable_select => 1,
},
+ 'lnp_status' => { label => 'LNP Status',
+ type => 'select-lnp_status.html',
+ %dis2,
+ },
+ 'portable' => { label => 'Portable?', %dis2, },
+ 'lrn' => { label => 'LRN',
+ disable_inventory => 1,
+ },
+ 'lnp_desired_due_date' =>
+ { label => 'LNP Desired Due Date', %dis2 },
+ 'lnp_due_date' =>
+ { label => 'LNP Due Date', %dis2 },
+ 'lnp_other_provider' =>
+ { label => 'LNP Other Provider',
+ disable_inventory => 1,
+ },
+ 'lnp_other_provider_account' =>
+ { label => 'LNP Other Provider Account #',
+ %dis2
+ },
},
};
}
|| $self->ut_foreign_keyn('pbxsvc', 'svc_pbx', 'svcnum' )
|| $self->ut_foreign_keyn('domsvc', 'svc_domain', 'svcnum' )
|| $self->ut_foreign_keyn('locationnum', 'cust_location', 'locationnum')
+ || $self->ut_numbern('lrn')
+ || $self->ut_numbern('lnp_desired_due_date')
+ || $self->ut_numbern('lnp_due_date')
+ || $self->ut_textn('lnp_other_provider')
+ || $self->ut_textn('lnp_other_provider_account')
+ || $self->ut_enumn('lnp_status', ['','portingin','portingout','portedin','native'])
+ || $self->ut_enumn('portable', ['','Y'])
;
return $error if $error;
-<%= $url = "$selfurl?session=$session_id;action="; ''; %>
-<%= include('header', 'Setup phone number') %>
+<%= $url = "$selfurl?session=$session_id;action=";
+ $heading2 = $lnp ? "Port-In Number" : "Setup phone number";
+ '';
+%>
+<%= include('header', $heading2) %>
<%=
+
+sub lnp_textfield {
+ my ($name,$label) = (shift,shift);
+ qq!<tr><td>$label</td><td><input type="text" name="$name"></td></tr>!;
+}
+
if($error) {
$OUT .= qq!<div style="color:red; font-size: 115%">$error</div>!;
}
<INPUT TYPE="hidden" NAME="pkgnum" VALUE="<%= $pkgnum %>">
<INPUT TYPE="hidden" NAME="svcpart" VALUE="<%= $svcpart %>">
<INPUT TYPE="hidden" NAME="numavail" VALUE="<%= $numavail %>">
-<%= didselector('field' => 'phonenum',
+<%=
+if($lnp) {
+ $OUT .= "<table>"
+ . qq!<input type="hidden" name="lnp" value="1">!
+ . lnp_textfield(phonenum,"Phone Number")
+ . lnp_textfield("lnp_desired_due_date","Requested Port-In Date")
+ . lnp_textfield("lnp_other_provider","Current Provider")
+ . lnp_textfield("lnp_other_provider_account","Current Provider's Account #")
+ . "</table>";
+} else {
+ didselector('field' => 'phonenum',
'svcpart' => $svcpart,
'bulknum' => $numavail,
);
+}
%>
<BR><BR><INPUT TYPE="submit" VALUE="Setup">
</FORM>
$action .= "_$1";
$result->{'numavail'} = $cgi->param('numavail');
+ $result->{'lnp'} = $cgi->param('lnp');
$result;
}
sub process_svc_phone {
my @bulkdid = $cgi->param('bulkdid');
my $phonenum = $cgi->param('phonenum');
-
- my $result = provision_phone (
- 'session_id' => $session_id,
- 'bulkdid' => [ @bulkdid ],
- 'countrycode' => '1',
- map { $_ => $cgi->param($_) } qw( pkgnum svcpart phonenum )
- );
+ my $lnp = $cgi->param('lnp');
+
+ my $result;
+ if($lnp) {
+ $result = provision_phone (
+ 'session_id' => $session_id,
+ 'countrycode' => '1',
+ map { $_ => $cgi->param($_) } qw( pkgnum svcpart phonenum
+ lnp_desired_due_date lnp_other_provider
+ lnp_other_provider_account )
+ );
+ } else {
+ $result = provision_phone (
+ 'session_id' => $session_id,
+ 'bulkdid' => [ @bulkdid ],
+ 'countrycode' => '1',
+ map { $_ => $cgi->param($_) } qw( pkgnum svcpart phonenum )
+ );
+ }
if ( exists $result->{'error'} && $result->{'error'} ) {
$action = 'provision_svc_phone';
. qq!$part_svc->{'svc'}</A> ($part_svc->{'num_avail'}!
. qq! available)<BR><BR>!;
$OUT .= $link if $part_svc->{'can_get_dids'};
+
+ if($part_svc->{'svcdb'} eq 'svc_phone' && $lnp) {
+ $OUT .= qq!<A HREF="${url}provision_svc;lnp=1;!
+ . qq!pkgnum=$pkg->{'pkgnum'};svcpart=$part_svc->{'svcpart'}!
+ . qq!">Port-In $part_svc->{'svc'}</A>!;
+ }
}
$OUT .= "</TD></TR>";
% %include_common,
% %opt,
% );
+%
+% if ( $include eq 'tr-input-date-field' ) {
+% # it's either hacking it here, or changing a lot more stuff
+% @include = (
+% "/elements/$include.html", {
+% 'name' => $field,
+% 'value' => $opt{curr_value},
+% 'label' => $label,
+% 'noinit' => $f->{noinit},
+% }
+% );
+% }
+%
% @include;
% };
%
% 'multiple' => ($flag eq 'S'),
% );
%
+% } elsif ( $def->{type} eq 'select-lnp_status.html' ) {
+%
+% $html .= include('/elements/select-lnp_status.html',
+% 'curr_value' => $value,
+% 'element_name' => "${layer}__${field}",
+% 'element_etc' => $disabled,
+% 'multiple' => ($flag eq 'S'),
+% );
+%
% } elsif ( $def->{type} eq 'radius_usergroup_selector' ) {
%
% #XXX disable the RADIUS usergroup selector? ugh it sure does need
<% include( 'elements/svc_Common.html',
'table' => 'svc_phone',
'args_callback' => $args_callback,
+ 'value_callback' => $value_callback,
)
%>
<%init>
};
-
+my $value_callback = sub {
+ my ($field, $value) = @_;
+ ($field =~ /_date$/) ? parse_datetime($value) : $value;
+};
</%init>
<% include( 'elements/svc_Common.html',
'table' => 'svc_phone',
'fields' => \@fields,
- 'labels' => {
- 'svcnum' => 'Service',
- 'countrycode' => 'Country code',
- 'phonenum' => 'Phone number',
- 'domsvc' => 'Domain',
- 'sip_password' => 'SIP password',
- 'pin' => 'Voicemail PIN',
- 'phone_name' => 'Name',
- 'pbxsvc' => 'PBX',
- 'locationnum' => 'E911 location',
- },
'svc_new_callback' => sub {
my( $cgi, $svc_x, $part_svc, $cust_pkg, $fields, $opt ) = @_;
$svc_x->locationnum($cust_pkg->locationnum) if $cust_pkg;
{ field => 'custnum', type=> 'hidden' }, #for new cust_locations
;
+if ( $conf->exists('svc_phone-lnp') ) {
+ push @fields,
+ { value => 'Number Portability',
+ type => 'tablebreak-tr-title',
+ colspan => 7,
+ },
+ { field => 'lnp_status',
+ type => 'select-lnp_status',
+ },
+ { field => 'portable',
+ type => 'checkbox',
+ },
+ 'lrn',
+ { field => 'lnp_desired_due_date',
+ type => 'input-date-field',
+ },
+ { field => 'lnp_due_date',
+ type => 'input-date-field',
+ noinit => 1,
+ },
+ 'lnp_other_provider',
+ 'lnp_other_provider_account',
+;
+}
</%init>
--- /dev/null
+<SELECT NAME = "<% $opt{'element_name'} || $opt{'field'} || 'lnp_status' %>"
+ <% $opt{'element_etc'} %>
+>
+% unless ( $opt{'disable_empty'} ) {
+ <OPTION VALUE=""><% $opt{'empty_label'} || '' %></OPTION>
+% }
+% foreach my $selopt ( keys %seloptions ) {
+% my $selected = ($selopt eq $opt{'curr_value'}) ? 'SELECTED' : '';
+ <OPTION VALUE="<%$selopt%>" <% $selected %>><% $seloptions{$selopt} %></OPTION>
+% }
+</SELECT>
+<%init>
+
+my %opt = @_;
+
+my %seloptions = (
+ 'native' => 'Native',
+ 'portedin' => 'Ported In',
+ 'portingin' => 'Porting In',
+ 'portingout' => 'Porting Out',
+ );
+</%init>
-
+% unless ( $noinit ) {
<LINK REL="stylesheet" TYPE="text/css" HREF="<%$fsurl%>elements/calendar-win2k-2.css" TITLE="win2k-2">
<SCRIPT TYPE="text/javascript" SRC="<%$fsurl%>elements/calendar_stripped.js"></SCRIPT>
<SCRIPT TYPE="text/javascript" SRC="<%$fsurl%>elements/calendar-en.js"></SCRIPT>
<SCRIPT TYPE="text/javascript" SRC="<%$fsurl%>elements/calendar-setup.js"></SCRIPT>
+% }
<TR>
<TD ALIGN="right"><% $label %></TD>
<%init>
-my($name, $value, $label, $format, $usedatetime);
+my($name, $value, $label, $format, $usedatetime, $noinit);
if ( ref($_[0]) ) {
my $opt = shift;
$name = $opt->{'name'};
$label = $opt->{'label'};
$format = $opt->{'format'};
$usedatetime = $opt->{'usedatetime'};
+ $noinit = $opt->{'noinit'};
} else {
($name, $value, $label, $format, $usedatetime) = @_;
}
--- /dev/null
+ <TR>
+ <TD ALIGN="right"><% $opt{'label'} || 'LNP Status' %></TD>
+ <TD>
+ <% include('/elements/select-lnp_status.html',
+ 'curr_value' => $opt{'curr_value'},
+ )
+ %>
+ </TD>
+ </TR>
+<%init>
+
+my %opt = @_;
+
+</%init>
<% include('elements/svc_Common.html',
'table' => 'svc_phone',
'fields' => \@fields,
- 'labels' => {
- 'countrycode' => 'Country code',
- 'phonenum' => 'Phone number',
- 'domain' => 'Domain',
- 'pbx_title' => 'PBX',
- 'sip_password' => 'SIP password',
- 'pin' => 'PIN',
- 'phone_name' => 'Name',
- },
+ 'labels' => \%labels,
'html_foot' => $html_foot,
)
%>
my $conf = new FS::Conf;
my $countrydefault = $conf->config('countrydefault') || 'US';
+my $fields = FS::svc_phone->table_info->{'fields'};
+my %labels = map { $_ => ( ref($fields->{$_})
+ ? $fields->{$_}{'label'}
+ : $fields->{$_}
+ );
+ } keys %$fields;
+
my @fields = qw( countrycode phonenum );
push @fields, 'domain' if $conf->exists('svc_phone-domain');
push @fields, qw( pbx_title sip_password pin phone_name );
+if ( $conf->exists('svc_phone-lnp') ) {
+push @fields, 'lnp_status',
+ { field => 'portable', type => 'checkbox', },
+ 'lrn',
+ { field => 'lnp_desired_due_date', type => 'date', },
+ { field => 'lnp_due_date', type => 'date', },
+ 'lnp_other_provider',
+ 'lnp_other_provider_account';
+}
+
my $html_foot = sub {
my $svc_phone = shift;
projects / freeside.git / commitdiff