FUNCTION mo_fndirck, wk_path, mo_wk_no
;	---------------------------------------------------------------
;+							27-May-93
;	NAME: mo_fndirck
;
;	PURPOSE: Check the on-line weekly directory for the first and
;		last file-id (fid) defined by the selected index to
;		the MO disk map.
;
;	In too much of a hurry to do other header stuff.
; 	
;	History:
;	
;-
;	--------------------------------------------------------------

	ret = 1				;True-- files found and return 1 

	mdm2do = Rd_modb( mo_wk_no )	;get MO database 

	first_fid = string(mdm2do.st$first_fid)
	last_fid = string(mdm2do.st$last_fid)

	fids = uniq_fid(wk_path)	;check the directory

	ck_1 = where(fids eq first_fid(0))
	ck_2 = where(fids eq last_fid(0))

	IF (ck_1(0) eq -1) or (ck_2(0) eq -1) THEN BEGIN
	  ret = 0		;false-- direct does not have files
	ENDIF

	RETURN, ret
	END