X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=scheme%2Fgnet-partslistgag.scm;h=5fc16bbd140323ef009d8de41071d4e06ea62277;hb=7b3be4d5615ab665bb5cccff4ff066a74abc9750;hp=01b71e369960268734b23bdd03d2196f11cc3434;hpb=a66fdab05f66acf943d1c3e080b4ab84c9120399;p=hw%2Faltusmetrum

diff --git a/scheme/gnet-partslistgag.scm b/scheme/gnet-partslistgag.scm
index 01b71e3..5fc16bb 100644
--- a/scheme/gnet-partslistgag.scm
+++ b/scheme/gnet-partslistgag.scm
@@ -48,6 +48,9 @@
 			(get-value package)  
 			(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
 		  (get-parts-table (cdr packages)))))))
@@ -55,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))))
@@ -100,13 +103,13 @@
 
 (define partslistgag:write-top-header
   (lambda (port)
-    (display "\"device\",\"value\",\"footprint\",\"loadstatus\",\"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