function lttoxml(value)
return string.gsub(value, '<', '<')
end
out = ''
out = out .. 'Visus, o.u.'
if ( getValue('visus.ou.kontrast') ~= '' )
then
out = out .. ', ' .. getValue('visus.ou.kontrast') .. ' kontrast'
end
if ( getValue('visus.ou.st_hul') ~= '' )
then
out = out .. ', ' .. getValue('visus.ou.st_hul')
end
out = out .. ':\n'
if ( getValue('visus.ou.snellen') ~= '' )
then
out = out .. 'Snellen: ' .. lttoxml(getValue('visus.ou.snellen')) .. '\n'
end
if ( getValue('visus.ou.etdrs') ~= '' )
then
out = out .. 'ETDRS: ' .. getValue('visus.ou.etdrs') .. '\n'
end
out = out .. 'Korr.: ' .. getValue('visus.ou.korr.sf') .. ' sf'
if ( getValue('visus.ou.korr.cyl') ~= '' )
then
out = out .. ', ' .. getValue('visus.ou.korr.cyl') .. ' cyl'
end
if ( getValue('visus.ou.korr.grader') ~= '' )
then
out = out .. ', ' .. getValue('visus.ou.korr.grader') .. ' grader'
end
return out