(FILECREATED " 9-Sep-87 17:49:04" {QV}<NOTECARDS>1.3KNEXT>PMIPATCH063.;1
 1633   

      changes to:  (VARS PMIPATCH063COMS)
		   (FNS NC.MakeLafiteForm)

      previous date: " 9-Sep-87 17:18:54" {QV}<NOTECARDS>1.3KNEXT>PMIPATCH063.;1)


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

(PRETTYCOMPRINT PMIPATCH063COMS)

(RPAQQ PMIPATCH063COMS
 ((* * pmi 9/9/87: Changed To field of NoteCards Report lafite form back to 
			     "NoteCardsSupport.PA"
			     (from "NoteCardsSupport↑.PA"))
			  (* * Changed in NOTECARDS)
			  (FNS NC.MakeLafiteForm)))
(* * pmi 9/9/87: Changed To field of NoteCards Report lafite form back to 
"NoteCardsSupport.PA" (from "NoteCardsSupport↑.PA"))


(* * Changed in NOTECARDS)


(DEFINEQ

(NC.MakeLafiteForm

  (LAMBDA NIL                                                (* pmi: " 9-Sep-87 17:47")


          (* * pmi 5/8/87: Changed "To:" field to be choice of GV or NS address for NoteCardsSupport.)




          (* * rg 8/26/87 set "to" field automatically based on LAFITEMODE)




          (* * pmi 9/9/87: Changed To field back to "NoteCardsSupport.PA" (from "NoteCardsSupport↑.PA") It should be 

	  "NoteCardsSupport.PA" so that people aren't bugged for a Reply-to field when they send NoteCards Reports.)



    (
MAKEXXXSUPPORTFORM
 (
CONCAT
 "NoteCards " NC.ReleaseIdentifier)
			  (if
 (
EQ
 (
LAFITEMODE
)
				      (
QUOTE
 GV))
			      then
 "NoteCardsSupport.PA"
			    else
 "NoteCardsSupport:PA:Xerox")
			  NC.SystemDate)))
)
(PUTPROPS PMIPATCH063 COPYRIGHT ("Xerox Corporation" 1987))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (747 1551 (NC.MakeLafiteForm 757 . 1549)))))
STOP