From aa16ddc912b8490ebe5dbcc6e24c87312c02a62a Mon Sep 17 00:00:00 2001
From: bringert <bringert@cs.chalmers.se>
Date: Thu, 18 Jan 2007 17:58:40 +0000
Subject: [PATCH] VoiceXML: use block cond instead of field expr. For some
 reason the field expr doesn't work right in Opera.

---
 src/GF/Speech/GrammarToVoiceXML.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/GF/Speech/GrammarToVoiceXML.hs b/src/GF/Speech/GrammarToVoiceXML.hs
index da580fe4c..961f021f5 100644
--- a/src/GF/Speech/GrammarToVoiceXML.hs
+++ b/src/GF/Speech/GrammarToVoiceXML.hs
@@ -138,7 +138,8 @@ cat2form :: String -> CatQuestions -> VIdent -> [(VIdent, [VIdent])] -> XML
 cat2form gr qs cat fs = 
   form (catFormId cat) $ 
       [var "old" Nothing, 
-       field "term" [("expr", "old.name != '?' ? old : undefined")]
+       blockCond "old.name != '?'" [assign "term" "old"],
+       field "term" []
            [promptString (getCatQuestion cat qs), 
             vxmlGrammar (gr++"#"++catFormId cat)
            ]