1 <% include( 'elements/edit.html',
3 { field => 'vendornum',
4 type => 'select-table',
5 name_col => 'vendorname',
9 { field => 'vendor_order_id',
12 { field => 'confirmed',
16 { type => 'tablebreak-tr-title',
17 value => 'Order Items',
19 { 'field' => 'orderitemnum',
20 'type' => 'did_order_item',
21 'o2m_table' => 'did_order_item',
23 'm2_error_callback' => $m2_error_callback,
26 #{ field => 'latanum',
27 # type => 'select-table',
28 # name_col => 'description',
35 # type => 'select-state',
41 'ordernum' => 'Order',
42 'vendornum' => 'Vendor',
43 'vendor_order_id' => 'Vendor Order #',
44 'custnum' => 'Customer',
47 #'rate_center' => 'Rate Center',
49 #'quantity' => 'Quantity',
50 'confirmed' => 'Confirmation Date',
51 'orderitemnum' => 'Item',
53 'viewall_dir' => 'browse',
54 'table' => 'did_order',
55 'name' => 'Bulk DID Order',
56 'field_callback' => $field_callback,
63 unless $FS::CurrentUser::CurrentUser->access_right('Import');
66 my $field_callback = sub {
67 my ($cgi, $object, $field_hashref ) = @_;
68 if ($object->ordernum) {
69 $field_hashref->{type} = 'text'
70 if $field_hashref->{field} eq 'vendor_order_id';
71 $field_hashref->{type} = 'input-date-field'
72 if $field_hashref->{field} eq 'confirmed';
76 my $m2_error_callback = sub {
77 my($cgi, $object) = @_;
79 #process_o2m fields in process/did_order.html
80 my @fields = qw( msa npa latanum rate_center state quantity );
81 my @gfields = ( '', map "_$_", @fields );
84 if ( /^orderitemnum(\d+)$/ ) {
86 if ( grep $cgi->param("orderitemnum$num$_"), @gfields ) {
87 my $x = new FS::did_order_item {
88 'orderitemnum' => scalar($cgi->param("orderitemnum$num")),
89 map { $_ => scalar($cgi->param("orderitemnum${num}_$_")) } @fields,