split visus macros out into 4 different macros

1 files changed, 107 insertions, 85 deletions

diff --git a/server/xml/macros/visus-optimal_korr-1.0.xml b/server/xml/macros/visus-optimal_korr-1.0.xml
index dcf25fa..75f79c3 100644
--- a/server/xml/macros/visus-optimal_korr-1.0.xml
+++ b/server/xml/macros/visus-optimal_korr-1.0.xml
@@ -1,31 +1,37 @@
 <?xml version='1.0' encoding='UTF-8'?>
-<macro name="visus" version="1.0">
+<macro name="visus-optimal_korr" version="1.0">
   <resume language="lua">
     out = ''
-    if ( getValue('visus.optimal_korr.snellen.right.missing') == '' or getValue('visus.optimal_korr.snellen.left.missing') == '' )
+    if ( getValue('visus.optimal_korr.missing.right') == '' )
     then
-      out = out .. 'Objektivt:\n'
+      out = out .. 'Visus, højre øje:\n'
+      out = out .. 'Snellen: ' .. getValue('visus.optimal_korr.snellen.right') .. '\n'
+      out = out .. 'ETDRS: ' .. getValue('visus.optimal_korr.etdrs.right') .. '\n'
+      out = out .. 'Basis: '
+          .. getValue('visus.optimal_korr.basis.sf.right') .. ' sf, '
+          .. getValue('visus.optimal_korr.basis.cyl.right') .. ' sph '
+          .. getValue('visus.optimal_korr.basis.grader.right') .. ' grader.\n'
+      out = out .. 'Korr.: '
+          .. getValue('visus.optimal_korr.korr.sf.right') .. ' sf, '
+          .. getValue('visus.optimal_korr.korr.cyl.right') .. ' sph '
+          .. getValue('visus.optimal_korr.korr.grader.right') .. ' grader.\n'
+    end
 
-      if ( getValue('visus.optimal_korr.snellen.right.missing') == '' )
-      then
-        out = out .. 'Visus o.dxt. ' .. getValue('visus.optimal_korr.snellen.right') .. '\n'
-        out = out .. 'ETDRS o.dxt. ' .. getValue('visus.optimal_korre.etdrs.right') .. '\n'
-        out = out .. 'Korr.: ' .. getValue('visus.optimal_korr.snellen.right.korr.basis') .. ' add '
-            .. getValue('visus.optimal_korr.snellen.right.korr.sf') .. ' sf, '
-            .. getValue('visus.optimal_korr.snellen.right.korr.cyl') .. ' sph '
-            .. getValue('visus.optimal_korr.snellen.right.korr.grader') .. ' grader.\n'
-      end
-  
-      if ( getValue('visus.optimal_korr.snellen.left.missing') == '' )
-      then
-        out = out .. 'Visus o.sin. ' .. getValue('visus.optimal_korr.snellen.left') .. '\n'
-        out = out .. 'ETDRS o.sin. ' .. getValue('visus.optimal_korre.etdrs.left') .. '\n'
-        out = out .. 'Korr.: ' .. getValue('visus.optimal_korr.snellen.left.korr.basis') .. ' add '
-            .. getValue('visus.optimal_korr.snellen.left.korr.sf') .. ' sf, '
-            .. getValue('visus.optimal_korr.snellen.left.korr.cyl') .. ' sph '
-            .. getValue('visus.optimal_korr.snellen.left.korr.grader') .. ' grader.\n'
-      end
+    if ( getValue('visus.optimal_korr.missing.left') == '' )
+    then
+      out = out .. 'Visus, venstre øje:\n'
+      out = out .. 'Snellen: ' .. getValue('visus.optimal_korr.snellen.left') .. '\n'
+      out = out .. 'ETDRS: ' .. getValue('visus.optimal_korr.etdrs.left') .. '\n'
+      out = out .. 'Basis: '
+          .. getValue('visus.optimal_korr.basis.sf.left') .. ' sf, '
+          .. getValue('visus.optimal_korr.basis.cyl.left') .. ' sph '
+          .. getValue('visus.optimal_korr.basis.grader.left') .. ' grader.\n'
+      out = out .. 'Korr.: '
+          .. getValue('visus.optimal_korr.korr.sf.left') .. ' sf, '
+          .. getValue('visus.optimal_korr.korr.cyl.left') .. ' sph '
+          .. getValue('visus.optimal_korr.korr.grader.left') .. ' grader.\n'
     end
+
     return out
   </resume>
   <queries>
@@ -143,7 +149,7 @@
       return true
     </script>
   </scripts>
-  <widgets caption="Visus (B.2.2.1)"
+  <widgets caption="Visus - optimal korrektion"
           layout="vbox">
 
     <frame layout="hbox">
