(FILECREATED "24-Jun-86 19:32:59" {QV}<NOTECARDS>1.3K>FGHPATCH075.;1
 2473   

      changes to:  (VARS FGHPATCH075COMS)
		   (FNS NC.CopyNoteFile))


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

(PRETTYCOMPRINT FGHPATCH075COMS)

(RPAQQ FGHPATCH075COMS
 ((* * Fix to unnumbered bug in NC.CopyNoteFile)
			  (FNS NC.CopyNoteFile)))
(* * Fix to unnumbered bug in NC.CopyNoteFile)


(DEFINEQ

(NC.CopyNoteFile

  (LAMBDA (FromNoteFileOrName ToFileName)                    (* fgh: "24-Jun-86 19:31")


          (* * Copy a notefile. Ask user for names of FromNoteFileOrName and ToFileName.)




          (* * fkr 11/8/85: Ripped out PSA.Database check. Now takes FromNoteFileOrName and ToFileName args.)




          (* * kirk 19May86 Fixed to work from NoteFile menu)




          (* * fgh 6/24/86 Fixed bug where would not work if NULL FromNoteFileOrName)



    (LET (FullFromFileName Result NoteFileWindow)
         (if
 (type?
 NoteFile FromNoteFileOrName)
	     then
 (
SETQ
 NoteFileWindow (
WFROMMENU
 (fetch
 (NoteFile Menu) of
 
									       FromNoteFileOrName)))
		    (
SETQ
 FullFromFileName (fetch
 (NoteFile FullFileName) of
 FromNoteFileOrName)
		      )
	   else
 (
OR
 FromNoteFileOrName (
SETQ
 FromNoteFileOrName
			  (
NC.DatabaseFileName
 "Name of NoteFile to be copied:" " -- " T NIL NIL))
			(
ERROR!
))
		  (
SETQ
 FullFromFileName (
FULLNAME
 FromNoteFileOrName)))
         (
OR
 ToFileName (
SETQ
 ToFileName (
NC.DatabaseFileName
 "Name of target of copy:" " -- " 
								    T NIL NIL NoteFileWindow))
	       (
ERROR!
))
         (
COND

	   ((
OPENP
 FullFromFileName)
	     (
NC.PrintMsg
 NIL T "Can't copy an open notefile." (
CHARACTER
 13)))
	   ((
AND
 FullFromFileName ToFileName)
	     (
NC.PrintMsg
 NIL T "Copying " FullFromFileName " to " ToFileName " ...")
	     (
COND

	       ((
SETQ
 Result (
COPYFILE
 FullFromFileName ToFileName))
		 (
NC.PrintMsg
 NIL T FullFromFileName " copied to " Result "." (
CHARACTER
 13))
		 (
SETQ
 NC.DatabaseFileNameSuggestion (
PACKFILENAME
 (
QUOTE
 VERSION)
								       NIL
								       (
QUOTE
 BODY)
								       Result)))))
	   ((
NULL
 FullFromFileName)
	     (
NC.PrintMsg
 NIL T "Can't open file for copy: " FromNoteFileOrName (
CHARACTER
 13)))))
    ))
)
(PUTPROPS FGHPATCH075 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (414 2391 (NC.CopyNoteFile 424 . 2389)))))
STOP