From 730eb796bbce6f124be9194f1565b7dda1daddf1 Mon Sep 17 00:00:00 2001 From: deva Date: Tue, 1 Jun 2010 13:02:23 +0000 Subject: Afdj macros/templates are now located in their own repo. --- server/xml/macros/visus-template-1.0.xml | 1321 ------------------------------ 1 file changed, 1321 deletions(-) delete mode 100644 server/xml/macros/visus-template-1.0.xml (limited to 'server/xml/macros/visus-template-1.0.xml') diff --git a/server/xml/macros/visus-template-1.0.xml b/server/xml/macros/visus-template-1.0.xml deleted file mode 100644 index 7199903..0000000 --- a/server/xml/macros/visus-template-1.0.xml +++ /dev/null @@ -1,1321 +0,0 @@ - - - - - function lttoxml(value) - value = string.gsub(value, '<', '&lt;') - return value - end - - out = '' - if ( getValue('visus.template.mangler.odxt') == '' or getValue('visus.template.mangler.osin') == '' or getValue('visus.template.ou') ~= '' ) - then - out = out .. 'Visus template:\n' - end - - if ( getValue('visus.template.mangler.odxt') == '' ) - then - out = out .. 'o.dxt: ' - if ( getValue('visus.template.snellen.odxt') ~= '' ) - then - out = out .. lttoxml(getValue('visus.template.snellen.odxt')) - if ( getValue('visus.template.etdrs.odxt') == '' ) - then - out = out .. ', ' - end - end - if ( getValue('visus.template.etdrs.odxt') ~= '' ) - then - if ( getValue('visus.template.snellen.odxt') ~= '' ) - then - out = out .. ', ' - end - out = out .. getValue('visus.template.etdrs.odxt') .. ' ETDRS, ' - end - if ( getValue('visus.template.kontrast.odxt') ~= '' ) - then - out = out .. getValue('visus.template.kontrast.odxt') .. ' kontrast, ' - end - - out = out .. 'cc ' .. getValue('visus.template.korr.sf.odxt') .. ' sf' - if ( getValue('visus.template.korr.cyl.odxt') ~= '' ) - then - out = out .. ', ' .. getValue('visus.template.korr.cyl.odxt') .. ' cyl' - end - if ( getValue('visus.template.korr.grader.odxt') ~= '' ) - then - out = out .. ', ' .. getValue('visus.template.korr.grader.odxt') .. ' grader' - end - - out = out .. ', add ' .. getValue('visus.template.add.sf.odxt') .. ' sf' - if ( getValue('visus.template.add.cyl.odxt') ~= '' ) - then - out = out .. ', ' .. getValue('visus.template.add.cyl.odxt') .. ' cyl' - end - if ( getValue('visus.template.add.grader.odxt') ~= '' ) - then - out = out .. ', ' .. getValue('visus.template.add.grader.odxt') .. ' grader' - end - - if ( getValue('visus.template.st_hul.odxt') ~= '' ) - then - if ( getValue('visus.template.st_hul.snellen.odxt') ~= '' ) - then - out = out .. ', ' .. lttoxml(getValue('visus.template.st_hul.snellen.odxt')) - end - if ( getValue('visus.template.st_hul.etdrs.odxt') ~= '' ) - then - out = out .. ', ' .. getValue('visus.template.st_hul.etdrs.odxt') .. ' ETDRS' - end - out = out .. ' st.h.' - end - out = out .. '\n' - end - - - - - - if ( getValue('visus.template.mangler.osin') == '' ) - then - out = out .. 'o.sin: ' - if ( getValue('visus.template.snellen.osin') ~= '' ) - then - out = out .. lttoxml(getValue('visus.template.snellen.osin')) - if ( getValue('visus.template.etdrs.osin') == '' ) - then - out = out .. ', ' - end - end - if ( getValue('visus.template.etdrs.osin') ~= '' ) - then - if ( getValue('visus.template.snellen.osin') ~= '' ) - then - out = out .. ', ' - end - out = out .. getValue('visus.template.etdrs.osin') .. ' ETDRS, ' - end - if ( getValue('visus.template.kontrast.osin') ~= '' ) - then - out = out .. getValue('visus.template.kontrast.osin') .. ' kontrast, ' - end - - out = out .. 'cc ' .. getValue('visus.template.korr.sf.osin') .. ' sf' - if ( getValue('visus.template.korr.cyl.osin') ~= '' ) - then - out = out .. ', ' .. getValue('visus.template.korr.cyl.osin') .. ' cyl' - end - if ( getValue('visus.template.korr.grader.osin') ~= '' ) - then - out = out .. ', ' .. getValue('visus.template.korr.grader.osin') .. ' grader' - end - - out = out .. ', add ' .. getValue('visus.template.add.sf.osin') .. ' sf' - if ( getValue('visus.template.add.cyl.osin') ~= '' ) - then - out = out .. ', ' .. getValue('visus.template.add.cyl.osin') .. ' cyl' - end - if ( getValue('visus.template.add.grader.osin') ~= '' ) - then - out = out .. ', ' .. getValue('visus.template.add.grader.osin') .. ' grader' - end - - if ( getValue('visus.template.st_hul.osin') ~= '' ) - then - if ( getValue('visus.template.st_hul.snellen.osin') ~= '' ) - then - out = out .. ', ' .. lttoxml(getValue('visus.template.st_hul.snellen.osin')) - end - if ( getValue('visus.template.st_hul.etdrs.osin') ~= '' ) - then - out = out .. ', ' .. getValue('visus.template.st_hul.etdrs.osin') .. ' ETDRS' - end - out = out .. ' st.h.\n' - end - out = out .. '\n' - end - - - - - - - if ( getValue('visus.template.ou') ~= '' ) - then - out = out .. 'o.u: ' - if ( getValue('visus.template.snellen.ou') ~= '' ) - then - out = out .. lttoxml(getValue('visus.template.snellen.ou')) - end - if ( getValue('visus.template.etdrs.ou') ~= '' ) - then - if ( getValue('visus.template.snellen.ou') ~= '' ) - then - out = out .. ', ' - end - out = out .. getValue('visus.template.etdrs.ou') .. ' ETDRS' - end - if ( getValue('visus.template.kontrast.ou') ~= '' ) - then - out = out .. ', ' .. getValue('visus.template.kontrast.ou') .. ' kontrast' - end - end - - return out - - - - - - - - value = 0 - timestamp = 0 - source = '' - - if( missing_eye_odxt ) - then - if( missing_eye_odxt.value and missing_eye_odxt.value == '' ) - then - value = '' - timestamp = missing_eye_odxt.timestamp - source = missing_eye_odxt.source - else - value = 'mangler' - timestamp = missing_eye_odxt.timestamp - source = missing_eye_odxt.source - end - end - return value, timestamp, source - - - value = 0 - timestamp = 0 - source = '' - - if( missing_eye_osin ) - then - if( missing_eye_osin.value and missing_eye_osin.value == '' ) - then - value = '' - timestamp = missing_eye_osin.timestamp - source = missing_eye_osin.source - else - value = 'mangler' - timestamp = missing_eye_osin.timestamp - source = missing_eye_osin.source - end - end - return value, timestamp, source - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -