Added support for part_exports that are used with more than one svcdb.
authorkhoff <khoff>
Fri, 31 May 2002 00:33:39 +0000 (00:33 +0000)
committerkhoff <khoff>
Fri, 31 May 2002 00:33:39 +0000 (00:33 +0000)
httemplate/edit/part_svc.cgi

index f2073f9..36f7641 100755 (executable)
@@ -144,9 +144,11 @@ my %defs = (
       my $columns = 3;
       my $count = 0;
       my @part_export =
-        grep { $layer eq FS::part_export::exporttype2svcdb($_->exporttype) }
-          qsearch( 'part_export', {} );
-      $html .= '<BR><BR>'. table().
+#        grep { $layer eq FS::part_export::exporttype2svcdb($_->exporttype) }
+#          qsearch( 'part_export', {} );
+         map { qsearch( 'part_export', {exporttype => $_ } ) }
+           keys(%{FS::part_export::export_info($layer)});
+     $html .= '<BR><BR>'. table().
                table(). "<TR><TH COLSPAN=$columns>Exports</TH></TR><TR>";
       foreach my $part_export ( @part_export ) {
         $html .= '<TD><INPUT TYPE="checkbox"'.