1 files changed, 65 insertions, 0 deletions
diff --git a/httemplate/edit/part_device.html b/httemplate/edit/part_device.html
new file mode 100644
index 000000000..1317c8d1c
--- /dev/null
+++ b/httemplate/edit/part_device.html
@@ -0,0 +1,65 @@
+<% 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;
+
+  '<BR>'.
+  '<FONT SIZE="+1">Exports</FONT><BR>'.
+
+  '<TABLE BGCOLOR="#cccccc" WIDTH=100%>'.
+  '<TR><TD>'.
+  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;
+                                    },
+         ).
+  '</TD></TR></TABLE>';
+
+};
+
+</%init>
+