out = ''
if ( getValue('visus.template.missing.right') == '' )
then
out = out .. 'Visus, template, o.dxt'
if ( getValue('visus.template.kontrast.right') ~= '' )
then
out = out .. ', ' .. getValue('visus.template.kontrast.right') .. ' kontrast'
end
out = out .. ':\n'
if ( getValue('visus.template.snellen.right') ~= '' )
then
out = out .. 'Snellen: ' .. getValue('visus.template.snellen.right') .. '\n'
end
if ( getValue('visus.template.etdrs.right') ~= '' )
then
out = out .. 'ETDRS: ' .. getValue('visus.template.etdrs.right') .. '\n'
end
out = out .. 'Korr.: ' .. getValue('visus.template.korr.sf.right') .. ' sf'
if ( getValue('visus.template.korr.cyl.right') ~= '' )
then
out = out .. ', ' .. getValue('visus.template.korr.cyl.right') .. ' cyl'
end
if ( getValue('visus.template.korr.grader.right') ~= '' )
then
out = out .. ', ' .. getValue('visus.template.korr.grader.right') .. ' grader'
end
out = out .. '\n'
out = out .. 'Add korr.: ' .. getValue('visus.template.add.sf.right') .. ' sf'
if ( getValue('visus.template.add.cyl.right') ~= '' )
then
out = out .. ', ' .. getValue('visus.template.add.cyl.right') .. ' cyl'
end
if ( getValue('visus.template.add.grader.right') ~= '' )
then
out = out .. ', ' .. getValue('visus.template.add.grader.right') .. ' grader'
end
out = out .. '\n'
if ( getValue('visus.template.st_hul.right') ~= '' )
then
out = out .. 'Måling foretaget med st. hul:\n'
if ( getValue('visus.template.st_hul.snellen.right') ~= '' )
then
out = out .. 'Snellen: ' .. getValue('visus.template.st_hul.snellen.right') .. '\n'
end
if ( getValue('visus.template.st_hul.etdrs.right') ~= '' )
then
out = out .. 'ETDRS: ' .. getValue('visus.template.st_hul.etdrs.right') .. '\n'
end
end
if ( getValue('visus.template.missing.left') == '' )
then
out = out .. '\n'
end
end
if ( getValue('visus.template.missing.left') == '' )
then
out = out .. 'Visus, template, o.sin'
if ( getValue('visus.template.kontrast.left') ~= '' )
then
out = out .. ', ' .. getValue('visus.template.kontrast.left') .. ' kontrast'
end
out = out .. ':\n'
if ( getValue('visus.template.snellen.left') ~= '' )
then
out = out .. 'Snellen: ' .. getValue('visus.template.snellen.left') .. '\n'
end
if ( getValue('visus.template.etdrs.left') ~= '' )
then
out = out .. 'ETDRS: ' .. getValue('visus.template.etdrs.left') .. '\n'
end
out = out .. 'Korr.: ' .. getValue('visus.template.korr.sf.left') .. ' sf'
if ( getValue('visus.template.korr.cyl.left') ~= '' )
then
out = out .. ', ' .. getValue('visus.template.korr.cyl.left') .. ' cyl'
end
if ( getValue('visus.template.korr.grader.left') ~= '' )
then
out = out .. ', ' .. getValue('visus.template.korr.grader.left') .. ' grader'
end
out = out .. '\n'
out = out .. 'Add korr.: ' .. getValue('visus.template.add.sf.left') .. ' sf'
if ( getValue('visus.template.add.cyl.left') ~= '' )
then
out = out .. ', ' .. getValue('visus.template.add.cyl.left') .. ' cyl'
end
if ( getValue('visus.template.add.grader.left') ~= '' )
then
out = out .. ', ' .. getValue('visus.template.add.grader.left') .. ' grader'
end
out = out .. '\n'
if ( getValue('visus.template.st_hul.left') ~= '' )
then
out = out .. 'Måling foretaget med st. hul:\n'
if ( getValue('visus.template.st_hul.snellen.left') ~= '' )
then
out = out .. 'Snellen: ' .. getValue('visus.template.st_hul.snellen.left') .. '\n'
end
if ( getValue('visus.template.st_hul.etdrs.left') ~= '' )
then
out = out .. 'ETDRS: ' .. getValue('visus.template.st_hul.etdrs.left') .. '\n'
end
end
if ( getValue('visus.template.missing.left') == '' )
then
out = out .. '\n'
end
end
if ( getValue('visus.template.ou') ~= '' )
then
out = out .. 'Visus, template, o.u'
if ( getValue('visus.template.kontrast.ou') ~= '' )
then
out = out .. ', ' .. getValue('visus.template.kontrast.ou') .. ' kontrast'
end
out = out .. ':\n'
if ( getValue('visus.template.snellen.ou') ~= '' )
then
out = out .. 'Snellen: ' .. getValue('visus.template.snellen.ou') .. '\n'
end
if ( getValue('visus.template.etdrs.ou') ~= '' )
then
out = out .. 'ETDRS: ' .. getValue('visus.template.etdrs.ou') .. '\n'
end
out = out .. 'Korr.: ' .. getValue('visus.template.korr.sf.ou') .. ' sf'
if ( getValue('visus.template.korr.cyl.ou') ~= '' )
then
out = out .. ', ' .. getValue('visus.template.korr.cyl.ou') .. ' cyl'
end
if ( getValue('visus.template.korr.grader.ou') ~= '' )
then
out = out .. ', ' .. getValue('visus.template.korr.grader.ou') .. ' grader'
end
end
return out