Card alias parsing.

member-parser.scm

@@ -40,7 +40,8 @@
 	 testing
 	 dictionary
 	 month
-	 period)
+	 period
+	 utils)
 
  ;; Pass 2: known keys and multikeys
  (define member-schema-known-keys '(nick mail phone name born joined destroyed))
@@ -88,6 +89,15 @@
 		  (member-record-add-highlight mr1 line-number msg 3 'error))))
 	   ((joined)
 	    (member-record-sub-set mr output key (string->month (car value))))
+	   ((card desfire)
+	    (member-record-sub-set mr output key
+				   (map
+				    (lambda (rec)
+				      (string-first+rest (car rec)))
+				    value)))
+	   ((credit)
+	    ;; TODO
+	    mr)
 	   (else
 	    (member-record-sub-set mr output key (car value))))))))