use FS::Record qw( qsearch qsearchs dbh );
use FS::PagedSearch qw( psearch );
use FS::Msgcat qw(gettext);
+use FS::Password_Mixin; # for pw_set
use FS::part_svc;
use FS::svc_pbx;
use FS::svc_domain;
$me = '[' . __PACKAGE__ . ']';
$DEBUG = 0;
-#avoid l 1 and o O 0
-@pw_set = ( 'a'..'k', 'm','n', 'p-z', 'A'..'N', 'P'..'Z' , '2'..'9' );
-
#ask FS::UID to run this stuff for us later
FS::UID->install_callback( sub {
$conf = new FS::Conf;
$phone_name_max = $conf->config('svc_phone-phone_name-max_length');
$passwordmin = $conf->config('sip_passwordmin') || 0;
$passwordmax = $conf->config('sip_passwordmax') || 80;
+ @pw_set = FS::Password_Mixin->pw_set;
}
);
Optional svcnum from svc_pbx
+=item forward_svcnum
+
+Forward destination, if it's another service. Some exports use this
+configuration.
+
=item forwarddst
-Forwarding destination
+Forwarding destination, if it's not a service.
=item email
See lnp_status. If lnp_status is portin-reject or portout-reject, this is an
optional reject reason.
+=item lnp_portid
+
+Port identifier from porting provider, for checking status
+
+=item lnp_signature
+
+Boolean (empty or `Y') indicating if a signature is required for the port
+
+=item lnp_bill
+
+Boolean (empty or `Y') indicating if a copy of an existing bill is required for
+the port
+
=item e911_class
Class of Service for E911 service (per the NENA 2.1 standard).
},
'circuit_svcnum' => { label => 'Circuit',
type => 'select',
- select_table => 'svc_domain',
+ select_table => 'svc_circuit',
select_key => 'svcnum',
- select_label => 'circuit_label',
+ select_label => 'label',
+ select_allow_empty=> 1,
disable_inventory => 1,
},
'forwarddst' => { label => 'Forward Destination',
%dis2,
},
+ 'forward_svcnum' => { label => 'Route to service',
+ %dis2,
+ },
'email' => { label => 'Email',
%dis2,
},
},
'sip_server' => {
label => 'SIP Host',
- %dis2,
+ disable_inventory => 1,
},
},
};
sub table_dupcheck_fields { ( 'countrycode', 'phonenum' ); }
+sub device_table { 'phone_device'; }
+
=item search_sql STRING
Class method which returns an SQL fragment to search for the given string.
|| $self->ut_alphan('sms_account')
|| $self->ut_numbern('max_simultaneous')
|| $self->ut_foreign_keyn('locationnum', 'cust_location', 'locationnum')
- || $self->ut_numbern('forwarddst')
+ || $self->ut_numbern('forward_svcnum')
+ || $self->ut_foreign_keyn('forward_svcnum', 'cust_svc', 'svcnum')
+ || $self->ut_textn('forwarddst')
|| $self->ut_textn('email')
|| $self->ut_numbern('lrn')
|| $self->ut_numbern('lnp_desired_due_date')
'native', 'portin-reject', 'portout-reject'])
|| $self->ut_enumn('portable', ['','Y'])
|| $self->ut_textn('lnp_reject_reason')
+ || $self->ut_textn('lnp_portid')
+ || $self->ut_enumn('lnp_signature', ['','Y'])
+ || $self->ut_enumn('lnp_bill', ['','Y'])
|| $self->ut_domainn('sip_server')
;
return $error if $error;
}
my $cust_pkg = $self->cust_svc->cust_pkg or return '';
if ( $cust_pkg->contactnum ) {
- return $cust_pkg->contact->firstlast;
+ return $cust_pkg->contact_obj->firstlast;
} else {
return $cust_pkg->cust_main->name_short;
}
=cut
sub psearch_cdrs {
-
my($self, %options) = @_;
+
+ unless ( $options{'billsec_sum'} ) {
+ #fixes a weird sequential scan of the whole cdr table on startdate, but only
+ # for a few charged_party values here and there.
+ # Pg 9.1 only? need to retest on 9.4, 9.6
+ dbh->do('SET enable_indexscan TO OFF');
+ }
+
my @fields;
my %hash;
my @where;