Latest changes, mostly to visus macros

1 files changed, 69 insertions, 50 deletions

diff --git a/server/xml/macros/visus-uden_korr-1.0.xml b/server/xml/macros/visus-uden_korr-1.0.xml
index 9d450e6..dc087de 100644
--- a/server/xml/macros/visus-uden_korr-1.0.xml
+++ b/server/xml/macros/visus-uden_korr-1.0.xml
@@ -1,81 +1,101 @@
 <?xml version='1.0' encoding='UTF-8'?>
 <macro name="visus-uden_korr" 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 for begge øjne + ou 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.uden_korr.missing.right') == '' or getValue('visus.uden_korr.missing.left') == '' or getValue('visus.uden_korr.ou') ~= '' )
+    then
+      out = out .. 'Visus uden korrektion:\n'
+    end
+
     if ( getValue('visus.uden_korr.missing.right') == '' )
     then
-      out = out .. 'Visus, uden korr., o.dxt'
-      if ( getValue('visus.uden_korr.kontrast.right') ~= '' )
-      then
-        out = out .. ', ' .. getValue('visus.uden_korr.kontrast.right') .. ' kontrast'
-      end
-      out = out .. ':\n'
+      out = out .. 'o.dxt: '
       if ( getValue('visus.uden_korr.snellen.right') ~= '' )
       then
-        out = out .. 'Snellen: ' .. getValue('visus.uden_korr.snellen.right') .. '\n'
+        out = out .. getValue('visus.uden_korr.snellen.right')
+        if ( getValue('visus.uden_korr.etdrs.right') == '' )
+        then
+	  out = out .. ', '
+	end
       end
       if ( getValue('visus.uden_korr.etdrs.right') ~= '' )
       then
-        out = out .. 'ETDRS: ' .. getValue('visus.uden_korr.etdrs.right') .. '\n'
+        if ( getValue('visus.uden_korr.snellen.right') ~= '' )
+        then
+	  out = out .. ', '
+	end
+        out = out .. getValue('visus.uden_korr.etdrs.right') .. ' ETDRS, '
+      end
+      if ( getValue('visus.uden_korr.kontrast.right') ~= '' )
+      then
+        out = out .. getValue('visus.uden_korr.kontrast.right') .. ' kontrast'
       end
+
       if ( getValue('visus.uden_korr.st_hul.right') ~= '' )
       then
-        out = out .. 'Måling foretaget med st. hul:\n'
         if ( getValue('visus.uden_korr.st_hul.snellen.right') ~= '' )
         then
-          out = out .. 'Snellen: ' .. getValue('visus.uden_korr.st_hul.snellen.right') .. '\n'
+          out = out .. ', ' .. getValue('visus.uden_korr.st_hul.snellen.right')
         end
         if ( getValue('visus.uden_korr.st_hul.etdrs.right') ~= '' )
         then
-          out = out .. 'ETDRS: ' .. getValue('visus.uden_korr.st_hul.etdrs.right') .. '\n'
+          out = out .. ', ' .. getValue('visus.uden_korr.st_hul.etdrs.right') .. ' ETDRS'
         end
+        out = out .. ' st.h.'
       end
-      if ( getValue('visus.uden_korr.missing.left') == '' )
-      then
-        out = out .. '\n'
-      end
+      out = out .. '\n'
     end
 
 
 
 
 
-
-
-
-
     if ( getValue('visus.uden_korr.missing.left') == '' )
     then
-      out = out .. 'Visus, uden korr., o.sin'
-      if ( getValue('visus.uden_korr.kontrast.left') ~= '' )
-      then
-        out = out .. ', ' .. getValue('visus.uden_korr.kontrast.left') .. ' kontrast'
-      end
-      out = out .. ':\n'
+      out = out .. 'o.sin: '
       if ( getValue('visus.uden_korr.snellen.left') ~= '' )
       then
