From 5f5b24b4e0c8897843a355be2765e5de89e10035 Mon Sep 17 00:00:00 2001
From: senator <senator>
Date: Fri, 28 Aug 2009 12:46:59 +0000
Subject: Initial release of ref_aktuelle

---
 server/xml/macros/ref_aktuelle-1.0.xml | 62 ++++++++++++++++++++++++++++++++++
 1 file changed, 62 insertions(+)
 create mode 100644 server/xml/macros/ref_aktuelle-1.0.xml

diff --git a/server/xml/macros/ref_aktuelle-1.0.xml b/server/xml/macros/ref_aktuelle-1.0.xml
new file mode 100644
index 0000000..801b729
--- /dev/null
+++ b/server/xml/macros/ref_aktuelle-1.0.xml
@@ -0,0 +1,62 @@
+<?xml version='1.0' encoding='UTF-8'?>
+<macro name="ref_aktuelle" version="1.0">
+  <resume language="lua">
+    out = ''
+    out = out .. 'Patienten anvender ' .. getValue('ref_aktuelle.currently_use') .. '.\n'
+    out = out .. 'Brillestyrken har været stabil i ' .. getValue('ref_aktuelle.stability') .. '. '
+    if ( getValue('ref_aktuelle.further_comments') ~= '' )
+    then
+      out = out .. getValue('ref_aktuelle.further_comments') .. '. '
+    end
+    out = out .. 'Såfremt det er muligt at operere, forventer patienten ' .. getValue('ref_aktuelle.expectations') .. '.'
+    return out
+  </resume>
+  <queries>
+  </queries>
+  <maps>
+  </maps>
+  <scripts>
+  </scripts>
+  <widgets caption="Aktuelle" layout="vbox">
+    <frame layout="hbox">
+      <frame layout="vbox">
+	<label caption="Patienten benytter:"/>
+	<combobox name="ref_aktuelle.currently_use" layout="vbox">
+	  <item caption="Briller" value="Briller"/>
+	  <item caption="Hårde kontaktlinser" value="hårde kontaktlinser"/>
+	  <item caption="Bløde kontaktlinser" value="bløde kontaktlinser"/>
+	  <item caption="Både briller og kontaktlinser" value="både briller og kontaktlinser"/>
+	</combobox>
+      </frame>
+      <frame layout="vbox">
+	<label caption="Brillestyrken har været stabil i:"/>
+	<combobox name="ref_aktuelle.stability" layout="vbox">
+	  <item caption="&amp;lt; ½ år" value="&amp;lt; ½"/>
+	  <item caption="½ år" value="½ år"/>
+	  <item caption="1 år" value="1 år"/>
+	  <item caption="Over 1 år" value="over 1 år"/>
+	</combobox>
+      </frame>
+    </frame>
+    <label caption="Yderligere kommentarer:"/>
+    <textedit name="ref_aktuelle.further_comments"/>
+    <label caption="Såfremt det er muligt at operere, forventer patienten:"/>
+    <altcombobox name="ref_aktuelle.expectations" layout="vbox">
+      <item caption="At kunne undvære briller eller kontaktlinser" value="at kunne undvære briller eller kontaktlinser"/>
+      <item caption="At brillestyrken reduceres" value="at brillestyrken reduceres"/>
+      <altitem caption="Andet" value="andet" innerwidget="expectations_andet">
+	<frame layout="hbox">
+	  <label caption="Andet:"/>
+	  <lineedit name="expectations_andet"/>
+	</frame>
+      </altitem>
+    </altcombobox>
+
+    <!-- Knapper -->
+    <frame layout="hbox">
+      <spacer/>
+      <button caption="Gem" action="commit"/>
+    </frame>
+  </widgets>
+</macro>
+
-- 
cgit v1.2.3