@@ -151,7 +157,7 @@
       <!-- Højre øje -->
       <frame layout="vbox">
 	<checkbox caption="Der er ikke målt på højre øje"
-		  name="visus.optimal_korr.snellen.right.missing" script="right_eye"
+		  name="visus.optimal_korr.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">
@@ -196,7 +202,7 @@
 	  </frame>
 	  <frame layout="vbox">
 	    <label caption="ETDRS:"/>
-	    <combobox name="visus.optimal_korre.etdrs.right" value="Ikke udfyldt" type="search" script="not0">
+	    <combobox name="visus.optimal_korr.etdrs.right" value="Ikke udfyldt" type="search" script="not0">
 	      <item caption="Ikke udfyldt" value="Ikke udfyldt"/>
 	      <item caption="0" value="0"/>
 	      <item caption="1" value="1"/>
@@ -303,43 +309,51 @@
 	    <spacer/>
 	  </frame>
 	  </frame>
-	  <frame layout="hbox">
-	    <frame layout="vbox">
-	      <label caption=""/>
-	      <label caption="Korr.:"/>
-	    </frame>
-	    <frame layout="vbox">
-	      <label caption="Basis:"/>
-	      <combobox name="visus.optimal_korr.snellen.right.korr.basis" value="">
-		<item caption="Autoref." value="autoref"/>
-		<item caption="Egen brille" value="brille"/>
-		<item caption="Ingen" value="ingen"/>
-	      </combobox>
-	    </frame>
-	    <frame layout="vbox">
-	      <label caption=""/>
-	      <label caption="add"/>
-	    </frame>
-	    <frame layout="vbox">
-	      <label caption="Sf:"/>
-	      <lineedit name="visus.optimal_korr.snellen.right.korr.sf" regexp="[+-]{0,1}\d{1,2},\d{2}" script="lt20gt-25" value=""/>
-	    </frame>
-	    <frame layout="vbox">
-	      <label caption="Cyl:"/>
-	      <lineedit name="visus.optimal_korr.snellen.right.korr.cyl" regexp="[+-]{0,1}\d{1,2},\d{2}" script="lt10gt-15" value=""/>
+	  <frame layout="vbox">
+	    <frame layout="hbox">
+	      <frame layout="vbox">
+		<label/>
+		<label caption="Basis:"/>
+	      </frame>
+	      <frame layout="vbox">
+		<label caption="Sf:"/>
+		<lineedit name="visus.optimal_korr.basis.sf.right" regexp="[+-]{0,1}\d{1,2},\d{2}" script="lt20gt-25" value=""/>
+	      </frame>
+	      <frame layout="vbox">
+		<label caption="Cyl:"/>
+		<lineedit name="visus.optimal_korr.basis.cyl.right" regexp="[+-]{0,1}\d{1,2},\d{2}" script="lt10gt-15" value=""/>
+	      </frame>
+	      <frame layout="vbox">
+		<label caption="Grader:"/>
+		<lineedit name="visus.optimal_korr.basis.grader.right" regexp="[\d]+" script="lt359gt0" value=""/>
+	      </frame>
 	    </frame>
-	    <frame layout="vbox">
-	      <label caption="Grader:"/>
-	      <lineedit name="visus.optimal_korr.snellen.right.korr.grader" regexp="[\d]+" script="lt359gt0" value=""/>
+	    <frame layout="hbox">
+	      <frame layout="vbox">
+		<label caption=""/>
+		<label caption="Korr.:"/>
+	      </frame>
+	      <frame layout="vbox">
+		<label caption="Sf:"/>
+		<lineedit name="visus.optimal_korr.korr.sf.right" regexp="[+-]{0,1}\d{1,2},\d{2}" script="lt20gt-25" value=""/>
+	      </frame>
+	      <frame layout="vbox">
+		<label caption="Cyl:"/>
+		<lineedit name="visus.optimal_korr.korr.cyl.right" regexp="[+-]{0,1}\d{1,2},\d{2}" script="lt10gt-15" value=""/>
+	      </frame>
+	      <frame layout="vbox">
+		<label caption="Grader:"/>
+		<lineedit name="visus.optimal_korr.korr.grader.right" regexp="[\d]+" script="lt359gt0" value=""/>
+	      </frame>
 	    </frame>
 	  </frame>
 	</frame>
       </frame>
-
+      
       <!-- Venstre øje -->
       <frame layout="vbox">
 	<checkbox caption="Der er ikke målt på venstre øje"
-		  name="visus.optimal_korr.snellen.left.missing" script="left_eye"
+		  name="visus.optimal_korr.missing.left" script="left_eye"
 		  map="missing_eye_left_map"
 		  truevalue="mangler" falsevalue="" value=""/>
 	<frame name="left_eye_frame" caption="Venstre øje" layout="vbox">
