From 511c7eaa48b9764b211c4041f8890a099da00a1e Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Mon, 24 Nov 2008 13:27:33 +0000
Subject: [PATCH] add preposition "na" when the case is dative (QuestionBul)

---
 next-lib/src/bulgarian/QuestionBul.gf | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/next-lib/src/bulgarian/QuestionBul.gf b/next-lib/src/bulgarian/QuestionBul.gf
index 1f11c7a03..9a02bf333 100644
--- a/next-lib/src/bulgarian/QuestionBul.gf
+++ b/next-lib/src/bulgarian/QuestionBul.gf
@@ -21,7 +21,7 @@ concrete QuestionBul of Question = CatBul ** open ResBul, Prelude in {
       } ;
 
     QuestSlash ip slash = 
-      mkQuestion {s = \\qform => slash.c2.s ++ ip.s ! (RObj slash.c2.c) ! qform}
+      mkQuestion {s = \\qform => slash.c2.s ++ case slash.c2.c of {Dat=>"на";_=>[]} ++ ip.s ! (RObj slash.c2.c) ! qform}
                  {s = slash.s ! (agrP3 ip.gn) } ;
 
     QuestIAdv iadv cl = mkQuestion iadv cl ;
@@ -29,7 +29,7 @@ concrete QuestionBul of Question = CatBul ** open ResBul, Prelude in {
     QuestIComp icomp np = 
       mkQuestion icomp (mkClause (np.s ! RSubj) np.a (predV verbBe)) ;
 
-    PrepIP p ip = {s = \\qform => p.s ++ ip.s ! RSubj ! qform} ;
+    PrepIP p ip = {s = \\qform => p.s ++ case p.c of {Dat=>"на";_=>[]} ++ ip.s ! RSubj ! qform} ;
 
     AdvIP ip adv = {
       s = \\role,qform => ip.s ! role ! qform ++ adv.s ;