;xxxxxxxxxxxxxxxx OFFER TO MAKE OTHER SITE SECTIONS xxxxxxxxxxxxxxxx
;xxxxxxxxxxxxxx FAMILY FAVORITES xxxxxxxxxxxxx
[OfferToMakeFavorites]
; add favorites
SETTEMP inpL1 = 0
SETTEMP the_prompt = "Your Web site may have a section in your family Web site called `the Family Favorites'. It contains pages that describe your family's favorite restaurants, shopping places, stores or vacation spots. You can build the Family Favorites section now or wait until later."
PAGE
WIZPIC wizpics\wizfavr.gif
TYPE RADIOBUTTONS
NAME inpL1
DESCRIPTION_RE the_prompt
ARGUMENT "&Build a Favorites section now"@0
ARGUMENT "&Skip the Favorites section and build it later"@1
IF inpL1 = 0
SETTEMP pers_fam_mode = "family"
SETTEMP favoritesVarRoot = "" ;not used for family favorites
SETTEMP FavSectnExists = NN
GOSUB AddToFavorites ;ask for 3 favorites, build, & link
IF callPosition = "NewSite"
SETBACKSTOP BeforeMakingFavorites
GOSUB OfferToPreview
ENDIF
ENDIF
;xxxxxxxxxxxxxxxx FAMILY PASTIMES xxxxxxxxxxxx
[OfferToMakePastimes]
SETTEMP inpL1 = 0
PAGE
WIZPIC wizpics\pastmwiz.gif
TYPE RADIOBUTTONS
NAME inpL1
DESCRIPTION Your Web site may have a section that contains pages describing your family's pastimes and activities. You can build such the pastimes and activities section now, or you can wait and build it later.
ARGUMENT "&Build a 'Pastimes and Activities' section now"@0
ARGUMENT "&Skip this section for the moment"@1
IF inpL1 = 0
SETTEMP pers_fam_mode = "family"
SETTEMP pastimeVarRoot = ""
SETTEMP PstmSectnExist = NN
GOSUB AddToPastimes
IF callPosition = "NewSite"
GOSUB OfferToPreview
SETBACKSTOP BeforeMakingPastimes
ENDIF
ENDIF
;xxxxxxxxxxxxxxxxxx FAMILY NOTIONS xxxxxxxxxxxxxxxx
[OfferToMakeNotions]
SETTEMP inpL1 = 0
PAGE
WIZPIC wizpics\wiznotn.gif
TYPE RADIOBUTTONS
NAME inpL1
DESCRIPTION Your Web site may have a section that contains pages describing your family's 'notions' such as jokes, comments, stories, and observations.\n\n You can build the notions section now, or wait for another time.
ARGUMENT "&Build a 'Notions' section now"@0
ARGUMENT "&Skip this section for the moment"@1
IF inpL1 = 0
SETTEMP notionVarRoot = "" ;not used for family level
SETTEMP pers_fam_mode = "family"
SETTEMP NotnSectnExists = NN
GOSUB AddToNotions ;adds or replaces
IF callPosition = "NewSite"
SETBACKSTOP BeforeMakingNotions
GOSUB OfferToPreview
ENDIF
ENDIF
;xxxxxxxxxxxxxxxxxx FAMILY NEWS xxxxxxxxxxxxxxxxxxxxxx
[OfferToMakeNews]
SETTEMP inpL1 = 0
PAGE
WIZPIC wizpics\newslett.gif
TYPE RADIOBUTTONS
NAME inpL1
DESCRIPTION Your Web site may have a newsletter, photograph album and announcement section. You can build the news section now, or wait for another time.
ARGUMENT "&Build a 'News' section now"@0
ARGUMENT "&Skip this section for the moment"@1
IF inpL1 = 0
SETTEMP pers_fam_mode = "family"
GOSUB AddToNews
IF callPosition = "NewSite"
GOSUB OfferToPreview
SETBACKSTOP BeforeMakingNews
ENDIF
ENDIF
;xxxxxxxxxxxxxxxxxx FAMILY E-Mail DIRECTORY xxxxxxxxxxxx
[OfferToMakeMailBook]
SETTEMP inpL1 = 0
PAGE
WIZPIC wizpics\mailwiz.gif
TYPE RADIOBUTTONS
NAME inpL1
DESCRIPTION Your Web site may have a page devoted to a listing of E-Mail addresses for various local and distant members of your family, and your friends. You can add this section now, or wait for another time.
DESCRIPTION_RE "You may preview the work you have done so far on your family Web site by viewing the site in your browser. You can do this without uploading files. The wizard will simply load the current site into your browser from your hard disk. To preview your work, check the box below and then press the Next button. To proceed directly to the next stage, uncheck the box before pressing the Next button."
ARGUMENT "P&review the Web site now"@doPreview@1,0@
IF doPreview = 1
BUSY 1
ARGUMENT PrevwTxt ;set in UTIL.DAT
PREVIEW
BUSY 0
ENDIF
;xxxxxxxxxxxxxxxx PREVIOUS BUTTON MESSAGE FOR SUBROUTINES xxxxxxxxxxxxxxx
[AdvancePassage]
SETTEMP check = eval( passageVar )
IF check <= lastPassage && skipExplanations = NN
SETTEMP m_arg1 = "BACKING UP When you press the PREVIOUS button while entering an item with several screens, you are returned to the beginning of the previous item."
SETTEMP m_arg2 = "All of the values you entered before were saved, so as you go forward, you will see them."
