msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

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.

Browse Source
This commit is contained in:
bringert
2007-01-18 16:50:29 +00:00
parent 69e0d13380
commit 028415ebd8
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/GF/Speech/GrammarToVoiceXML.hs
View File

@@ -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