diff options
| author | bringert <bringert@cs.chalmers.se> | 2007-01-18 17:58:40 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2007-01-18 17:58:40 +0000 |
| commit | aa16ddc912b8490ebe5dbcc6e24c87312c02a62a (patch) | |
| tree | c8b37371f84bf0850afe628ec45bce3df15c0029 | |
| parent | 6d19a584ea872e4616fbc07281f0dfbf0ea2640f (diff) | |
VoiceXML: use block cond instead of field expr. For some reason the field expr doesn't work right in Opera.
| -rw-r--r-- | src/GF/Speech/GrammarToVoiceXML.hs | 3 |
1 files changed, 2 insertions, 1 deletions
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) ] |