From 1bce9e4ebb9521c26fdbc586d4eadd6f2a52b618 Mon Sep 17 00:00:00 2001
From: bertho <bertho>
Date: Wed, 4 Feb 2009 11:26:58 +0000
Subject: Add macros and templates to repository

---
 server/xml/macros/B.2.2.3.xml | 115 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 115 insertions(+)
 create mode 100644 server/xml/macros/B.2.2.3.xml

(limited to 'server/xml/macros/B.2.2.3.xml')

diff --git a/server/xml/macros/B.2.2.3.xml b/server/xml/macros/B.2.2.3.xml
new file mode 100644
index 0000000..849d80f
--- /dev/null
+++ b/server/xml/macros/B.2.2.3.xml
@@ -0,0 +1,115 @@
+<?xml version='1.0' encoding='UTF-8'?>
+<!--
+    20081203: Bent Bisballe Nyeng
+    Feltnavnene ændret så de giver mening.
+  -->
+<!--
+    20090108: Bent Bisballe Nyeng
+    Højre/venstre byttet om.
+  -->
+<macro name="B.2.2.3" version="1.0">
+  <resume>Autorefraktion højre øje: ${autorefractor.right.sphere} sf, ${autorefractor.right.cyl} cyl ${autorefractor.right.axis} grader.
+Autorefraktion venstre øje: ${autorefractor.left.sphere} sf, ${autorefractor.left.cyl} cyl ${autorefractor.left.axis} grader.</resume>
+  <queries>
+  </queries>
+  <maps>
+  </maps>
+  <scripts>
+    <script language="lua" name="lt20gt-25">
+      if(value == '')
+      then
+        return false
+      end
+
+      value = string.gsub(value, ',', '.')
+      if(tonumber(value) &gt;= -25 and tonumber(value) &lt;= 20)
+      then
+        return true
+      else
+        return false
+      end
+    </script>
+    <script language="lua" name="lt10gt-15">
+      if(value == '')
+      then
+        return false
+      end
+
+      value = string.gsub(value, ',', '.')
+      if(tonumber(value) &gt;= -15 and tonumber(value) &lt;= 10)
+      then
+        return true
+      else
+        return false
+      end
+    </script>
+    <script language="lua" name="lt359gt0">
+      if(value == '')
+      then
+        return false
+      end
+
+      value = string.gsub(value, ',', '.')
+      if(tonumber(value) &gt;= 0 and tonumber(value) &lt;= 359)
+      then
+        return true
+      else
+        return false
+      end
+    </script>
+  </scripts>
+  <window caption="Autorefraktion (B.2.2.3)"
+          layout="vbox">
+
+    <frame layout="hbox">
+      
+      <!-- Højre øje -->
+      <frame caption="Højre øje" layout="hbox">
+	
+	<frame layout="vbox">
+	  <label caption="Sf:"/>
+	  <lineedit name="autorefractor.right.sphere"
+		    regexp="[+-]{0,1}\d{1,2},\d{2}" script="lt20gt-25" value=""/>
+	</frame>
+	<frame layout="vbox">
+	  <label caption="Cyl:"/>
+	  <lineedit name="autorefractor.right.cyl"
+		    regexp="[+-]{0,1}\d{1,2},\d{2}" script="lt10gt-15" value=""/>
+	</frame>
+	<frame layout="vbox">
+	  <label caption="Grader:"/>
+	  <lineedit name="autorefractor.right.axis"
+		    regexp="[\d]+" script="lt359gt0" value=""/>
+	</frame>
+	
+      </frame>
+
+      <!-- Venstre øje -->
+      <frame caption="Venstre øje" layout="hbox">
+	
+	<frame layout="vbox">
+	  <label caption="Sf:"/>
+	  <lineedit name="autorefractor.left.sphere"
+		    regexp="[+-]{0,1}\d{1,2},\d{2}" script="lt20gt-25" value=""/>
+	</frame>
+	<frame layout="vbox">
+	  <label caption="Cyl:"/>
+	  <lineedit name="autorefractor.left.cyl"
+		    regexp="[+-]{0,1}\d{1,2},\d{2}" script="lt10gt-15" value=""/>
+	</frame>
+	<frame layout="vbox">
+	  <label caption="Grader:"/>
+	  <lineedit name="autorefractor.left.axis"
+		    regexp="[\d]+" script="lt359gt0" value=""/>
+	</frame>
+      </frame>
+
+    </frame>
+    
+    <!-- Knapper -->
+    <frame layout="hbox">
+      <spacer />
+      <button caption="Gem" action="commit"/>
+    </frame>
+  </window>
+</macro>
-- 
cgit v1.2.3