@@ -376,15 +390,15 @@
 	      <item caption="+L+P" value="+L+P"/>
 	      <item caption="+L-P" value="+L-P"/>
 	      <item caption="-L" value="-L"/>
-	      <altitem caption="Andet" value="andet" innerwidget="venstre_snellen_andet" layout="hbox">
+	      <altitem caption="Andet" value="andet" innerwidget="hoejre_snellen_andet" layout="hbox">
 		<label caption="Andet:"/>
-		<lineedit name="venstre_snellen_andet" regexp="[0-9]+(,\d+|\d*)"/>
+		<lineedit name="hoejre_snellen_andet" regexp="[0-9]+(,\d+|\d*)"/>
 	      </altitem>
 	    </altcombobox>
 	  </frame>
 	  <frame layout="vbox">
 	    <label caption="ETDRS:"/>
-	    <combobox name="visus.optimal_korre.etdrs.left" value="Ikke udfyldt" type="search" script="not0">
+	    <combobox name="visus.optimal_korr.etdrs.left" value="Ikke udfyldt" type="search" script="not0">
 	      <item caption="Ikke udfyldt" value="Ikke udfyldt"/>
 	      <item caption="0" value="0"/>
 	      <item caption="1" value="1"/>
@@ -490,35 +504,43 @@
 	    </combobox>
 	    <spacer/>
 	  </frame>
-	</frame>
-	  <frame layout="hbox">
-	    <frame layout="vbox">
-	      <label caption=""/>
-	      <label caption="Korr.:"/>
-	    </frame>
-	    <frame layout="vbox">
-	      <label caption="Basis:"/>
-	      <combobox name="visus.optimal_korr.snellen.left.korr.basis" value="">
-		<item caption="Autoref." value="autoref"/>
-		<item caption="Egen brille" value="brille"/>
-		<item caption="Ingen" value="ingen"/>
-	      </combobox>
-	    </frame>
-	    <frame layout="vbox">
-	      <label caption=""/>
-	      <label caption="add"/>
-	    </frame>
-	    <frame layout="vbox">
-	      <label caption="Sf:"/>
-	      <lineedit name="visus.optimal_korr.snellen.left.korr.sf" regexp="[+-]{0,1}\d{1,2},\d{2}" script="lt20gt-25" value=""/>
-	    </frame>
-	    <frame layout="vbox">
-	      <label caption="Cyl:"/>
-	      <lineedit name="visus.optimal_korr.snellen.left.korr.cyl" regexp="[+-]{0,1}\d{1,2},\d{2}" script="lt10gt-15" value=""/>
+	  </frame>
+	  <frame layout="vbox">
+	    <frame layout="hbox">
+	      <frame layout="vbox">
+		<label/>
+		<label caption="Basis:"/>
+	      </frame>
+	      <frame layout="vbox">
+		<label caption="Sf:"/>
+		<lineedit name="visus.optimal_korr.basis.sf.left" regexp="[+-]{0,1}\d{1,2},\d{2}" script="lt20gt-25" value=""/>
+	      </frame>
+	      <frame layout="vbox">
+		<label caption="Cyl:"/>
+		<lineedit name="visus.optimal_korr.basis.cyl.left" regexp="[+-]{0,1}\d{1,2},\d{2}" script="lt10gt-15" value=""/>
+	      </frame>
+	      <frame layout="vbox">
+		<label caption="Grader:"/>
+		<lineedit name="visus.optimal_korr.basis.grader.left" regexp="[\d]+" script="lt359gt0" value=""/>
+	      </frame>
 	    </frame>
-	    <frame layout="vbox">
-	      <label caption="Grader:"/>
-	      <lineedit name="visus.optimal_korr.snellen.left.korr.grader" regexp="[\d]+" script="lt359gt0" value=""/>
+	    <frame layout="hbox">
+	      <frame layout="vbox">
+		<label caption=""/>
+		<label caption="Korr.:"/>
+	      </frame>
+	      <frame layout="vbox">
+		<label caption="Sf:"/>
+		<lineedit name="visus.optimal_korr.korr.sf.left" regexp="[+-]{0,1}\d{1,2},\d{2}" script="lt20gt-25" value=""/>
+	      </frame>
+	      <frame layout="vbox">
+		<label caption="Cyl:"/>
+		<lineedit name="visus.optimal_korr.korr.cyl.left" regexp="[+-]{0,1}\d{1,2},\d{2}" script="lt10gt-15" value=""/>
+	      </frame>
+	      <frame layout="vbox">
+		<label caption="Grader:"/>
+		<lineedit name="visus.optimal_korr.korr.grader.left" regexp="[\d]+" script="lt359gt0" value=""/>
+	      </frame>
 	    </frame>
 	  </frame>
 	</frame>