sub bookCheck(ctrl, url, bookcd, chrnm, index)
	dim frm
	frm = document.mainfrm
	
	On Error Resume Next
	
	if ctrl.checked = true then	
		dim wnd
		dim vurl
		vurl = url & "/popup/lecture_book_select.asp?bookcd=" & bookcd & "&chrnm=" & chrnm & "&index=" & CStr(index)
		set wnd = window.open(vurl,"_popbook","left=200,top=200,toolbar=no,location=no,status=no,menubar=no,scrollbars=no,resizable=no,width=462,height=540")
		if wnd.opener = null then 		
			wnd.opener = me
		end if			
	end if
end sub