(FILECREATED " 3-Sep-86 21:06:02" {QV}<NOTECARDS>1.3K>NEXT>FGHPATCH107.;3
 2866   

      changes to:  (FNS NC.RetrieveTypeAndTitle)
		   (VARS FGHPATCH107COMS)

      previous date: " 3-Sep-86 20:02:38" {QV}<NOTECARDS>1.3K>NEXT>FGHPATCH107.;1)


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

(PRETTYCOMPRINT FGHPATCH107COMS)

(RPAQQ FGHPATCH107COMS
 ((* * Fixes to speed up caching on server.)
			  (* * From NCDATABASE)
			  (FNS NC.CacheTypesAndTitles)
			  (* * New for NCCARDS)
			  (FNS NC.RetrieveTypeAndTitle)))
(* * Fixes to speed up caching on server.)


(* * From NCDATABASE)


(DEFINEQ

(NC.CacheTypesAndTitles

  (LAMBDA (NoteFile)                                         (* fgh: " 3-Sep-86 19:51")

                                                             (* Cache or uncache all of the titles on DatabaseSteam

							     onto the prop lists of the NoteCard IDs)


          (* * rht 7/27/85: Added BLOCK call to cut down CPU hogging.)




          (* * kirk 10/18/85 changed printmessage from every 10 to every 50.0 Replaced call on NC.GetTypeAndTitle with direct

	  calls on NC.RetrieveType and NC.RetrieveTitle.)




          (* * fkr 10/29/85: Added support for numeric IDs and cache arrays.)




          (* * rht 11/13/85: Updated to handle new notefile and Card formats.)




          (* * fgh 9/3/86 Adapted to use NC.RetrieveTypeAndTitle to speed up caching on server.)



    (NC.MapCards NoteFile (
FUNCTION
 (LAMBDA (Card)
		     (NC.RetrieveTypeAndTitle
 Card))))))
)
(* * New for NCCARDS)


(DEFINEQ

(NC.RetrieveTypeAndTitle

  (LAMBDA (Card)                                             (* fgh: " 3-Sep-86 21:03")


          (* * Retrieve the type and title of a card using NC.GetCardInfo where possible to decrease Courier calls if using 

	  server.)




          (* * fgh 9/3/86 First created.)



    (LET (Type Title Info)
         (if
 (
EQ
 (
NC.FetchStatus
 Card)
		     (
QUOTE
 ACTIVE))
	     then
 (if
 (
SETQ
 Type (
NC.FetchType
 Card))
			then
 (if
 (
SETQ
 Title (
NC.FetchTitle
 Card))
				   then
 NIL
				 else
 (
NC.SetTitle
 Card (
SETQ
 Title (
NC.GetTitle
 Card))))
		      else
 (if
 (
SETQ
 Title (
NC.FetchTitle
 Card))
				 then
 (
NC.SetType
 Card (
SETQ
 Type (
NC.GetType
 Card)))
			       else
 (
SETQ
 Info (NC.ApplyFn GetCardInfoFn Card
							       (
QUOTE
 (TYPE TITLE))))
				      (
NC.SetTitle
 Card (
SETQ
 Title (
CDR
 (
FASSOC

										 (
QUOTE
 TITLE)
										 Info))))
				      (
NC.SetType
 Card (
SETQ
 Type (
CDR
 (
FASSOC
 (
QUOTE

											 TYPE)
										       Info))))))
		    (
CONS
 Type Title)))))
)
(PUTPROPS FGHPATCH107 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (626 1577 (NC.CacheTypesAndTitles 636 . 1575)) (1606 2784 (NC.RetrieveTypeAndTitle 1616
 . 2782)))))
STOP