(FILECREATED " 9-Mar-87 17:29:14" {QV}<NOTECARDS>1.3K>NEXT>RHTPATCH211.;2
 2921   

      changes to:  (FNS NCP.CreateBrowserCard)
		   (VARS RHTPATCH211COMS)

      previous date: " 7-Mar-87 15:09:28" {QV}<NOTECARDS>1.3K>NEXT>RHTPATCH211.;1)


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

(PRETTYCOMPRINT RHTPATCH211COMS)

(RPAQQ RHTPATCH211COMS
 ((* * Fixes bug whereby NCP.CreateBrowserCard breaks on link types with "←" 
			     prefix.)
			  (* * Change to NCPROGINT)
			  (FNS NCP.CreateBrowserCard)))
(* * Fixes bug whereby NCP.CreateBrowserCard breaks on link types with "←" prefix.)


(* * Change to NCPROGINT)


(DEFINEQ

(NCP.CreateBrowserCard

  (LAMBDA (NoteFile Title ParamList NoDisplayFlg Props ParentFileBoxes)
                                                             (* rht: " 9-Mar-87 17:27")


          (* * Creates a new browser notecard with given type, title, props, parents, starting ID and link labels.)




          (* * rht 11/17/85: Updated to handle new card and notefile objects.)




          (* * rht 8/21/86: Changed call from NCP.ValidLinkType to NCP.ValidLinkTypeP.)




          (* * rht 11/16/86: Changed call to NCP.ReportError)




          (* * rht 3/7/87: Now properly accepts link types with "←" prefixes.)



    (LET (ValidLinkTypes LinkTypes NewParamList)
         (
SETQ
 ValidLinkTypes (for
 LinkType in
 (
SETQ
 LinkTypes (
LISTGET
 ParamList
										  (
QUOTE
 LINKTYPES))
						       )
				   join
 (
COND

					    ((
EQ
 LinkType (
QUOTE
 ALL))
					      (
NCP.LinkTypes
 NoteFile))
					    ((
EQ
 LinkType (
QUOTE
 ←ALL))
					      (
NCP.ReverseLinkTypes
 NoteFile))
					    ((
OR
 (
NCP.ValidLinkTypeP
 LinkType NoteFile)
						   (
AND
 (
STREQUAL
 (
SUBSTRING
 LinkType 1 1)
								      "←")
							  (
NCP.ValidLinkTypeP
 (
SUBATOM
 LinkType 2)
										NoteFile)))
					      (
LIST
 LinkType))
					    (T (
NCP.ReportError
 (
QUOTE
 NCP.CreateBrowserCard)
								  (
CONCAT
 LinkType 
									" not a valid link type."))
					       NIL))))
         (
SETQ
 ValidLinkTypes (
INTERSECTION
 ValidLinkTypes ValidLinkTypes))
         (if
 (
AND
 LinkTypes (
NULL
 ValidLinkTypes))
	     then
 NIL
	   else
                                            (* Make a copy of the user's param list since she may 

							     not want it to get rplaca'd.)

		  (if
 ParamList
		      then
 (
SETQ
 NewParamList (
COPY
 ParamList))
			     (
LISTPUT
 NewParamList (
QUOTE
 LINKTYPES)
					ValidLinkTypes)
		    else
 (
SETQ
 NewParamList (
LIST
 (
QUOTE
 LINKTYPES)
							ValidLinkTypes)))
		  (
NCP.CreateCard
 (
QUOTE
 Browser)
				    NoteFile Title NoDisplayFlg Props ParentFileBoxes NewParamList))))
)
)
(PUTPROPS RHTPATCH211 COPYRIGHT ("Xerox Corporation" 1987))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (660 2839 (NCP.CreateBrowserCard 670 . 2837)))))
STOP