-        out = out .. 'Snellen: ' .. getValue('visus.uden_korr.snellen.left') .. '\n'
+        out = out .. getValue('visus.uden_korr.snellen.left')
+        if ( getValue('visus.uden_korr.etdrs.left') == '' )
+        then
+	  out = out .. ', '
+	end
       end
       if ( getValue('visus.uden_korr.etdrs.left') ~= '' )
       then
-        out = out .. 'ETDRS: ' .. getValue('visus.uden_korr.etdrs.left') .. '\n'
+        if ( getValue('visus.uden_korr.snellen.left') ~= '' )
+        then
+	  out = out .. ', '
+	end
+        out = out .. getValue('visus.uden_korr.etdrs.left') .. ' ETDRS, '
+      end
+      if ( getValue('visus.uden_korr.kontrast.left') ~= '' )
+      then
+        out = out .. getValue('visus.uden_korr.kontrast.left') .. ' kontrast'
       end
+
       if ( getValue('visus.uden_korr.st_hul.left') ~= '' )
       then
-        out = out .. 'Måling foretaget med st. hul:\n'
         if ( getValue('visus.uden_korr.st_hul.snellen.left') ~= '' )
         then
-          out = out .. 'Snellen: ' .. getValue('visus.uden_korr.st_hul.snellen.left') .. '\n'
+          out = out .. ', ' .. getValue('visus.uden_korr.st_hul.snellen.left')
         end
         if ( getValue('visus.uden_korr.st_hul.etdrs.left') ~= '' )
         then
-          out = out .. 'ETDRS: ' .. getValue('visus.uden_korr.st_hul.etdrs.left') .. '\n'
+          out = out .. ', ' .. getValue('visus.uden_korr.st_hul.etdrs.left') .. ' ETDRS'
         end
+        out = out .. ' st.h.'
       end
-      if ( getValue('visus.uden_korr.missing.left') == '' )
-      then
-        out = out .. '\n'
-      end
+      out = out .. '\n'
     end
 
 
@@ -83,25 +103,24 @@
 
 
 
-
-
-
-
     if ( getValue('visus.uden_korr.ou') ~= '' )
     then
-      out = out .. 'Visus, uden korr., o.u'
-      if ( getValue('visus.uden_korr.kontrast.ou') ~= '' )
-      then
-        out = out .. ', ' .. getValue('visus.uden_korr.kontrast.ou') .. ' kontrast'
-      end
-      out = out .. ':\n'
+      out = out .. 'o.u: '
       if ( getValue('visus.uden_korr.snellen.ou') ~= '' )
       then
-        out = out .. 'Snellen: ' .. getValue('visus.uden_korr.snellen.ou') .. '\n'
+        out = out .. getValue('visus.uden_korr.snellen.ou')
       end
       if ( getValue('visus.uden_korr.etdrs.ou') ~= '' )
       then
-        out = out .. 'ETDRS: ' .. getValue('visus.uden_korr.etdrs.ou') .. '\n'
+        if ( getValue('visus.uden_korr.snellen.ou') ~= '' )
+        then
+	  out = out .. ', '
+	end
+        out = out .. getValue('visus.uden_korr.etdrs.ou') .. ' ETDRS'
+      end
+      if ( getValue('visus.uden_korr.kontrast.ou') ~= '' )
+      then
+        out = out .. ', ' .. getValue('visus.uden_korr.kontrast.ou') .. ' kontrast'
       end
     end
 
@@ -358,11 +377,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.uden_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">
+	<frame name="right_eye_frame" caption="o.dxt" layout="vbox">
 	  <frame layout="hbox">
 	    <label caption="Kontrast:"/>
 	    <combobox name="visus.uden_korr.kontrast.right" value="">
@@ -667,11 +686,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.uden_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">
+	<frame name="left_eye_frame" caption="o.sin øje" layout="vbox">
 	  <frame layout="hbox">
 	    <label caption="Kontrast:"/>
 	    <combobox name="visus.uden_korr.kontrast.left" value="">