<% include( 'elements/edit.html', 'name' => 'Phone device type', 'table' => 'part_device', 'labels' => { 'devicepart' => 'Part number', 'devicename' => 'Device name', 'inventory_classnum' => 'Inventory class', }, 'fields' => \@fields, 'viewall_dir' => 'browse', 'html_bottom' => $html_bottom_sub, ) %> <%init> die "access denied" unless $FS::CurrentUser::CurrentUser->access_right('Configuration'); my $extra_sql = join( ' OR ', map { "exporttype = '$_'" } keys %{FS::part_export::export_info('part_device')} ); $extra_sql = $extra_sql ? " WHERE ( $extra_sql ) " : " WHERE 0 = 1 "; my @inventory_classnums; push @inventory_classnums, ''; my %inventory_classnum_labels; $inventory_classnum_labels{''} = ''; my @inventory_classes = qsearch('inventory_class', {} ); foreach my $inventory_class ( @inventory_classes ) { push @inventory_classnums, $inventory_class->classnum; $inventory_classnum_labels{$inventory_class->classnum} = $inventory_class->classname; } my @fields; push @fields, 'devicename', { field => 'inventory_classnum', type => 'select', options => \@inventory_classnums, labels => \%inventory_classnum_labels, }; my $html_bottom_sub = sub { my $part_device = shift; '
'. 'Exports
'. ''. '

'. include( '/elements/checkboxes-table.html', 'source_obj' => $part_device, 'link_table' => 'export_device', 'target_table' => 'part_export', 'extra_sql' => $extra_sql, 'name_callback' => sub { my $o = shift; $o->exporttype. ' to '. $o->machine; }, ). '

'; };