From 724f62b4e8cd7e5d356970b864fabc8f4cd927ee Mon Sep 17 00:00:00 2001
From: senator <senator>
Date: Tue, 8 Sep 2009 12:09:18 +0000
Subject: 90dlinse now includes hul_eller_rift_kl functionality
---
server/xml/macros/ref_90D_linse-1.0.xml | 52 +++++++++++++++++++++++++++++----
1 file changed, 46 insertions(+), 6 deletions(-)
(limited to 'server/xml/macros')
diff --git a/server/xml/macros/ref_90D_linse-1.0.xml b/server/xml/macros/ref_90D_linse-1.0.xml
index 1b01a1b..7f13be9 100644
--- a/server/xml/macros/ref_90D_linse-1.0.xml
+++ b/server/xml/macros/ref_90D_linse-1.0.xml
@@ -8,7 +8,13 @@
out = out .. getValue('90d_linse.right.indblik') .. ' indblik.\n'
out = out .. 'Papil: ' .. getValue('90d_linse.right.papil') .. '\n'
out = out .. 'Makula: ' .. getValue('90d_linse.right.makula') .. '\n'
- out = out .. 'Periferi: ' .. getValue('90d_linse.right.periferi') .. '\n'
+ out = out .. 'Periferi: ' .. getValue('90d_linse.right.periferi')
+ if ( getValue('90d_linse.right.periferi') == 'Hul eller rift kl' )
+ then
+ out = out .. ' ' .. getValue('90dlinse.right.hul_eller_rift_kl') .. '\n'
+ else
+ out = out .. '\n'
+ end
if ( getValue('90d_linse.right.supplerende') ~= '' )
then
out = out .. getValue('90d_linse.right.supplerende') .. '\n'
@@ -24,7 +30,13 @@
out = out .. getValue('90d_linse.left.indblik') .. ' indblik.\n'
out = out .. 'Papil: ' .. getValue('90d_linse.left.papil') .. '\n'
out = out .. 'Makula: ' .. getValue('90d_linse.left.makula') .. '\n'
- out = out .. 'Periferi: ' .. getValue('90d_linse.left.periferi') .. '\n'
+ out = out .. 'Periferi: ' .. getValue('90d_linse.left.periferi')
+ if ( getValue('90d_linse.left.periferi') == 'Hul eller rift kl' )
+ then
+ out = out .. ' ' .. getValue('90dlinse.left.hul_eller_rift_kl') .. '\n'
+ else
+ out = out .. '\n'
+ end
if ( getValue('90d_linse.left.supplerende') ~= '' )
then
out = out .. getValue('90d_linse.left.supplerende') .. '\n'
@@ -97,6 +109,24 @@
end
return true
</script>
+ <script language="lua" name="hul_eller_rift_right">
+ if ( getValue('90d_linse.right.periferi') == 'Hul eller rift kl' )
+ then
+ enable('hul_eller_rift.right.frame')
+ else
+ disable('hul_eller_rift.right.frame')
+ end
+ return true
+ </script>
+ <script language="lua" name="hul_eller_rift_left">
+ if ( getValue('90d_linse.left.periferi') == 'Hul eller rift kl' )
+ then
+ enable('hul_eller_rift.left.frame')
+ else
+ disable('hul_eller_rift.left.frame')
+ end
+ return true
+ </script>
</scripts>
<widgets caption="90D-linse"
layout="vbox">
@@ -170,18 +200,23 @@
<frame layout="vbox">
<label caption="Periferi: "/>
<label/>
+ <label/>
</frame>
<frame layout="vbox">
- <altcombobox name="90d_linse.right.periferi" layout="vbox" value="Ingen degenerative forandringer">
+ <altcombobox name="90d_linse.right.periferi" layout="vbox" value="Ingen degenerative forandringer" script="hul_eller_rift_right">
<item caption="Ingen degenerative forandringer" value="Ingen degenerative forandringer"/>
<item caption="Perifere degenerationer" value="Perifere degenerationer"/>
<item caption="Lattice" value="Lattice"/>
- <item caption="Hul eller rift kl .......?????????" value="Hul eller rift kl .......?????????"/>
+ <item caption="Hul eller rift kl (anfør herunder)" value="Hul eller rift kl"/>
<altitem caption="Andet" value="andet" layout="hbox" innerwidget="90d_linse.right.periferi.andet">
<label caption="Andet:"/>
<lineedit name="90d_linse.right.periferi.andet"/>
</altitem>
</altcombobox>
+ <frame name="hul_eller_rift.right.frame" layout="hbox">
+ <label caption="Hul eller rift kl"/>
+ <lineedit name="90dlinse.right.hul_eller_rift_kl"/>
+ </frame>
</frame>
</frame>
@@ -258,18 +293,23 @@
<frame layout="vbox">
<label caption="Periferi: "/>
<label/>
+ <label/>
</frame>
<frame layout="vbox">
- <altcombobox name="90d_linse.left.periferi" layout="vbox" value="Ingen degenerative forandringer">
+ <altcombobox name="90d_linse.left.periferi" layout="vbox" value="Ingen degenerative forandringer" script="hul_eller_rift_left">
<item caption="Ingen degenerative forandringer" value="Ingen degenerative forandringer"/>
<item caption="Perifere degenerationer" value="Perifere degenerationer"/>
<item caption="Lattice" value="Lattice"/>
- <item caption="Hul eller rift kl .......?????????" value="Hul eller rift kl .......?????????"/>
+ <item caption="Hul eller rift kl (anfør herunder)" value="Hul eller rift kl"/>
<altitem caption="Andet" value="andet" layout="hbox" innerwidget="90d_linse.left.periferi.andet">
<label caption="Andet:"/>
<lineedit name="90d_linse.left.periferi.andet"/>
</altitem>
</altcombobox>
+ <frame name="hul_eller_rift.left.frame" layout="hbox">
+ <label caption="Hul eller rift kl"/>
+ <lineedit name="90dlinse.left.hul_eller_rift_kl"/>
+ </frame>
</frame>
</frame>
--
cgit v1.2.3