From 028415ebd85725a2499d741fcb7cb67e66df3159 Mon Sep 17 00:00:00 2001 From: bringert Date: Thu, 18 Jan 2007 16:50:29 +0000 Subject: [PATCH] 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. --- src/GF/Speech/GrammarToVoiceXML.hs | 12 ++++++------ 1 file 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