1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
<& elements/svc_Common.html,
'table' => 'svc_circuit',
'fields' => \@fields,
&>
<%init>
die "access denied"
unless $FS::CurrentUser::CurrentUser->access_right('Provision customer service'); #something else more specific?
my $conf = new FS::Conf;
my $date_format = $conf->config('date_format') || '%m/%d/%Y';
my @fields = (
{ field => 'providernum',
type => 'select-table',
table => 'circuit_provider',
name_col => 'provider',
disable_empty => 1,
},
{ field => 'typenum',
type => 'select-table',
table => 'circuit_type',
name_col => 'typename',
disable_empty => 1,
},
{ field => 'termnum',
type => 'select-table',
table => 'circuit_termination',
name_col => 'termination',
disable_empty => 1,
},
{ field => 'circuit_id',
size => 40,
},
{ field => 'desired_due_date',
type => 'input-date-field',
},
{ field => 'due_date',
type => 'input-date-field',
},
'vendor_order_id',
'vendor_qual_id',
'vendor_order_status',
'endpoint_ip_addr',
{ field => 'endpoint_mac_addr',
type => 'input-mac_addr',
},
{ field => 'internal_circuit_id',
size => 40,
},
);
# needed: a new_callback to migrate vendor quals over to circuits
#my ($svc_new_callback, $svc_edit_callback, $svc_error_callback);
</%init>
|
