diff options
author | cvs2git <cvs2git> | 2010-12-27 00:04:45 +0000 |
---|---|---|
committer | cvs2git <cvs2git> | 2010-12-27 00:04:45 +0000 |
commit | c82d349f864e6bd9f96fd1156903bc1f7193a203 (patch) | |
tree | e117a87533656110b6acd56fc0ca64289892a9f5 /httemplate/edit/svc_phone.cgi | |
parent | 74e058c8a010ef6feb539248a550d0bb169c1e94 (diff) |
This commit was manufactured by cvs2svn to create tag 'TORRUS_1_0_9'.TORRUS_1_0_9
Diffstat (limited to 'httemplate/edit/svc_phone.cgi')
-rw-r--r-- | httemplate/edit/svc_phone.cgi | 90 |
1 files changed, 0 insertions, 90 deletions
diff --git a/httemplate/edit/svc_phone.cgi b/httemplate/edit/svc_phone.cgi deleted file mode 100644 index 6482165dc..000000000 --- a/httemplate/edit/svc_phone.cgi +++ /dev/null @@ -1,90 +0,0 @@ -<% include( 'elements/svc_Common.html', - 'table' => 'svc_phone', - 'fields' => \@fields, - 'svc_new_callback' => sub { - my( $cgi, $svc_x, $part_svc, $cust_pkg, $fields, $opt ) = @_; - $svc_x->locationnum($cust_pkg->locationnum) if $cust_pkg; - }, - ) -%> -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('Provision customer service'); #something else more specific? - -my $conf = new FS::Conf; - -my @fields = ( 'countrycode', - { field => 'phonenum', - type => 'select-did', - label => 'Phone number', - }, - ); - -push @fields, { field => 'domsvc', - type => 'select-svc-domain', - label => 'Domain', - } - if $conf->exists('svc_phone-domain'); - -push @fields, { field => 'pbxsvc', - type => 'select-svc_pbx', - label => 'PBX', - }, - 'sip_password', - 'pin', - { field => 'phone_name', - type => 'text', - maxlength => $conf->config('svc_phone-phone_name-max_length'), - }, - - { value => 'E911 Information', - type => 'tablebreak-tr-title', - colspan => 7, - }, - { field => 'locationnum', - type => 'select-cust_location', - label => 'E911 location', - include_opt_callback => sub { - my $svc_phone = shift; - my $pkgnum = $svc_phone->get('pkgnum') - || $cgi->param('pkgnum') - || $svc_phone->cust_svc->pkgnum; #hua? - #cross agent location exposure? sheesh - my $cust_pkg = qsearchs('cust_pkg', {'pkgnum' => $pkgnum}); - my $cust_main = $cust_pkg ? $cust_pkg->cust_main : ''; - ( 'no_bold' => 1, - 'cust_pkg' => $cust_pkg, - 'cust_main' => $cust_main, - ); - }, - }, - { 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> |