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, 0 insertions, 283 deletions
diff --git a/server/xml/macros/current-1.0.xml b/server/xml/macros/current-1.0.xml
deleted file mode 100644
index 263c4fe..0000000
--- a/server/xml/macros/current-1.0.xml
+++ /dev/null
@@ -1,283 +0,0 @@
-<?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>
- <widgets 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>
- </widgets>
-</macro>