ARGUMENT "Please be patient now while the wizard adds the new family notion pages to your site."
GOSUB BuildFamNotionPages
IF NotnSectnExists = NN || dummyNotions = YY
GOSUB BuildHomePage
ENDIF
IF dummyNotions = YY
SET dummy_sections = subtract(dummy_sections 1)
SET dummyNotions = ""
ENDIF
BUILDLINKS
BUSY 0
SET hasNotions = 1
ENDIF
;xxxxxxxxxxxxxxxxxxxxx REPLACE A NOTION PAGE xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
[ReplaceANotion]
IF beenOnce <> 1
SETTEMP inpL2 = 1
ELSE
SETTEMP inpL2 = 4
ENDIF
SETTEMP base = notionVarRoot,"notionTitle"
SETTEMP notionTitle1Var = base,"1"
SETTEMP notionTitle2Var = base,"2"
SETTEMP notionTitle3Var = base,"3"
IF pers_fam_mode = "personal"
SETTEMP pxq = " news items or stories"
SETTEMP wizPic = "wizpics\wizpnotn.gif"
ELSE
SETTEMP pxq = " notions (opinions or stories)"
SETTEMP wizPic = "wizpics\wiznotn.gif"
ENDIF
BACKSTOP LastTop
PAGE
TYPE RADIOBUTTONS
WIZPIC_RE wizPic
NAME inpL2
DESCRIPTION_RE "PICK ONE TO REPLACE\nYou can replace one of these ",pers_fam_mode,pxq," from the list below with a new one of the same type, or a new one of a different type.\n\nSelect one of the",pxq," from the list below to replace."
ARGUMENT "&1. ",eval( notionTitle1Var )@1
ARGUMENT "&2. ",eval( notionTitle2Var )@2
ARGUMENT "&3. ",eval( notionTitle3Var )@3
ARGUMENT "&Done changing the notions."@4
NOPREVIOUS
SETTEMP notnRplc = 1
IF inpL2 <> 4
SETTEMP nNotion = inpL2
; get data for notion to replace
BACKSTOP
GOSUB GetNotionData
SETBACKSTOP LastTop
IF notionVarRoot = ""
SETTEMP NotionBuild = YY
ELSE
SETTEMP doBuild = YY
ENDIF
SETTEMP beenOnce = 1
GOTO ReplaceANotion ;do another
ENDIF
SETTEMP notnRplc = 0
SETTEMP beenOnce = 0
;xxxxxxxxxxxxxxxxxxxxxxx INPUT NEW NOTIONS SECTION xxxxxxxxxxxxxxxxxxxxxxx
[GetNewNotionsData] ;called from above for Family
;and from NWMEMBER for personal news/views
; set notionVarRoot before coming here
IF skipExplanations = NN
SETTEMP wlc_notn = "WELCOME TO THE "
SETTEMP wlc_notn1 = "\n\nOne of the sections on your "
IF pers_fam_mode = "personal"
SETTEMP notPart1 = " part of the Web site is for Personal News and Views.\n\nYou can use this section to spread news of any type and"
SETTEMP now_prompt = wlc_notn,"PERSONAL NEWS AND VIEWS",wlc_notn1,pers_fam_mode,notPart1
ELSE
SETTEMP notPart1 = " Web site is for the 'Family Notions' -- a forum to tell stories, express opinions, or just share.\n\nThis section is where you get"
SETTEMP now_prompt = now_prompt," to share some of your views (political and otherwise) and outlooks with others. It's an open form of expression. You can write anything you like.\n\nThis section will contain three items.\n\nEach of the three items can be chosen from a category, such as 'Humor', 'Political' and 'Generic'. The category helps the wizard select the proper page decorations.\n\nYou can change these later by modifying what you wrote or by simply replacing an entire item."
BACKSTOP
PAGE
WIZPIC_RE wizPic
TYPE DESCRIPTION
DESCRIPTION_RE now_prompt
ENDIF
SETTEMP passageVar = "nNotion"
SETTEMP lastPassage = 0
; get data for each notion
BACKSTOP Last1
SETTEMP nNotion = 1
GOSUB AdvancePassage
GOSUB GetNotionData
SETBACKSTOP Last1
BACKSTOP Last2
SETTEMP nNotion = 2
GOSUB AdvancePassage
GOSUB GetNotionData
SETBACKSTOP Last2
BACKSTOP Last3
SETTEMP nNotion = 3
GOSUB AdvancePassage
GOSUB GetNotionData
SETBACKSTOP Last3
;xxxxxxxxxxxxxxxxxx INPUT A SINGLE NOTION xxxxxxxxxxxxxxxxxxxxxxxx
[GetNotionData]
GOSUB GetNotionTempVars
SETTEMP notionType = eval( notionTypeVar )
SETTEMP notionTitle = eval( notionTitleVar )
SETTEMP notionLine = eval( notionLineVar )
SETTEMP notionText = eval( notionTextVar )
SETTEMP notionLink = eval( notionLinkVar )
SETTYPE eval( notionPictureVar ) = normal
SETTEMP notionPicture = eval( notionPictureVar )
SETTEMP oldType = notionType
SETTEMP nNumber = nNotion
GOSUB Ordinal
IF notnRplc = 1
SETTEMP txt1n = "\n\nPick a category for the item that will replace this "
SETTEMP txt1nA = "REPLACE A NOTION. You are now replacing the ",ordinal," of your ",pers_fam_mode," notions."
ELSE
SETTEMP txt1n = "\n\nSelect the category for this "
SETTEMP txt1nA = "ADD A NOTION. You are now entering the ",ordinal," of three items."
ENDIF
SETTEMP txt2n = ". The type you choose is used to determine how the page for this item on the Web site is styled and what questions you will be asked to complete this item."
IF pers_fam_mode = "personal"
SETTEMP txt3n = pers_fam_mode," news and views item"
ELSE
SETTEMP txt3n = pers_fam_mode," notion item"
ENDIF
SETTEMP notnPrmpt = txt1nA,txt1n,txt3n,txt2n
; get a new type for the notion
IF notionType == ""
SETTEMP notionType = "Humor"
ENDIF
PAGE
WIZPIC_RE wizPic
TYPE RADIOBUTTONSWITHTEXT
NAME notionType
DESCRIPTION_RE notnPrmpt
ARGUMENT "&Humor"@Humor@"\nGot a funny story or a joke you would like to share?\n\nChoose this category for this item to have the page created with a style that will work with your funny story."
ARGUMENT "P&olitical"@Political@"\nIf you want this item styled like a political comment, choose this item.\n\nThis choice only affects the look of the page on the Web site, not your opinion."
ARGUMENT "&Generic"@Generic@"\nOK. So it's not a joke or a political opinion!\n\nChoose this category for anything else that you want to express yourself about. It creates a page with the look of an essay."
IF notionType <> oldType && oldType <> ""
SETTEMP notionTitle = ""
SETTEMP notionLine = ""
SETTEMP notionText = ""
SETTEMP notionLink = ""
SETTEMP notionPicture = ""
ENDIF
IF notionVarRoot <> "" && notionLine = "" ;supply by-line for personal
SETTEMP notionLine = name," ",familyLastName
ENDIF
IF notionType = "Humor"
GOSUB GetJoke
ENDIF
IF notionType = "Political"
GOSUB GetPoliticalComment
ENDIF
IF notiontype = "Generic"
GOSUB GetGenericComment
ENDIF
SET eval( notionTypeVar ) = notionType
SET eval( notionLineVar ) = notionLine
SET eval( notionTitleVar ) = notionTitle
SET eval( notionTextVar ) = notionText
SET eval( notionLinkVar ) = notionLink
COPY eval( notionPictureVar ) = notionPicture
;xxxxxxxxxxxxxxxx INPUTS FOR SPECIFIC NOTION TYPES xxxxxxxxxxxxxxxxx
[GetJoke] ;xxxxxxxxxxxxxx JOKE xxxxxxxxxxx
BACKSTOP
PAGE
TYPE MULTIAND2EDITS
WIZPIC wizpics\wizhumor.gif
DESCRIPTION Start by entering a title for your joke, humorous anecdote, or observation. A catchy title (without giving away any punchlines) will get your readers' attention quickly.\n\nEnter the title, the name of the person contributing this one, and the text of the joke or story.
ARGUMENT &Title:@notionTitle
ARGUMENT &By:@notionLine
ARGUMENT &The text:@notionText
IF notionTitle = "" || notionTitle = not_humor
SET notionTitle = not_humor
SET notionLink = not_humor
ELSE
SET notionLink = not_humor,": ",notionTitle
ENDIF
SETTYPE notionPicture = normal
IF notionPicture = ""
SET notionPicture = modulepath( "clip_art\hobbies\joker.gif" )
DESCRIPTION Start by entering a title for your political opinion or observation. A catchy title helps to get people's attention.\n\nFill in the title, the name of the person contributing this, and the text of the opinion or story.
ARGUMENT &Title:@notionTitle
ARGUMENT &Observed by:@notionLine
ARGUMENT &Anecdote information:@notionText
IF notionTitle = "" || notionTitle = not_pol
SET notionTitle = not_pol
SET notionLink = not_pol
ELSE
SET notionLink = not_pol,": ",notionTitle
ENDIF
SETTYPE notionPicture = normal
IF notionPicture = ""
SET notionPicture = modulepath( "clip_art\hobbies\chess.gif" )
ENDIF
BACKSTOP
PAGE
NOSPELLCHECK
TYPE PICTUREANDCAPTION
WIZPIC wizpics\wizpoltc.gif
NAME notionPicture
DESCRIPTION_RE notion_p2
PROMPT P&icture:
ARGUMENT &Title:@notionTitle
[GetGenericComment] ;xxxxxxxxxxxxxx STORY xxxxxxxxxxx
BACKSTOP
PAGE
TYPE MULTIAND2EDITS
WIZPIC wizpics\wizgnric.gif
DESCRIPTION Start by entering a title for your anecdote or observation. Do you have a catchy title?\n\nFill in the title, the name of the person contributing this story, and the text of the opinion, viewpoint, or story you want to share.
ARGUMENT Ane&cdote:@notionTitle
ARGUMENT &Observed by:@notionLine
ARGUMENT &Anecdote information:@notionText
IF notionTitle = "" || notionTitle = not_gen
SET notionTitle = not_gen
SET notionLink = not_gen
ELSE
SET notionLink = not_gen,": ",notionTitle
ENDIF
SETTYPE notionPicture = normal
IF notionPicture = ""
SET notionPicture = modulepath( "clip_art\designer\faces.gif" )
ENDIF
BACKSTOP
PAGE
NOSPELLCHECK
WIZPIC wizpics\wizgnric.gif
TYPE PICTUREANDCAPTION
NAME notionPicture
DESCRIPTION_RE notion_p2
PROMPT P&icture:
ARGUMENT &Title:@notionTitle
;xxxxxxxxxxxxxxxxx END OF NOTION INPUTS xxxxxxxxxxxxxxxxxxxxxxxxx
;xxxxxxxxxxxxxxxxxxx BUILD THE NOTION PAGES xxxxxxxxxxxxxxxxxxxxxx
[BuildFamNotionPages] ;xxxxxxFAMILY NOTIONS LINK PAGE xx
SETPARENTTOPIC pageContents
SETTEMP pageNameVar = "pageNotions"
SETTEMP caption = "The ",familyLastName," Family Notions"
SETTEMP notionVarRoot = ""
SETTEMP pageName = "##NotionsLinkPage"
SETTEMP photo = ""
COPY photo = familyPhoto
SETTEMP main_template = "Notions"
GOSUB BuildNotionPages
[BuildPersNotionPages] ;xxxxxPERSONAL NOTION LINK PAGE xx
;called only from NWMEMBER.DAT
SETPARENTTOPIC memberLinkPage
SETTEMP caption = "News and Views of ",name," ",familyLastName
SET eval( notionPageVar ) = topicFromSymbolic( pageName )
;xxxxxxxxxxxxxxxxx END OF BUILD NOTION PAGES xxxxxxxxxxxxxxxxxx
[InitNotnVars]
SETTEMP not_humor = "A Funny Thought"
SETTEMP not_pol = "A Political Comment"
SETTEMP not_gen = "Something to Share"
SETTEMP notion_p2 = "Do you have a picture you would like to include with this page? If you do, select one to use now. If you don't have one available now (in digital format), you can add it later."
