subroutine act22411
*********************************************************************
* Test new flag w3UserExit
* as per action items 22411
*********************************************************************
Include wbp w3Include ;* required
call w3HtmlInit("","")
call w3HtmlHeader("","")
call w3HtmlFormBeg("","")
call w3HtmlInsert("act*22411", "")
call w3HtmlFormEnd
call w3HtmlFooter("","")
Err = "" ;* contains error value from w3Input
call w3Input(Err, 120, "")
call w3HtmlInit("","")
call w3HtmlHeader("","")
if Err = w3_OK then ; * verify no errors
call w3Printn("<h1>Failed, got w3_OK</H1>")
end else
if Err = w3_UserExit then
call w3Printn("<H1>Passed</H1>")
end else
call w3Printn("<h1>Failed, unknown response: ":err)
end
end
call w3HtmlFooter("","")
return