From 9cd2c273a273ded21c637908f2dfd3c07e785f36 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Fri, 21 Nov 2003 15:28:25 +0000
Subject: Working on with new resource API.

---
 grammars/database/DatabaseEng.gf | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'grammars/database/DatabaseEng.gf')

diff --git a/grammars/database/DatabaseEng.gf b/grammars/database/DatabaseEng.gf
index d8d232e00..29ae87fec 100644
--- a/grammars/database/DatabaseEng.gf
+++ b/grammars/database/DatabaseEng.gf
@@ -16,11 +16,11 @@ lincat
   Name       = PN ;
 
 lin
-  WhichAre A B = QuestPhrase (IntVP (NounIPMany A) (PosA B)) ;
+  WhichAre A B = QuestPhrase (IntVP (NounIPMany A) (PosVG (PredAP B))) ;
   IsThere A = QuestPhrase (IsThereCN A) ;
-  AreThere A = QuestPhrase (AreThereCN A) ;
-  WhatIs val = QuestPhrase (IntVP WhatOne (PosNP val)) ;
-  IsIt Q A = QuestPhrase (QuestVP Q (PosA A)) ;
+  AreThere A = QuestPhrase (AreThereCN NoNum A) ;
+  WhatIs val = QuestPhrase (IntVP WhatOne (PosVG (PredNP val))) ;
+  IsIt Q A = QuestPhrase (QuestVP Q (PosVG (PredAP A))) ;
 
   MoreThan   = ComparAdjP ;
   TheMost    = SuperlNP ;
-- 
cgit v1.2.3