(FILECREATED " 2-Sep-86 00:38:00" {QV}<NOTECARDS>1.3K>NEXT>FGHPATCH104.;1
 1397   

      changes to:  (VARS FGHPATCH104COMS))


(* Copyright (c) 1986 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT FGHPATCH104COMS)

(RPAQQ FGHPATCH104COMS
 ((* * Fix to DisplayedInMenu flg for card types. Menu maker now knows about 
			     \\EMPTY// slots.)
			  (FNS NC.ListOfCardTypes)))
(* * Fix to DisplayedInMenu flg for card types. Menu maker now knows about \\EMPTY// slots.)


(DEFINEQ

(NC.ListOfCardTypes

  (LAMBDA (ForMenuFlg)                                       (* fgh: " 2-Sep-86 00:30")


          (* * Return a list of the note card types)




          (* * Special processing for older types to make them not all caps.)




          (* * fgh 1/31/86 Updated to handle card type Hash array.)




          (* * fgh 9/1/86 Updated to handle \\EMPTY// slots in CardType defns.)



    (
SORT
 (LET (CollectLst)
	         (
MAPHASH
 NC.CardTypes (
FUNCTION
 (LAMBDA (TypeRecord TypeName)
				(if
 (
OR
 (
NULL
 ForMenuFlg)
					    (
EQ
 (fetch
 (NoteCardType DisplayedInMenuFlg)
						     of
 TypeRecord)
						  T))
				    then
 (push
 CollectLst (fetch
 (NoteCardType TypeName)
								 of
 TypeRecord))))))
	     CollectLst))))
)
(PUTPROPS FGHPATCH104 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (496 1315 (NC.ListOfCardTypes 506 . 1313)))))
STOP