IMacro for adding articles to a Polopoly section

1column macro

SET !DATASOURCE course_list.csv
SET !DATASOURCE_COLUMNS 1
SET !LOOP 1
SET !DATASOURCE_LINE {{!LOOP}}
SET !VAR1 EVAL("var s =\"{{!COL1}}\";s = s.toLowerCase();s = s.replace(/ /g,\"-\"); s.substring(0,24);")
FRAME F=3
TAG POS=1 TYPE=BUTTON ATTR=TXT:Create
WAIT SECONDS=1
TAG POS=1 TYPE=INPUT:TEXT FORM=NAME:mainform ATTR=ID:work_* CONTENT={{!COL1}}
TAG POS=2 TYPE=INPUT:TEXT FORM=NAME:mainform ATTR=ID:work_* CONTENT={{!COL1}}
TAG POS=5 TYPE=INPUT:TEXT FORM=NAME:mainform ATTR=ID:work_* CONTENT={{!VAR1}}
TAG POS=1 TYPE=SELECT FORM=NAME:mainform ATTR=ID:work_* CONTENT=%discard
WAIT SECONDS=1
TAG POS=1 TYPE=BUTTON FORM=NAME:mainform ATTR=TXT:Save<SP>&<SP>Connect
WAIT SECONDS=1
TAG POS=1 TYPE=INPUT:RADIO FORM=ID:mainform ATTR=ID:work_*
TAG POS=1 TYPE=BUTTON ATTR=TXT:Connect
WAIT SECONDS=1

2 column macro

For a 2 column csv: Title of page,title-for-friendly
use:

SET !DATASOURCE course_list.csv
SET !DATASOURCE_COLUMNS 2
SET !LOOP 1
SET !DATASOURCE_LINE {{!LOOP}}
FRAME F=3
TAG POS=1 TYPE=BUTTON ATTR=TXT:Create
WAIT SECONDS=1
TAG POS=1 TYPE=INPUT:TEXT FORM=NAME:mainform ATTR=ID:work_* CONTENT={{!COL1}}
TAG POS=2 TYPE=INPUT:TEXT FORM=NAME:mainform ATTR=ID:work_* CONTENT={{!COL1}}
TAG POS=5 TYPE=INPUT:TEXT FORM=NAME:mainform ATTR=ID:work_* CONTENT={{!COL2}}
TAG POS=1 TYPE=SELECT FORM=NAME:mainform ATTR=ID:work_* CONTENT=%discard
WAIT SECONDS=1
TAG POS=1 TYPE=BUTTON FORM=NAME:mainform ATTR=TXT:Save<SP>&<SP>Connect
WAIT SECONDS=1
TAG POS=1 TYPE=INPUT:RADIO FORM=ID:mainform ATTR=ID:work_*
TAG POS=1 TYPE=BUTTON ATTR=TXT:Connect
WAIT SECONDS=1

example.csv

Page one
Page two
Page three
Page four