Uploading files loc:AcceptTypes

[rjolda]

Hi
C11
NT14.31

I want to limit the file types that get up loaded in the entry type fileupload  to jpg, pdf and bmp.
 
There is a local variable whichi is :     loc:AcceptTypes = 'image/*'
This is set in the template if I check allow images to be uploaded.

How and where can I limit them to uploading ONLY  jpg, pdf and bmp files?
THanks,
ROn


BTW it is embedded in here so I do not have a chance to edit it:
 If Not (1=0)  ! SecFieldHideStateRtn
    ! --- FILE UPLOAD ---
    loc:readonly = Choose(loc:viewonly,'readonly','')
    loc:javascript = ''  ! MakeFormJavaScript
    loc:capture = net:Environment
    loc:AcceptTypes = 'image/*'
    loc:UseHTML5Uploader = 1
    If loc:UseHTML5Uploader = 0 and loc:viewonly = 0
      packet.append(p_web.CreateInput('File','JSRV:Envelope_photoname',p_web.GetSessionValueFormat('JSRV:Envelope_photoname'),loc:fieldclass,loc:readonly,loc:extra,,loc:javascript,p_web.PicLength('@s199'),'Press to select or take a picture of keys or envelope to upload','dropPhoto',,'',,,,'SM_UpdateJ_SRVREQ_SMALL_SCREEN',loc:AcceptTypes,loc:Capture,'')  & p_web.CRLF)
    ElsIf loc:viewonly = 0
      loc:fieldclass = p_web.combine(loc:fieldclass,' nt-fileinput')

[rjolda]

Hi,
Found it below - just have to uncheck Images and use the "Custom" field.  Just have to figure out syntax now!
Ron

[osquiabro]

for me  work in embeded  6 add Late Server Side this code

Mem:FotoExtension =  upper(st.ExtensionOnly(p_web.GSV('Loc:Path')))
IF NOT INLIST(Mem:FotoExtension,'JPG','GIF','TIFF','PNG') OR p_web.GSV('Loc:Path')=''   
    loc:invalid = 'Loc:Path'
    loc:Alert = 'FOTO INVALIDA SOLO SE ACEPTAN: JPG,GIF,TIFF,PNG'
    p_web.Script('ntAlert("Invalid Document Type.","ALERT");') 
    remove(p_web.GSV('Loc:Path'))
    p_web.ssv(Loc:Path,'')
    CLEAR(Loc:Path)
    CLEAR(Mem:FotoExtension)
    EXIT
END

[rjolda]

Ahhh,
I see how you are doing this.
Thanks,
Ron