Latest changes, mostly to visus macros

1 files changed, 78 insertions, 55 deletions

diff --git a/server/xml/macros/visus-manifest_refraktion-1.0.xml b/server/xml/macros/visus-manifest_refraktion-1.0.xml
index a2c16fc..520c4ce 100644
--- a/server/xml/macros/visus-manifest_refraktion-1.0.xml
+++ b/server/xml/macros/visus-manifest_refraktion-1.0.xml
@@ -1,24 +1,46 @@
 <?xml version='1.0' encoding='UTF-8'?>
 <macro name="visus-manifest_refraktion" version="1.0">
+<!--
+    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 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.manifest_refraktion.missing.right') == '' or getValue('visus.manifest_refraktion.missing.left') == '' or getValue('visus.manifest_refraktion.ou') ~= '' )
+    then
+      out = out .. 'Visus optimal refraktion:\n'
+    end
+
     if ( getValue('visus.manifest_refraktion.missing.right') == '' )
     then
-      out = out .. 'Visus, manifest refraktion, o.dxt'
-      if ( getValue('visus.manifest_refraktion.kontrast.right') ~= '' )
-      then
-        out = out .. ', ' .. getValue('visus.manifest_refraktion.kontrast.right') .. ' kontrast'
-      end
-      out = out .. ':\n'
+      out = out .. 'o.dxt: '
       if ( getValue('visus.manifest_refraktion.snellen.right') ~= '' )
       then
-        out = out .. 'Snellen: ' .. getValue('visus.manifest_refraktion.snellen.right') .. '\n'
+        out = out .. getValue('visus.manifest_refraktion.snellen.right')
+        if ( getValue('visus.manifest_refraktion.etdrs.right') == '' )
+        then
+	  out = out .. ', '
+	end
       end
       if ( getValue('visus.manifest_refraktion.etdrs.right') ~= '' )
       then
-        out = out .. 'ETDRS: ' .. getValue('visus.manifest_refraktion.etdrs.right') .. '\n'
+        if ( getValue('visus.manifest_refraktion.snellen.right') ~= '' )
+        then
+	  out = out .. ', '
+	end
+        out = out .. getValue('visus.manifest_refraktion.etdrs.right') .. ' ETDRS, '
+      end
+      if ( getValue('visus.manifest_refraktion.kontrast.right') ~= '' )
+      then
+        out = out .. getValue('visus.manifest_refraktion.kontrast.right') .. ' kontrast, '
       end
-      out = out .. 'Korr.: ' .. getValue('visus.manifest_refraktion.korr.sf.right') .. ' sf'
+
+      out = out .. 'cc ' .. getValue('visus.manifest_refraktion.korr.sf.right') .. ' sf'
       if ( getValue('visus.manifest_refraktion.korr.cyl.right') ~= '' )
       then
         out = out .. ', ' .. getValue('visus.manifest_refraktion.korr.cyl.right') .. ' cyl'
@@ -27,50 +49,51 @@
       then
         out = out .. ', ' .. getValue('visus.manifest_refraktion.korr.grader.right') .. ' grader'
       end
-      out = out .. '\n'
+
       if ( getValue('visus.manifest_refraktion.st_hul.right') ~= '' )
       then
-        out = out .. 'Måling foretaget med st. hul:\n'
         if ( getValue('visus.manifest_refraktion.st_hul.snellen.right') ~= '' )
         then
-          out = out .. 'Snellen: ' .. getValue('visus.manifest_refraktion.st_hul.snellen.right') .. '\n'
+          out = out .. ', ' .. getValue('visus.manifest_refraktion.st_hul.snellen.right')
         end
         if ( getValue('visus.manifest_refraktion.st_hul.etdrs.right') ~= '' )
         then
-          out = out .. 'ETDRS: ' .. getValue('visus.manifest_refraktion.st_hul.etdrs.right') .. '\n'
+          out = out .. ', ' .. getValue('visus.manifest_refraktion.st_hul.etdrs.right') .. ' ETDRS'
         end
+        out = out .. ' st.h.'
       end
-      if ( getValue('visus.manifest_refraktion.missing.left') == '' )
-      then
-        out = out .. '\n'
-      end
+      out = out .. '\n'
     end
 
 
 
 
 
-
-
-
-
     if ( getValue('visus.manifest_refraktion.missing.left') == '' )
     then
-      out = out .. 'Visus, manifest refraktion, o.sin'
-      if ( getValue('visus.manifest_refraktion.kontrast.left') ~= '' )
-      then
-        out = out .. ', ' .. getValue('visus.manifest_refraktion.kontrast.left') .. ' kontrast'
-      end
-      out = out .. ':\n'
+      out = out .. 'o.sin: '
       if ( getValue('visus.manifest_refraktion.snellen.left') ~= '' )
       then
-        out = out .. 'Snellen: ' .. getValue('visus.manifest_refraktion.snellen.left') .. '\n'
+        out = out .. getValue('visus.manifest_refraktion.snellen.left')
+        if ( getValue('visus.manifest_refraktion.etdrs.left') == '' )
+        then
+	  out = out .. ', '
+	end
       end
       if ( getValue('visus.manifest_refraktion.etdrs.left') ~= '' )
       then
-        out = out .. 'ETDRS: ' .. getValue('visus.manifest_refraktion.etdrs.left') .. '\n'
+        if ( getValue('visus.manifest_refraktion.snellen.left') ~= '' )
+        then
+	  out = out .. ', '
+	end
+        out = out .. getValue('visus.manifest_refraktion.etdrs.left') .. ' ETDRS, '
       end
