!	crs_owners.scp				reb, 07-Dec-1989 09:54


.label prompt
	prompt "Owner:  "
	oa$fld_stay
	.if oa$form_terminator = 112 then .goto cancelled
	get #owner=oa$prompt_text
!	get #test=profil.fulnam[#owner]
!	.if #test eqs "" then .goto invalid_user
	.goto process

.label invalid_user
	prompt "'" #owner "' is not a valid username.  Press RETURN. "
	oa$fld_stay
	.goto prompt 

.label process
	get oa$display=-
"Searching for reservations belonging to '" #owner "' . . . " \force

	form auto select for crs_reserve with -
		.reserver beginning #owner do -
		sel_style .meeting:20 " " .room:20 " " .beg_dt:11 " " -
			.beg_time " " .contact1 /style=choice
	.if oa$src_count eqs 0 then .goto nothing_found
	.if oa$sel_key eqs "" then .goto nothing_selected

	get $crs_last_used=oa$sel_key

	form\force
	do crs_menu_load_window
	get room=#room
	get beg_dt=#beg_dt
	get beg_time=#beg_time
	get meeting=#meeting

	do crs_reserve_so
	.goto exit_procedure

.label nothing_found
	get oa$display="No records were found for '" #owner "'."
	.goto exit_procedure

.label nothing_selected
	display No meeting reservation was selected.
	.goto exit_procedure

.label cancelled
	display Procedure has been cancelled at the User's request.
	.goto exit_procedure

.LABEL EXIT_PROCEDURE
	.EXIT