[Aimmath-commit] AIM/WEB-INF/maple/aim/review Quiz.mpl,1.3,1.4

[<nps...@us...>]

Update of /cvsroot/aimmath/AIM/WEB-INF/maple/aim/review
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3834/WEB-INF/maple/aim/review

Modified Files:
	Quiz.mpl 
Log Message:
Various minor improvements

Index: Quiz.mpl
===================================================================
RCS file: /cvsroot/aimmath/AIM/WEB-INF/maple/aim/review/Quiz.mpl,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** Quiz.mpl	25 Aug 2003 21:47:19 -0000	1.3
--- Quiz.mpl	10 Mar 2004 02:06:54 -0000	1.4
***************
*** 204,208 ****
           student,studentname,emailstudent,adminstudent,togglesolution,
  	 seed,quizversion,quizinstance,history,labeltable,
!          question,label,rawtable,quizcontext;
  
     subject := eval(page['Subject']);
--- 204,208 ----
           student,studentname,emailstudent,adminstudent,togglesolution,
  	 seed,quizversion,quizinstance,history,labeltable,
!          question,label,questionhistory,rawtable,quizcontext;
  
     subject := eval(page['Subject']);
***************
*** 261,266 ****
     for question in quizversion['Questions'] do
      label := question['Label'];
!     rawtable[cat("RawAnswer",label)] :=
!      eval(labeltable[label])['LastRawAnswer'];
     od;
  
--- 261,271 ----
     for question in quizversion['Questions'] do
      label := question['Label'];
!     questionhistory := eval(labeltable[label]);
!     if type([questionhistory],[`aim/Question/History`]) then
!      rawtable[cat("RawAnswer",label)] :=
!       questionhistory['LastRawAnswer'];
!     else
!      rawtable[cat("RawAnswer",label)] := "";
!     fi;
     od;