-      out = out .. 'Korr.: ' .. getValue('visus.manifest_refraktion.korr.sf.left') .. ' sf'
+      if ( getValue('visus.manifest_refraktion.kontrast.left') ~= '' )
+      then
+        out = out .. getValue('visus.manifest_refraktion.kontrast.left') .. ' kontrast, '
+      end
+
+      out = out .. 'cc ' .. getValue('visus.manifest_refraktion.korr.sf.left') .. ' sf'
       if ( getValue('visus.manifest_refraktion.korr.cyl.left') ~= '' )
       then
         out = out .. ', ' .. getValue('visus.manifest_refraktion.korr.cyl.left') .. ' cyl'
@@ -79,23 +102,20 @@
       then
         out = out .. ', ' .. getValue('visus.manifest_refraktion.korr.grader.left') .. ' grader'
       end
-      out = out .. '\n'
+
       if ( getValue('visus.manifest_refraktion.st_hul.left') ~= '' )
       then
-        out = out .. 'Måling foretaget med st. hul:\n'
         if ( getValue('visus.manifest_refraktion.st_hul.snellen.left') ~= '' )
         then
-          out = out .. 'Snellen: ' .. getValue('visus.manifest_refraktion.st_hul.snellen.left') .. '\n'
+          out = out .. ', ' .. getValue('visus.manifest_refraktion.st_hul.snellen.left')
         end
         if ( getValue('visus.manifest_refraktion.st_hul.etdrs.left') ~= '' )
         then
-          out = out .. 'ETDRS: ' .. getValue('visus.manifest_refraktion.st_hul.etdrs.left') .. '\n'
+          out = out .. ', ' .. getValue('visus.manifest_refraktion.st_hul.etdrs.left') .. ' ETDRS'
         end
+        out = out .. ' st.h.\n'
       end
-      if ( getValue('visus.manifest_refraktion.missing.left') == '' )
-      then
-        out = out .. '\n'
-      end
+      out = out .. '\n'
     end
 
 
@@ -103,25 +123,24 @@
 
 
 
-
-
-
-
     if ( getValue('visus.manifest_refraktion.ou') ~= '' )
     then
-      out = out .. 'Visus, manifest refraktion, o.u'
-      if ( getValue('visus.manifest_refraktion.kontrast.ou') ~= '' )
-      then
-        out = out .. ', ' .. getValue('visus.manifest_refraktion.kontrast.ou') .. ' kontrast'
-      end
-      out = out .. ':\n'
+      out = out .. 'o.u: '
       if ( getValue('visus.manifest_refraktion.snellen.ou') ~= '' )
       then
-        out = out .. 'Snellen: ' .. getValue('visus.manifest_refraktion.snellen.ou') .. '\n'
+        out = out .. getValue('visus.manifest_refraktion.snellen.ou')
       end
       if ( getValue('visus.manifest_refraktion.etdrs.ou') ~= '' )
       then
-        out = out .. 'ETDRS: ' .. getValue('visus.manifest_refraktion.etdrs.ou') .. '\n'
+        if ( getValue('visus.manifest_refraktion.snellen.ou') ~= '' )
+        then
+	  out = out .. ', '
+	end
+        out = out .. getValue('visus.manifest_refraktion.etdrs.ou') .. ' ETDRS'
+      end
+      if ( getValue('visus.manifest_refraktion.kontrast.ou') ~= '' )
+      then
+        out = out .. ', ' .. getValue('visus.manifest_refraktion.kontrast.ou') .. ' kontrast'
       end
     end
 
@@ -371,18 +390,18 @@
       return true
     </script>
   </scripts>
-  <widgets caption="Visus - manifest refraktion"
+  <widgets caption="Visus - optimal refraktion"
           layout="vbox">
 
     <frame layout="hbox">
       
       <!-- 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.manifest_refraktion.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.manifest_refraktion.kontrast.right" value="">
@@ -536,6 +555,7 @@
 	    </frame>
 	  </frame>
 	  <frame layout="vbox">
+<!-- start fjern herfra hvis korr felterne ikke skal bruges -->
 	    <frame layout="hbox">
 	      <frame layout="vbox">
 		<label/>
@@ -554,6 +574,7 @@
 		<lineedit name="visus.manifest_refraktion.korr.grader.right" regexp="|[\d]+" script="lt359gt0" value=""/>
 	      </frame>
 	    </frame>
+<!-- slut fjern hertil hvis korr felterne ikke skal bruges -->
 	    <frame layout="hbox">
 	      <checkbox name="visus.manifest_refraktion.st_hul.right" caption="Yderligere måling med st. hul (udfyld herunder)" truevalue="true" falsevalue="" script="st_hul_check.right"/>
 	    </frame>
@@ -705,11 +726,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.manifest_refraktion.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.manifest_refraktion.kontrast.left" value="">
@@ -863,6 +884,7 @@
 	    </frame>
 	  </frame>
 	  <frame layout="vbox">
+<!-- start fjern herfra hvis korr felterne ikke skal bruges -->
 	    <frame layout="hbox">
 	      <frame layout="vbox">
 		<label/>
@@ -881,6 +903,7 @@
 		<lineedit name="visus.manifest_refraktion.korr.grader.left" regexp="|[\d]+" script="lt359gt0" value=""/>
 	      </frame>
 	    </frame>
+<!-- slut fjern hertil hvis korr felterne ikke skal bruges -->
 	    <frame layout="hbox">
 	      <checkbox name="visus.manifest_refraktion.st_hul.left" caption="Yderligere måling med st. hul (udfyld herunder)" truevalue="true" falsevalue="" script="st_hul_check.left"/>
 	    </frame>