<< if iserror(passwordtext) then passwordtext = '' /if IF initsset="error" THEN EXPAND FILE=dirname(PAGE)+"gallery_inits.txt" /EXPAND initsset="yes" /IF if iserror(g.search) then g.search = '' /if if iserror(sIdx) then sIdx = '' /if if not(isblank(sIdx)) then g.record = srchList[1,sIdx] g.submper = srchList[2,sIdx] g.submorg = srchList[3,sIdx] g.school = srchList[4,sIdx] g.town = srchList[5,sIdx] g.county = srchList[6,sIdx] g.url = srchList[7,sIdx] g.artform = srchList[8,sIdx] g.artistlname = srchList[9,sIdx] g.artfname = srchList[10,sIdx] g.title = srchList[11,sIdx] g.descfile = srchList[12,sIdx] g.smimg = srchList[13,sIdx] g.lgimg = srchList[14,sIdx] g.grade = srchList[16,sIdx] g.email = srchList[17,sIdx] uploadfilename = '' finalfilename = '' tofilename = '' toext = '' else g.record = '' g.lgimg = '' g.smimg = '' /if if iserror(g.lgimg) then g.lgimg = '' /if if iserror(g.smimg) then g.smimg = '' /if if iserror(g.record) then g.record = '' /if >> <<galname>> Control

<<$emsg>>
Artwork Input    Writings Input

[Clear Variables]

<< if passwordtext = 'curate' then display ' ' /display /if >>
Your Name:
Opt'l Your Organization:
Opt'l School Name:


' /display if not(isblank(sIdx)) then qot = ascii(39) display ' '+sIdx+' of '+sCnt+'



' /display /if display '
Classification:
Town or City:
County:
Opt'l Organization URL: http://
Artform:    
Opt'l Artist's Last Name:
Artist's First Name:
Artist's Email:
Title of Work:
Optional Description: 500 characters; no scrolling
Large Image File: <Now: '+g.lgimg /display /if>> No spaces in filename; no path data; include extention (.gif, .jpg, etc.)

Max image size: 350 wide x 250 high
<Who are you?' /IF IF g.grade='' THEN ErrMsg=ErrMsg+'
Missing Classification.' /IF IF g.town='' THEN ErrMsg=ErrMsg+'
Missing Town Name.' /IF IF g.county='' THEN ErrMsg=ErrMsg+'
Missing County Name.' /IF IF g.artfname='' THEN ErrMsg=ErrMsg+'
Missing Artist Name.' /IF IF g.title='' THEN ErrMsg=ErrMsg+'
Missing Artwork Title.' /IF IF g.email='' THEN ErrMsg=ErrMsg+'
Missing Email Address.' /IF if g.email<>'' then if locate(g.email,'@')<2 or count(g.email,'@')<>1 or count(g.email,'.')=0 then Errmsg = ErrMsg + '
Invalid email address format.' /if /if IF g.artform!='' AND new.artform!='' THEN ErrMsg=ErrMsg+'
If entering New artform, click
"enter new" '+ 'in the box.
'+'Otherwise clear input box.' /IF g.descfile=REPLACEALL(g.descfile,'"','"') IF LENGTH(g.descfile)>500 THEN ErrMsg=ErrMsg+'
Description field limited to 500 characters.
'+ 'Please cut '+LENGTH(g.descfile)-500+' characters.' /IF if sIdx<>'' and uploadfilename='' then uploadfilename = g.lgimg /if IF uploadfilename = '' DO ErrMsg =ErrMsg+'
Browse for Source File.' ELIF LOCATE(uploadfilename,'.')=0 THEN ErrMsg=ErrMsg+'
Filename needs an extention.' /IF IF ErrMsg!='' THEN GOTO PAGE /IF finalfilename=uploadfilename WHILE LOCATE(finalfilename,'\')>0 DO finalfilename=CHOPLEFT(finalfilename,'\') finalfilename=CUT(finalfilename,'\') /WHILE IF LENGTH(finalfilename)>25 THEN ErrMsg='File name (after path) must be
less than 26 characters.' GOTO PAGE /IF if uploadfilename <> g.lgimg then g.lgimg=finalfilename finalfilename=dirname(PAGE)+"images/"+finalfilename toext=CHOPLEFT(finalfilename,'.') tofilename="/temp"+toext uploaddisplay = SYSMV("/upload/uploadfilename",tofilename) /if GOTO dirname(PAGE)+"gallery_prooflist.html" /if if subBtn = 'DELETE' then #/ junk = dbdelete(mydb, g,record) /# subBtn = 'SEARCH' /if if subBtn = 'SEARCH' then if isblank(g.search) then ErrMsg='No search string defined' GOTO PAGE else tmpSearch = 'SEARCH.GRP~|"'+g.search+'" and ARTFORM.GRP=|"'+tabletolist(allforms,' ')+'"' srchList = dbsearch(mydb, tmpSearch, 1, 999999) if dbresults[1,1]='TRUE' and dbresults[2,1]>0 then sIdx = 1 sCnt = dbresults[2,1] else ErrMsg = 'No records found' sIdx = '' sCnt = '' /if tmpSearch = '' goto PAGE /if /if if subBtn = 'PREV' then if sIdx = 1 then sIdx = sCnt else sIdx = sIdx - 1 /if goto PAGE /if if subBtn = 'NEXT' then if sIdx = sCnt then sIdx = 1 else sIdx = sIdx + 1 /if goto PAGE /if >> <> <>