(FILECREATED "30-May-87 15:56:37" {QV}<NOTECARDS>1.3K>NEXT>RHTPATCH271.;1
 2888   

      changes to:  (VARS RHTPATCH271COMS)
		   (FNS NC.GetType))


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

(PRETTYCOMPRINT RHTPATCH271COMS)

(RPAQQ RHTPATCH271COMS
 ((* * Fixes NC.GetType so that it only goes to the notefile for cards with 
			     ACTIVE status that aren't brand new.)
			  (* * Change to NCDATABASE)
			  (FNS NC.GetType)))
(* * Fixes NC.GetType so that it only goes to the notefile for cards with ACTIVE status that 
aren't brand new.)


(* * Change to NCDATABASE)


(DEFINEQ

(NC.GetType

  (LAMBDA (Card)                                             (* rht: "30-May-87 15:55")

                                                             (* Retrieve the NoteCardType of card specified by 

							     NoteCardID from the database specified by 

							     DatabaseStream)


          (* * rht 1/31/85: Now reads pointers from index array rather than file.)




          (* * rht 7/9/85: Now gets date if notefile has newer data format.)




          (* * kirk 10/18/85; Now returns NIL if status not ACTIVE)




          (* * fkr 10/29/85: Fixed to use new numeric ID format. Also added NC.SetTitle call.)




          (* * rht 11/10/85 Updated to handle new Card scheme and NoteFile objects.)




          (* * fgh 11/20/85 Added call to NC.ReadCardPartHeader)




          (* * rht 1/23/86: Now takes optional OverrideStream arg. This, if given, overrides stream of card's notefile.)




          (* * rht 1/28/86: Now passes extra arg to NC.ReadCardPartHeader indicating that when we're overriding the notefile 

	  stream, you shouldn't force UIDs on stream and in card to match.)




          (* * kef 7/16/86: Uses the device vector GetCardPartFn to set up the stream and stream pointer for reading.)




          (* * kef 7/30/86: Changed to use GetCardInfoFn of the device vector.)




          (* * kef 8/1/86: Decided there are some cases, such as new cards, where we may want the Type of the card even 

	  though it isn't ACTIVE yet.)




          (* * fgh 8/31/86 Changed APPLY* to NC.ApplyFn.)




          (* * rht 5/30/87: No longer goes to notefile unless status is ACTIVE and card isn't brand new.)



    (WITH.MONITOR (
NC.FetchMonitor
 (fetch
 (Card NoteFile) of
 Card))
		  (if
 (
AND
 (
EQ
 (
NC.FetchStatus
 Card)
				     (
QUOTE
 ACTIVE))
			       (
NOT
 (fetch
 (Card NewCardFlg) of
 Card)))
		      then
 (LET (CardType)
			          (
NC.SetType
 Card (
SETQ
 CardType
						  (
CDR
 (
FASSOC
 (
QUOTE
 TYPE)
								   (NC.ApplyFn GetCardInfoFn Card
									       (
QUOTE
 TYPE))))))
			      CardType)))))
)
(PUTPROPS RHTPATCH271 COPYRIGHT ("Xerox Corporation" 1987))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (614 2806 (NC.GetType 624 . 2804)))))
STOP