From 7a94c424fda908c93331e378e209866b3e2d7e77 Mon Sep 17 00:00:00 2001
From: senator <senator>
Date: Mon, 16 Nov 2009 10:25:55 +0000
Subject: Latest changes, mostly to visus macros

---
 server/xml/macros/visus-template-1.0.xml | 134 +++++++++++++++++--------------
 1 file changed, 75 insertions(+), 59 deletions(-)

(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
index 57fb8d5..7818e5a 100644
--- a/server/xml/macros/visus-template-1.0.xml
+++ b/server/xml/macros/visus-template-1.0.xml
@@ -4,30 +4,43 @@
     Info ved oprettelse af ny visus macro hvor denne kopieres.
     query-replace på .navn1. til .navn2.
     skift macro navnet under macro tagget helt i toppen
-    skift overskrift for begge øjne + ou i resumeet (navn1->navn2)
+    skift overskrift i resumeet (navn1->navn2)
     skift GUI overskrift for macroen under widgets afsnittet
     fjern resume felter der ikke skal bruges
     fjern tilsvarende GUI felter der ikke skal bruges
   -->
   <resume language="lua">
     out = ''
+    if ( getValue('visus.template.missing.right') == '' or getValue('visus.template.missing.left') == '' or getValue('visus.template.ou') ~= '' )
+    then
+      out = out .. 'Visus template:\n'
+    end
+
     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'
+      out = out .. 'o.dxt: '
       if ( getValue('visus.template.snellen.right') ~= '' )
       then
-        out = out .. 'Snellen: ' .. getValue('visus.template.snellen.right') .. '\n'
+        out = out .. getValue('visus.template.snellen.right')
+        if ( getValue('visus.template.etdrs.right') == '' )
+        then
+	  out = out .. ', '
+	end
       end
       if ( getValue('visus.template.etdrs.right') ~= '' )
       then
-        out = out .. 'ETDRS: ' .. getValue('visus.template.etdrs.right') .. '\n'
+        if ( getValue('visus.template.snellen.right') ~= '' )
+        then
+	  out = out .. ', '
+	end
+        out = out .. getValue('visus.template.etdrs.right') .. ' ETDRS, '
+      end
+      if ( getValue('visus.template.kontrast.right') ~= '' )
+      then
+        out = out .. getValue('visus.template.kontrast.right') .. ' kontrast, '
       end
-      out = out .. 'Korr.: ' .. getValue('visus.template.korr.sf.right') .. ' sf'
+
+      out = out .. 'cc ' .. getValue('visus.template.korr.sf.right') .. ' sf'
       if ( getValue('visus.template.korr.cyl.right') ~= '' )
       then
         out = out .. ', ' .. getValue('visus.template.korr.cyl.right') .. ' cyl'
@@ -36,9 +49,8 @@
       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'
+      out = out .. ', add ' .. getValue('visus.template.add.sf.right') .. ' sf'
       if ( getValue('visus.template.add.cyl.right') ~= '' )
       then
         out = out .. ', ' .. getValue('visus.template.add.cyl.right') .. ' cyl'
@@ -47,50 +59,51 @@
       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'
+          out = out .. ', ' .. getValue('visus.template.st_hul.snellen.right')
         end
         if ( getValue('visus.template.st_hul.etdrs.right') ~= '' )
         then
-          out = out .. 'ETDRS: ' .. getValue('visus.template.st_hul.etdrs.right') .. '\n'
+          out = out .. ', ' .. getValue('visus.template.st_hul.etdrs.right') .. ' ETDRS'
         end
+        out = out .. ' st.h.'
       end
-      if ( getValue('visus.template.missing.left') == '' )
-      then
-        out = out .. '\n'
-      end
+      out = out .. '\n'
     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'
+      out = out .. 'o.sin: '
       if ( getValue('visus.template.snellen.left') ~= '' )
       then
-        out = out .. 'Snellen: ' .. getValue('visus.template.snellen.left') .. '\n'
+        out = out .. getValue('visus.template.snellen.left')
+        if ( getValue('visus.template.etdrs.left') == '' )
+        then
+	  out = out .. ', '
+	end
       end
       if ( getValue('visus.template.etdrs.left') ~= '' )
       then
-        out = out .. 'ETDRS: ' .. getValue('visus.template.etdrs.left') .. '\n'
+        if ( getValue('visus.template.snellen.left') ~= '' )
+        then
+	  out = out .. ', '
+	end
+        out = out .. getValue('visus.template.etdrs.left') .. ' ETDRS, '
       end
-      out = out .. 'Korr.: ' .. getValue('visus.template.korr.sf.left') .. ' sf'
+      if ( getValue('visus.template.kontrast.left') ~= '' )
+      then
+        out = out .. getValue('visus.template.kontrast.left') .. ' kontrast, '
+      end
+
+      out = out .. 'cc ' .. getValue('visus.template.korr.sf.left') .. ' sf'
       if ( getValue('visus.template.korr.cyl.left') ~= '' )
       then
         out = out .. ', ' .. getValue('visus.template.korr.cyl.left') .. ' cyl'
@@ -99,9 +112,8 @@
       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'
+      out = out .. ', add ' .. getValue('visus.template.add.sf.left') .. ' sf'
       if ( getValue('visus.template.add.cyl.left') ~= '' )
       then
         out = out .. ', ' .. getValue('visus.template.add.cyl.left') .. ' cyl'
@@ -110,23 +122,20 @@
       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'
+          out = out .. ', ' .. getValue('visus.template.st_hul.snellen.left')
         end
         if ( getValue('visus.template.st_hul.etdrs.left') ~= '' )
         then
-          out = out .. 'ETDRS: ' .. getValue('visus.template.st_hul.etdrs.left') .. '\n'
+          out = out .. ', ' .. getValue('visus.template.st_hul.etdrs.left') .. ' ETDRS'
         end
+        out = out .. ' st.h.\n'
       end
-      if ( getValue('visus.template.missing.left') == '' )
-      then
-        out = out .. '\n'
-      end
+      out = out .. '\n'
     end
 
 
@@ -134,25 +143,24 @@
 
 
 
-
-
-
-
     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'
+      out = out .. 'o.u: '
       if ( getValue('visus.template.snellen.ou') ~= '' )
       then
-        out = out .. 'Snellen: ' .. getValue('visus.template.snellen.ou') .. '\n'
+        out = out .. getValue('visus.template.snellen.ou')
       end
       if ( getValue('visus.template.etdrs.ou') ~= '' )
       then
-        out = out .. 'ETDRS: ' .. getValue('visus.template.etdrs.ou') .. '\n'
+        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
 
@@ -409,11 +417,11 @@
       
       <!-- Højre øje -->
       <frame layout="vbox">
-	<checkbox caption="Der er ikke målt på højre øje"
+	<checkbox caption="Der er ikke målt på o.dxt"
 		  name="visus.template.missing.right" script="right_eye"
 		  map="missing_eye_right_map"
 		  truevalue="mangler" falsevalue="" value=""/>
-	<frame name="right_eye_frame" caption="Højre øje" layout="vbox">
+	<frame name="right_eye_frame" caption="o.dxt" layout="vbox">
 	  <frame layout="hbox">
 	    <label caption="Kontrast:"/>
 	    <combobox name="visus.template.kontrast.right" value="">
@@ -567,6 +575,7 @@
 	    </frame>
 	  </frame>
 	  <frame layout="vbox">
+<!-- start fjern herfra hvis korr felterne ikke skal bruges -->
 	    <frame layout="hbox">
 	      <frame layout="vbox">
 		<label/>
@@ -585,6 +594,8 @@
 		<lineedit name="visus.template.korr.grader.right" regexp="|[\d]+" script="lt359gt0" value=""/>
 	      </frame>
 	    </frame>
+<!-- slut fjern hertil hvis korr felterne ikke skal bruges -->
+<!-- start fjern herfra hvis add felterne ikke skal bruges -->
 	    <frame layout="hbox">
 	      <frame layout="vbox">
 		<label caption=""/>
@@ -603,6 +614,7 @@
 		<lineedit name="visus.template.add.grader.right" regexp="|[\d]+" script="lt359gt0" value=""/>
 	      </frame>
 	    </frame>
+<!-- slut fjern hertil hvis add felterne ikke skal bruges -->
 	    <frame layout="hbox">
 	      <checkbox name="visus.template.st_hul.right" caption="Yderligere måling med st. hul (udfyld herunder)" truevalue="true" falsevalue="" script="st_hul_check.right"/>
 	    </frame>
@@ -754,11 +766,11 @@
       
       <!-- Venstre øje -->
       <frame layout="vbox">
-	<checkbox caption="Der er ikke målt på venstre øje"
+	<checkbox caption="Der er ikke målt på o.sin øje"
 		  name="visus.template.missing.left" script="left_eye"
 		  map="missing_eye_left_map"
 		  truevalue="mangler" falsevalue="" value=""/>
-	<frame name="left_eye_frame" caption="Venstre øje" layout="vbox">
+	<frame name="left_eye_frame" caption="o.sin øje" layout="vbox">
 	  <frame layout="hbox">
 	    <label caption="Kontrast:"/>
 	    <combobox name="visus.template.kontrast.left" value="">
@@ -912,6 +924,7 @@
 	    </frame>
 	  </frame>
 	  <frame layout="vbox">
+<!-- start fjern herfra hvis korr felterne ikke skal bruges -->
 	    <frame layout="hbox">
 	      <frame layout="vbox">
 		<label/>
@@ -930,6 +943,8 @@
 		<lineedit name="visus.template.korr.grader.left" regexp="|[\d]+" script="lt359gt0" value=""/>
 	      </frame>
 	    </frame>
+<!-- slut fjern hertil hvis korr felterne ikke skal bruges -->
+<!-- start fjern herfra hvis add felterne ikke skal bruges -->
 	    <frame layout="hbox">
 	      <frame layout="vbox">
 		<label caption=""/>
@@ -948,6 +963,7 @@
 		<lineedit name="visus.template.add.grader.left" regexp="|[\d]+" script="lt359gt0" value=""/>
 	      </frame>
 	    </frame>
+<!-- slut fjern hertil hvis add felterne ikke skal bruges -->
 	    <frame layout="hbox">
 	      <checkbox name="visus.template.st_hul.left" caption="Yderligere måling med st. hul (udfyld herunder)" truevalue="true" falsevalue="" script="st_hul_check.left"/>
 	    </frame>
-- 
cgit v1.2.3