diff options
| author | bringert <bringert@cs.chalmers.se> | 2007-01-04 22:40:06 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2007-01-04 22:40:06 +0000 |
| commit | 2b1c6763cc29857ba2890a12eb4330f6e03edd06 (patch) | |
| tree | d58ac7e8727c39ee9403057e456d0084a1454fc6 /src | |
| parent | 2497093a5e6d854fad1326fa709292090d3ffda6 (diff) | |
Commented out callbacks stuff in VoiceXML generation. It was not the right thing to have.
Diffstat (limited to 'src')
| -rw-r--r-- | src/GF/Speech/GrammarToVoiceXML.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/GF/Speech/GrammarToVoiceXML.hs b/src/GF/Speech/GrammarToVoiceXML.hs index 7b27e9f34..1f9fe27de 100644 --- a/src/GF/Speech/GrammarToVoiceXML.hs +++ b/src/GF/Speech/GrammarToVoiceXML.hs @@ -135,9 +135,9 @@ cat2form :: String -> CatQuestions -> VIdent -> [(VIdent, [VIdent])] -> XML cat2form gr qs cat fs = form (catFormId cat) $ [var "value" (Just "{ name : '?' }"), - var "callbacks" Nothing, +-- var "callbacks" Nothing, blockCond "value.name != '?'" [assign (catFieldId cat) "value"], - block [doCallback "entered" cat [return_ [catFieldId cat]] []], +-- block [doCallback "entered" cat [return_ [catFieldId cat]] []], field (catFieldId cat) [] [promptString (getCatQuestion cat qs), vxmlGrammar (gr++"#"++catFormId cat), @@ -145,11 +145,11 @@ cat2form gr qs cat fs = help [Data (mkHelpText cat)], filled [] [if_else (catFieldId cat ++ ".name == '?'") [reprompt] - [doCallback "refined" cat [return_ [catFieldId cat]] []]] + [{-doCallback "refined" cat [return_ [catFieldId cat]] []-}]] ] ] ++ concatMap (uncurry (fun2sub gr cat)) fs - ++ [block [doCallback "done" cat [return_ [catFieldId cat]] [return_ [catFieldId cat]]]] + ++ [block [{- doCallback "done" cat [return_ [catFieldId cat]] [-} return_ [catFieldId cat]{-]-}]] mkHelpText :: VIdent -> String mkHelpText cat = "help_"++ prIdent cat @@ -165,7 +165,7 @@ fun2sub gr cat fun args = mkSub a t = subdialog s [("src","#"++catFormId t), ("cond",catFieldId cat++".name == "++string (prIdent fun))] [param "value" (catFieldId cat++"."++a), - param "callbacks" "callbacks", +-- param "callbacks" "callbacks", filled [] [assign (catFieldId cat++"."++a) (s++"."++catFieldId t)]] where s = prIdent fun ++ "_" ++ a |