DESCRIPTION You can choose from several different stylings for the family news page. Pick one of the styles from the list below to determine how your newsletter page is decorated.
DESCRIPTION FAMILY NEWSLETTER\nAn important use of your family Web site is to communicate with other family members and friends in a way that is easy for you and convenient for them.\n\nTo accomplish this, your Web site has a news section and a newsletter page with up to four different stories (two of them will have a picture). These are not limits, but rather just the part that is automated for you.\n\nAs you continue, you will be guided through the entry of material for the four stories.
BACKSTOP
GOSUB ChooseNLStyle
BACKSTOP LastNews1
SETTEMP nNewsPage = 1
GOSUB GetNewsStory
SETBACKSTOP LastNews1
BACKSTOP LastNews2
SETTEMP nNewsPage = 2
GOSUB GetNewsStory
SETBACKSTOP LastNews2
BACKSTOP LastNews3
SETTEMP nNewsPage = 3
GOSUB GetNewsStory
SETBACKSTOP LastNews3
BACKSTOP LastNews4
SETTEMP nNewsPage = 4
GOSUB GetNewsStory
SETBACKSTOP LastNews4
;
SETTEMP sectionCompleted = 1
;xxxxxxxxxxxxxxxxxxxxxxxx INPUT A NEWS STORY xxxxxxxxxxxxxxxxxxxxxx
[GetNewsStory]
GOSUB LoadStoryFields
SETTEMP nNumber = nNewsPage
GOSUB Ordinal
SETTEMP nPx1 = "\n\nFill in the headline and, if you like, choose a different picture to go with the ",ordinal," story."
SETTEMP nPx2 = "Enter the text for the ",ordinal," story. You can type as many lines as you like. The title for your story is shown below. You can change it if you like. This story will appear "
DESCRIPTION_RE "The first story is usually titled 'What's New'. An appropriate picture with those words is provided for your use. You can replace the picture if you like.",nPx1
NAME newsPagePic
PROMPT Pi&cture:
ARGUMENT &Headline for the first story:@newsHeadline
BACKSTOP
PAGE
TYPE MULTIANDEDIT
WIZPIC wizpics\newslett.gif
DESCRIPTION_RE nPx2,"at the top of the first column of the newsletter."
ARGUMENT H&eadline:@newsHeadline
ARGUMENT &Text of story:@newsStory
ENDIF
IF nNewsPage = 2 || nNewsPage = 3
IF nNewsPage = 2
SETTEMP nPx3 = "at the bottom of the first column in the newsletter."
ELSE
SETTEMP nPx3 = "at the top of the second column in the newsletter."
DESCRIPTION_RE "The fourth story can also include a picture and is shown at the bottom of the second column. A bit of colorful art is provided if you don't have a particular picture to use.",nPx1
NAME newsPagePic
PROMPT Pi&cture:
ARGUMENT &Headline for the fourth story:@newsHeadline
BACKSTOP
PAGE
TYPE MULTIANDEDIT
WIZPIC wizpics\newslett.gif
DESCRIPTION_RE nPx2,"at the bottom of the second column of the newsletter."
ARGUMENT &Headline for the fourth story:@newsHeadline
SETTEMP pTx6 = "&Done with changes to news section"
SETTEMP wTx1 = "\nChoose this item to replace the entire newsletter section of your family Web site.\n\nYou will be prompted to enter four stories, just like the previous time."
SETTEMP wTx2 = "\nChoose this item to make a change to any or all of the news stories you previously entered."
SETTEMP wTx3 = "\nYou can include news announcement pages in the family news section.\n\nChoose this item to add or change the announcements."
SETTEMP wTx4 = "\nYou can include a photo album in the news section.\n\nChoose this item to add or update the photo album."
SETTEMP wTx5 = "\nChoose this item to pick a different type of styling for your newsletter page."
SETTEMP wTx6 = "\nChoose this item when you are finished making changes to the news section."
SETTEMP dTx = "You may replace the entire newsletter (all four stories) or change one of the newsletter stories. You can also add to, modify, or replace the news announcements, add a newsletter photo album, or change an existing album.\n\nChoose one of these items to indicate your choice below."
BACKSTOP
PAGE
TYPE RADIOBUTTONSWITHTEXT
WIZPIC wizpics\newslett.gif
NAME inpL1
DESCRIPTION_RE dTx
ARGUMENT pTx1@1@wTx1
ARGUMENT pTx2@2@wTx2
ARGUMENT pTx3@3@wTx3
ARGUMENT pTx4@4@wTx4
ARGUMENT pTx5@5@wTx5
ARGUMENT pTx6@6@wTx6
ELSE
BACKSTOP
PAGE
TYPE RADIOBUTTONSWITHTEXT
WIZPIC wizpics\newslett.gif
NAME inpL1
DESCRIPTION_RE dTx
ARGUMENT pTx1@1@wTx1
ARGUMENT pTx2@2@wTx2
ARGUMENT pTx3@3@wTx3
ARGUMENT pTx4@4@wTx4
ARGUMENT pTx5@5@wTx5
ARGUMENT pTx6@6@wTx6
NOPREVIOUS
ENDIF
IF inpL1 <> 6
IF inpL1 = 1
GOSUB CreateNewsSection
IF sectionCompleted = 1
SETTEMP NewsSectExists = NN ; force rebuild of homepage links
ENDIF
ENDIF
IF inpL1 = 2
GOSUB EditStory
ENDIF
IF inpL1 = 3
SETTEMP NewsSectExists = NN ; force rebuild of homepage links
IF hasAnncPage = 1
GOSUB EditAnnouncements
ELSE
GOSUB GetAnnouncements
ENDIF
ENDIF
IF inpL1 = 4
GOSUB GetPhotoAlbumInfo
IF sectionCompleted = 1
SETTEMP NewsSectExists = NN ; force rebuild of links from homepage
ENDIF
ENDIF
IF inpL1 = 5
SETTEMP temp2 = newsLetterStyle
GOSUB ChooseNLStyle
IF temp2 <> newsLetterStyle
SETTEMP NewsSectExists = NN ; force rebuild of homepage links
DESCRIPTION You can make changes to any of the stories in your newsletter. You can even replace the story completely with a new one. You can do this for any or all of the stories.\n\nSelect one of the news stories to replace. The beginning of the story shows in the window at the right.
DESCRIPTION You can attach a family photo collection (either 3, 6, or 9 photos) to your newsletter. Would you like to do this?
ARGUMENT "Y&es, I would like a photo collection"@Yes
ARGUMENT "N&o, I do not want a photo collection"@No
SET haveNewsletterAlbum = temp
IF haveNewsletterAlbum = YY
SETTEMP nPicturesVar = "nNewletterPictures"
SETTEMP pictureNameRoot = "newsPix"
SETTEMP pictureCaptionRoot = "newsPixText"
SETTEMP styleVar = "newsAlbumStyle"
GOSUB GetPhotoCollectionData
ELSE
IF oldValue = YY
MESSAGEBOX "You had a photo collection already attached to your newsletter. This change will cause the wizard to remove it. Are you sure you want to delete the old photo album?"
ARGUMENT temp,2,2
IF temp = NN
UNWIND PhotoColPrmpt
ENDIF
BUSY 1
ARGUMENT "Please wait for a moment while the wizard empties out the old photo album."
SETTEMP pictureNameRoot = "newsPix"
;make empty pages
SETTEMP temp = "pageNewsPhotoAlbum" ;start with thumbnail page
