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 6c9ddcda8b
commit c3ec3eb465
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]] []], -- block [doCallback "entered" cat [return_ [catFieldId cat]] []],
field (catFieldId cat) [] field (catFieldId cat) []
[promptString (getCatQuestion cat qs), [promptString (getCatQuestion cat qs),
vxmlGrammar (gr++"#"++catFormId cat), vxmlGrammar (gr++"#"++catFormId cat)
nomatch [Data "I didn't understand you.", reprompt], -- , nomatch [Data "I didn't understand you.", reprompt],
help [Data (mkHelpText cat)], -- help [Data (mkHelpText cat)],
filled [] [if_else (catFieldId cat ++ ".name == '?'") --filled [] [if_else (catFieldId cat ++ ".name == '?'")
[reprompt] -- [reprompt]
[{-doCallback "refined" cat [return_ [catFieldId cat]] []-}]] -- [{-doCallback "refined" cat [return_ [catFieldId cat]] []-}]]
] ]
] ]
++ concatMap (uncurry (fun2sub gr cat)) fs ++ concatMap (uncurry (fun2sub gr cat)) fs