X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=scheme%2Fgnet-partslistgag.scm;h=5fc16bbd140323ef009d8de41071d4e06ea62277;hb=0649644926f77d781ee67f8501aff1937e5776d7;hp=42b24d65b2a9b9e841e5d7e4de496e06284603fa;hpb=73480b04a4130e83607cfd2d883c74c8e334611b;p=hw%2Faltusmetrum

diff --git a/scheme/gnet-partslistgag.scm b/scheme/gnet-partslistgag.scm
index 42b24d6..5fc16bb 100644
--- a/scheme/gnet-partslistgag.scm
+++ b/scheme/gnet-partslistgag.scm
@@ -49,6 +49,7 @@
 			(gnetlist:get-package-attribute package "footprint")
 			(gnetlist:get-package-attribute package "loadstatus")
 			(gnetlist:get-package-attribute package "provided")
+			(gnetlist:get-package-attribute package "mfg")
 			(gnetlist:get-package-attribute package "mfg_part_number")
 			(gnetlist:get-package-attribute package "vendor")
 			(gnetlist:get-package-attribute package "vendor_part_number")) ;; sdb change
@@ -57,7 +58,7 @@
 (define (write-one-row ls separator end-char port)
   (if (null? ls)
       '()
-      (begin (display "\"" port)
+      (begin (display "" port)
 	     (display (car ls) port)
 	     (for-each (lambda (st) (display separator port)(display st port)) (cdr ls))
 	     (display end-char port))))
@@ -102,13 +103,13 @@
 
 (define partslistgag:write-top-header
   (lambda (port)
-    (display "\"device\",\"value\",\"footprint\",\"loadstatus\",\"provided\",\"mfg_part_number\",\"vendor\",\"vendor_part_number\",\"quantity\",\"refdes\"\n" port)))
+    (display "device,value,footprint,loadstatus,provided,mfg,mfg_part_number,vendor,vendor_part_number,quantity,refdes\n" port)))
 
 (define (partslistgag:write-partslist ls port)
   (if (null? ls)
       '()
-      (begin (write-one-row (cdar ls) "\",\"" "\"," port)
-	     (write-one-row (caar ls) " " "\"\n" port)
+      (begin (write-one-row (cdar ls) "," "," port)
+	     (write-one-row (caar ls) " " "\n" port)
 	     (partslistgag:write-partslist (cdr ls) port))))
 
 (define partslistgag:write-bottom-footer