Create Main_Book_to_Stay with adj_for_web.R

New Rscript with adjustments and new biz incorporated (used for Javascript UI)