diff options
| author | bringert <bringert@cs.chalmers.se> | 2007-01-18 16:50:29 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2007-01-18 16:50:29 +0000 |
| commit | c3ec3eb465652aa43cd8ad4a52322c3afd302a3f (patch) | |
| tree | 1cae8b29891b534406d177e425e4c3a1cd7b37c5 | |
| parent | 6c9ddcda8bf23c968e3a56667f41b1f398ac3422 (diff) | |
Disable help and reprompt stuff in VoiceXML generation, to make nicer looking VoiceXML. They didn't really add much anyway, since there is no help generation yet.
| -rw-r--r-- | src/GF/Speech/GrammarToVoiceXML.hs | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/GF/Speech/GrammarToVoiceXML.hs b/src/GF/Speech/GrammarToVoiceXML.hs index 051a7e596..0667b9efd 100644 --- a/src/GF/Speech/GrammarToVoiceXML.hs +++ b/src/GF/Speech/GrammarToVoiceXML.hs @@ -154,12 +154,12 @@ cat2form gr qs cat fs = -- block [doCallback "entered" cat [return_ [catFieldId cat]] []], field (catFieldId cat) [] [promptString (getCatQuestion cat qs), - vxmlGrammar (gr++"#"++catFormId cat), - nomatch [Data "I didn't understand you.", reprompt], - help [Data (mkHelpText cat)], - filled [] [if_else (catFieldId cat ++ ".name == '?'") - [reprompt] - [{-doCallback "refined" cat [return_ [catFieldId cat]] []-}]] + vxmlGrammar (gr++"#"++catFormId cat) + -- , nomatch [Data "I didn't understand you.", reprompt], + -- help [Data (mkHelpText cat)], + --filled [] [if_else (catFieldId cat ++ ".name == '?'") + -- [reprompt] + -- [{-doCallback "refined" cat [return_ [catFieldId cat]] []-}]] ] ] ++ concatMap (uncurry (fun2sub gr cat)) fs |