Support for multiple phones.

src/brmember-parser.scm

@@ -48,7 +48,7 @@
 	 cal-day)
 
  ;; Pass 2: known keys
- (define mandatory-keys '(nick name mail phone))
+ (define mandatory-keys '(nick name mail))
  (define optional-keys '(born))
  (define known-multikeys
    '(card desfire
@@ -60,7 +60,8 @@
 	  revisionstart revisionstop
 	  grantstart grantstop
 	  joined destroyed
-	  feestart feestop))
+	  feestart feestop
+	  phone))
  (define ignored-keys '(mail2))
 
  (define known-keys (append mandatory-keys optional-keys))
@@ -139,7 +140,7 @@
 	      (if ok?
 		  mr1
 		  (brmember-add-highlight mr1 line-number msg 3 'error))))
-	   ((card desfire)
+	   ((card desfire phone)
 	    (brmember-sub-set mr output key
 			      (map
 			       (lambda (rec)

src/members-print.scm

@@ -97,7 +97,7 @@
 	  (body (map (lambda (k)
 		       (let ((v (ldict-ref info k)))
 			 (case k
-			   ((card desfire)
+			   ((card desfire phone)
 			    (list k 
 				  (table->string
 				   (map