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