summaryrefslogtreecommitdiff
path: root/server/xml/macros/current-1.0.xml
diff options
context:
space:
mode:
Diffstat (limited to 'server/xml/macros/current-1.0.xml')
-rw-r--r--server/xml/macros/current-1.0.xml283
1 files changed, 283 insertions, 0 deletions
diff --git a/server/xml/macros/current-1.0.xml b/server/xml/macros/current-1.0.xml
new file mode 100644
index 0000000..1bfd6ea
--- /dev/null
+++ b/server/xml/macros/current-1.0.xml
@@ -0,0 +1,283 @@
+<?xml version='1.0' encoding='UTF-8'?>
+<!--
+ 20081203: Bent Bisballe Nyeng
+ Feltnavnene ændret så de giver mening.
+ -->
+<!--
+ 20090108: Bent Bisballe Nyeng
+ Alt tekst ændret.
+ Layout af multilist input er ændret så det er liniebaseret.
+ -->
+<!--
+ 20090225: Bent Bisballe Nyeng
+ Resume format ændret så det er parsbart.
+ -->
+<!--
+ 20090226: Bent Bisballe Nyeng
+ Rettet så den rent faktisk indeholder de felter den skal...
+ -->
+<!--
+ 20090320: Bent Bisballe Nyeng
+ Begge øjne er nu på, på samme tid. Resume er lavet intelligent.
+ -->
+<macro name="current" version="1.0">
+ <resume language="lua">
+ out = 'Aktuelle:\n'
+
+ if ( getValue('current.symptoms.right') == '' and getValue('current.symptoms.left') == '' )
+ then
+ out = out .. 'ingen\n'
+ end
+
+ if ( getValue('current.symptoms.right') ~= '' )
+ then
+ out = out .. 'På højre øje har der været\n'
+ out = out .. getValue('current.symptoms.right') .. '\n'
+ end
+
+ if ( getValue('current.symptoms.left') ~= '' )
+ then
+ out = out .. 'På venstre øje har der været\n'
+ out = out .. getValue('current.symptoms.left') .. '\n'
+ end
+
+ if ( getValue('current.symptoms.right') ~= '' or getValue('current.symptoms.left') ~= '' )
+ then
+ out = out .. 'Symptomerne er opstået ' .. getValue('current.when')
+ .. ' og efterfølgende ' .. getValue('current.then')
+ end
+
+ return out
+ </resume>
+ <queries>
+ </queries>
+ <maps>
+ <map name="now">
+ -- Set date to now if no other data available within last 24 hours.
+ return os.time(), os.time() - 24*60*60, 'system'
+ </map>
+ </maps>
+ <scripts>
+ <script language="lua" name="evolution_enable">
+ if( getValue('current.symptoms.right') ~= '' or getValue('current.symptoms.left') ~= '' )
+ then
+ enable('evolution')
+ else
+ disable('evolution')
+ end
+
+ return true
+ </script>
+ </scripts>
+ <window caption="Aktuelle (B.2.1.3)"
+ layout="vbox">
+
+ <frame layout="vbox">
+ <label caption="Symptomlister:"/>
+
+ <frame layout="hbox">
+ <frame caption="Højre" layout="vbox">
+
+ <multilist name="current.symptoms.right" value=""
+ innerwidget="aktuelle_entry_right" script="evolution_enable">
+
+ <metawidget name="aktuelle_entry_right" layout="hbox"
+ formatlanguage="lua"
+ format=
+ "
+ days = (os.time() - tonumber(getValue('date_right'))) / (60 * 60 * 24)
+ num = 0
+ identifier = ''
+ suffix = ''
+
+ if(num == 0 and math.abs(days) ~= days)
+ then
+ num = 0.1
+ identifier = 'dag'
+ suffix = 'e'
+ end
+
+ if(num == 0 and math.floor(days/7) == 0)
+ then
+ num = days
+ identifier = 'dag'
+ suffix = 'e'
+ end
+
+ if(num == 0 and math.floor(days/31) == 0)
+ then
+ num = days / 7
+ identifier = 'uge'
+ suffix = 'r'
+ end
+
+ if(num == 0 and math.floor(days/365) == 0)
+ then
+ num = days / 31
+ identifier = 'måned'
+ suffix = 'er'
+ end
+
+ if(num == 0)
+ then
+ num = days / 365
+ identifier = 'år'
+ suffix = ''
+ end
+
+ num = math.floor(num * 2) / 2
+ if(num == 1)
+ then
+ suffix = ''
+ end
+
+ return getValue('observeret_right') .. ': igennem ' .. num .. ' '
+ .. identifier .. suffix .. '.'
+ ">
+
+ <frame layout="vbox">
+ <label caption="Observeret:"/>
+ <altcombobox name="observeret_right" layout="vbox" value="Sløret syn">
+ <item caption="Sløret syn" value="Sløret syn"/>
+ <item caption="Mørk plet i synsfeltet" value="Mørk plet i synsfeltet"/>
+ <item caption="Metamorfopsier" value="Metamorfopsier"/>
+ <item caption="Mikropsi" value="Mikropsi"/>
+ <item caption="Dyskromatopsi" value="Dyskromatopsi"/>
+ <altitem caption="Andet" value="andet" layout="hbox" innerwidget="andet_right">
+ <label caption="Andet:"/>
+ <lineedit name="andet_right" value=""/>
+ </altitem>
+ </altcombobox>
+ </frame>
+
+ <frame layout="vbox">
+ <label caption="Dato:"/>
+ <datetime name="date_right" fuzziness="3" map="now"/>
+ <label caption=""/>
+ </frame>
+
+ </metawidget>
+
+ </multilist>
+
+ </frame>
+ <frame caption="Venstre" layout="vbox">
+ <multilist name="current.symptoms.left" value=""
+ innerwidget="aktuelle_entry_left" script="evolution_enable">
+
+ <metawidget name="aktuelle_entry_left" layout="hbox"
+ formatlanguage="lua"
+ format=
+ "
+ days = (os.time() - tonumber(getValue('date_left'))) / (60 * 60 * 24)
+ num = 0
+ identifier = ''
+ suffix = ''
+
+ if(num == 0 and math.abs(days) ~= days)
+ then
+ num = 0
+ identifier = 'dag'
+ suffix = 'e'
+ end
+
+ if(num == 0 and math.floor(days/7) == 0)
+ then
+ num = days
+ identifier = 'dag'
+ suffix = 'e'
+ end
+
+ if(num == 0 and math.floor(days/31) == 0)
+ then
+ num = days / 7
+ identifier = 'uge'
+ suffix = 'r'
+ end
+
+ if(num == 0 and math.floor(days/365) == 0)
+ then
+ num = days / 31
+ identifier = 'måned'
+ suffix = 'er'
+ end
+
+ if(num == 0)
+ then
+ num = days / 365
+ identifier = 'år'
+ suffix = ''
+ end
+
+ num = math.floor(num * 2) / 2
+ if(num == 1)
+ then
+ suffix = ''
+ end
+
+ return getValue('observeret_left') .. ': igennem ' .. num .. ' '
+ .. identifier .. suffix .. '.'
+ ">
+
+ <frame layout="vbox">
+ <label caption="Observeret:"/>
+ <altcombobox name="observeret_left" layout="vbox" value="Sløret syn">
+ <item caption="Sløret syn" value="Sløret syn"/>
+ <item caption="Mørk plet i synsfeltet" value="Mørk plet i synsfeltet"/>
+ <item caption="Metamorfopsier" value="Metamorfopsier"/>
+ <item caption="Mikropsi" value="Mikropsi"/>
+ <item caption="Dyskromatopsi" value="Dyskromatopsi"/>
+ <altitem caption="Andet" value="andet" layout="hbox" innerwidget="andet_left">
+ <label caption="Andet:"/>
+ <lineedit name="andet_left" value=""/>
+ </altitem>
+ </altcombobox>
+ </frame>
+
+ <frame layout="vbox">
+ <label caption="Dato:"/>
+ <datetime name="date_left" fuzziness="3" map="now"/>
+ <label caption=""/>
+ </frame>
+
+ </metawidget>
+
+ </multilist>
+
+ </frame>
+ </frame>
+ </frame>
+
+ <frame name="evolution" layout="hbox">
+
+ <frame layout="vbox">
+ <label caption="Opstået:"/>
+ <radiobuttons name="current.when" value="." layout="hbox">
+ <radiobutton caption="Pludseligt"
+ value="pludseligt"/>
+ <radiobutton caption="Gradvist"
+ value="gradvist"/>
+ </radiobuttons>
+ <label caption=""/>
+ </frame>
+
+ <frame layout="vbox">
+ <label caption="Efterfølgende:"/>
+ <combobox name="current.then" value="og har efterfølgende været uændrede">
+ <item caption="Uændret" value="uændrede"/>
+ <item caption="Forværret" value="forværret"/>
+ <item caption="Forbedret" value="forbedret"/>
+ </combobox>
+ <label caption=""/>
+ </frame>
+
+ <spacer/>
+
+ </frame>
+
+ <frame layout="hbox">
+ <spacer/>
+ <button caption="Gem" action="commit"/>
+ </frame>
+ </window>
+</macro>