[Aimmath-commit] AIM/WEB-INF/maple/aim TextQuestion.mpl,1.6,1.7

[<mo...@us...>]

Update of /cvsroot/aimmath/AIM/WEB-INF/maple/aim
In directory sc8-pr-cvs1:/tmp/cvs-serv14178

Modified Files:
	TextQuestion.mpl 
Log Message:
changed it so AiM checks the Value of the teacher's answer against the Maple type, not the teacher's answer itself

Index: TextQuestion.mpl
===================================================================
RCS file: /cvsroot/aimmath/AIM/WEB-INF/maple/aim/TextQuestion.mpl,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** TextQuestion.mpl	23 Sep 2003 21:35:32 -0000	1.6
--- TextQuestion.mpl	24 Sep 2003 00:16:08 -0000	1.7
***************
*** 168,172 ****
      msg := __("Teacher's answer is empty.");
     elif nops([rightans]) > 1 or 
!          not(type(rightans,mapletype)) then
      msg := __("Teacher's answer has the wrong type.");
     fi;
--- 168,175 ----
      msg := __("Teacher's answer is empty.");
     elif nops([rightans]) > 1 or 
! # KM 
! # WAS:         not(type(rightans,mapletype)) then
!          not(type(Value(rightans),mapletype)) then
! # END KM
      msg := __("Teacher's answer has the wrong type.");
     fi;
***************
*** 317,321 ****
  #     don't type them anyway
  # WAS: `aim/LaTeX`(rightans),
!     `if`(type(rightans),string),
           cat("\\mbox{",TeX(rightans),"}"),
           `aim/LaTeX`(rightans)),
--- 320,324 ----
  #     don't type them anyway
  # WAS: `aim/LaTeX`(rightans),
!     `if`(type(rightans,string),
           cat("\\mbox{",TeX(rightans),"}"),
           `aim/LaTeX`(rightans)),